设有如下程序:程序运行后单击窗体,输出结果是()
A.BCCDEDEFG
B.AABBCDEFG
C.ABCDEFG
D.AABBCCDDEEFFGG
A、BCCDEDEFG
解析:MID(字符串开始位置N)表示从开始位置处截取指定N个数的字符本题中每次截取字符串并将截取的字符串连接在原字符串的前面I=4时Y=″DEFG″;I=3时Y=″CDEDEFG″;I=2时Y=″BCDEDEFG″;I=1时Y=″ABCDEDEFG″
A.BCCDEDEFG
B.AABBCDEFG
C.ABCDEFG
D.AABBCCDDEEFFGG
A、BCCDEDEFG
解析:MID(字符串开始位置N)表示从开始位置处截取指定N个数的字符本题中每次截取字符串并将截取的字符串连接在原字符串的前面I=4时Y=″DEFG″;I=3时Y=″CDEDEFG″;I=2时Y=″BCDEDEFG″;I=1时Y=″ABCDEDEFG″
第1题
A.32
B.33
C.34
D.35
第2题
A.4321
B.5432
C.6543
D.7654
第3题
在窗体上画—个命令按钮,其名称为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 程序运行后,单击命令按钮,输出结果为【 】。
第4题
在窗体上画一个命令按钮Command1,然后编写如下程序: Private Sub Command1_Click() Dim arr()As Integer ReDim arr(3) For i=0 To 3 arr(i)=i Next i x=InputBox("请输入一个数字:") If Val(x)>4 Then ReDim art(4) air(4)=x End If Me.Print(arr(4)-art(3)) End Sub 程序运行后,单击命令按钮,在输入对话框中输入12,输出结果为【 】。
第5题
在窗体上画一个名称为Command1的命令按钮。编写如下事件过程: Private Sub Command1_Click() Dim a As String A=【 】 For i=1 To 5 Print Space(6-i); Mid$(a, 6-i, 2*i-1) Next i End Sub 程序运行后,单击命令按钮,要求窗体上显示的输出结果为: 5 456 34567 2345678 123456789 请填空。
第6题
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码: Private Sub Command1_Click() Dim Arr1(10)As Integer,arr2(10)As Integer n=3 For i=1 To 5 Arr1(i)=i arr2(n)=2*n+i Next i Print arr2(n);Arr1(n) End Sub 程序运行后,单击命令按钮,输出结果是 ______。
A.11 3
B.3 11
C.13 3
D.3 13
第7题
假定有如下的Sub过程: Sub S(x As Single,y As Single) t=x x=t/y y=t Mod y End Sub在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a As Single Dim b As Single a=5 b=4 S a,b Print a,b End Sub程序运行后,单击命令按钮,输出结果为______ 。
A.5 4
B.1 1
C.1.25 4
D.1.25 1
第8题
编写如下通用过程: 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,输出结果是【 】。
第9题
阅读如下程序; Private Sub Form. Click() msg1$=“继续吗?” msg2$=“操作对话框” r=MsgBox(msg1$,vbYesNo OrvbDefaultButton2,msg2$) End Sub 程序运行后,单击窗体,将产生一个信息框。此时如果直接按回车键,则相当于用鼠标单击信息框中的【 】按钮。
第10题
假定有下面的过程: Function Func(a As Integer,b As Integer)As Integer Static m As Integer,i As Integer m=0 i=2 i=i+m+1 m=i+a+b Func=m End Function 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command 1_Click() Dim k As Integer,m As Integer Dim p As Integer k=4 m=1 p=Func(k,m) Print p; p=Func(k,m) Print p End Sub 程序运行后,单击命令按钮,输出结果为()。
A.8 17
B.8 16
C.8 20
D.8 8
第11题
在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
a=0
For i=1 To 3
For j=1 To 4
If j Mod 2<>0 Then
a=a+1
End If
a=a+1
Next j
Next i
Print a
End Sub
程序执行后,单击命令按钮,输出结果是【 】。