代码如下:Dim m, n As Stringm = "10"n = "2"Print m & n则程序运行后的输出结果是()
A.10
B.2
C.12
D.102
D、102
A.10
B.2
C.12
D.102
D、102
A.print(Str[-6:])
B.print(Str[-6:-1])
C.print(Str[-6:0])
D.print(Str[-5:-1])
在窗体上画—个命令按钮,其名称为Command1,然后编写如下程序: Function M(x As Integer,y As Integer) M=IIf(x>y,x,y) End FUNction Private Sub Command1 Click() Dim a As Integer,b As Integer a=100 b=200 Print M(a,B0 End Sub 程序运行后,单击命令按钮,输出结果为【 】。
Private Sub Command1_Click() Dim x As Long, y As Long,i As Long x=Val(Text1.Text) y=Val(TextText) TextText = Str(【 】) End Sub Function fun1(a As Long,b As Long)As Long Dim r As Long Dim t As Long If【 】Then t = a a = b b = t End If r = a Mod b Do While r <> 0 a = b b = r r = a Mod b Loop 【 】 End Function
A.string
B.undefined
C.object
D.string
编写如下通用过程: Sub proc(By Val num As Long,ByRef ren As Long) Dim k As Long K = 1 num=Abs(num) Do While num k= k *(num Mod 10) num=num\ 10 Loop ren=k End Sub 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1 Click() Dim n As Long, r As Long n=InputBox("请输入一个整数") n = CLng(n) proc n,r Print r End Sub 程序运行后,单击命令按钮,在输入对话框中输入345,输出结果是【 】。