tempStr = tempStr + Mid(xStr, I, 1) 权重:3 + Mid(xStr, strLen - I + 1, 1) I = I + 1 Loop
PickMid = tempStr End Function
Private Sub Command1_Click() Dim FirstStr As String FirstStr = \
Print PickMid(FirstStr) End Sub
答案: afbecd 权重:4 难易度:2
题目:70、 以下程序的输出结果是
Option Base 1
Private Sub Command1_Click()
Dim a(10),p(3) As
Integer
k=5
For i=1 To 10
a(i)=i Next i
For i=1 To 3
p(i)=a(i*i) Next I
For i=1 To 3
k=k+p(i)*2 Next i Print k End sub
答案:33 权重:2
难易度:2
题目 :71、在窗体上添加一个命令按钮,名为command1,一文本框,名为text1,则执行如下事件过程后,文本框中的输出为( )。
For I = 1 To 4 x = 3
For j = 1 To 3 For k = 1 To 2 x = x + 3 Next k Next j Next I
Text1.Text =str( x)
答案: 21
难易度:2
题目 :72、有如下程序,该程序的执行结果为( )。
Dim k As Integer n = 5 m = 1 k = 1
Do While k <= n m = m * 2 k = k + 1 Loop
Print m
答案: 32 权重:4 难易度:1
题目:73、假定有如下的Sub过程:
Sub S(x As Single,y As
Single)
t = x x =t/y y =t Mod y End Sub
在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Commandl_Click
( )
Dim a As Single Dim b As Single a =5 b =4 S a,b Print a,b End Sub
程序运行后,单击命令按钮,输出结果为 。
答案:1.25,1 权重:2 难易度:1
题目:74、 阅读程序:
Function F(a As Integer)
b = 0 Static c b = b+1 c = c+1 f = a+b+c End Function
Private Sub Commandl_Click () List1.AddItem\Dim a As Integer a =2
For i =1 To 3
Print F(a) Next i End Sub
运行上面的程序,单击命令按钮,输出结果为 。 答案:4
5 6 权重:3 难易度:2
题目:75、阅读程序:
Sub subP(b() As Integer)
For i =1 To 4 b(i)=2*i Next i End Sub
Private Sub Commandl_Click()
Dim a(1 To 4)As Integer a (1)=5 a (2)=6 a (3)=7 a (4)=8 subP a ()
For i =1 To 4
Print a(i) Next i End Sub
运行上面的程序,单击命令按钮,输出结果为 。 答案:2 4 6 8 权重:3 难易度:3
题目: 76在窗体上画一个列表框和一
个文本框,然后编写如下两个事件过程:
Private Sub Form_Load ()
List1.AddItem\List1.AddItem\Listl.AddItem\Text1.Text=\End Sub
Private Sub List1_
DblClick ( )
a =List1.Text
Print a+Text1.Text
End Sub
程序运行后,在文本框中输入“789”(见图1),然后双击列表框中的\,则输出结果为 。 答案:456789 权重:2 难易度:1
题目:77、对窗体编写如下事件过程:
Private Sub Form
_MouseDown(Button As Integer, _
Shift As Integer, X
As Single Y As Single)
If Button =2 Then
Print \End If End Sub
Private Sub Form _
MouseUp(Button As Integer, _
Shift As Integer, X
As Single, Y As Single)
Print \End Sub
程序运行后,如果单击鼠标右键,则输出结果为 。
答案:AAAAA BBBBB 权重:2 难易度:2
题目:78、 对窗体编写如下代码:
Option Base 1 Private Sub
Form_KeyPress(KeyAscii As Integer)
a =
Labell.Caption=
Array(237,126,87,48,498)
m1 = a(1) m2 = 1
If KeyAscii = 13 Then
For i =2 To 5
If a(i)>ml Then
m1 =a(j) m2 =i End If Next i End If Print m1 Print m2 End Sub
程序运行后,按回车键,输出结果为 答案:498 5 权重:2
难易度:2
题目:79、在窗体上画一个命令按钮,名称为Commandl。单击命令按钮时,执行如下事件过 程:
PriVate Sub Commandl—C1icko a$=\ b$=Right(a$,8) c$=Mid(a$,1,8) Msgbox a$,,b$,c$,1 End Sub
则在弹出的信息框的标题栏中显示的信息是
答案:software and hard ware 权重:2 难易度:1
题目:80、在窗体上画一个名称为Listl的列表框,一个名称为Labell的标签。列表框中显示 若干城市的名称。当单击列表框中的某个城市名时,在标签中显示选中城市的名称。
下列能正确实现上述功能的程序是 A) Private Sub
listl_Click() B)Private Sub Listl_C1ick()
list1.listlndex Labell.Nanle=Listl.listindex End Sub .End Sub 答案:A
权重:2
难易度:1
题目 :81、以下程序输出的结果为( )。 X = 1 y = 4
Do Until y > 4 x = x * y y = y + 1 Loop
Print x
答案: 4 权重:4 难易度:1
题目 : 82、在窗体上添加一个按纽,名为command1,然后编写如下的事件过程:( )。
Private Sub Command1_Click() For I = 1 To 4 x = 4
For j = 1 To 3 x = 3
For k = 1 To 2 x = x + 5 Next k Next j Next I Print x End Sub
答案: 13 权重:3 难易度:2
题目 : 83、在窗体上添加一个命令按纽,名为COMMAND1,事件过程如下: Private Sub Command1_Click() x = 0
Do Until c = -1
a = InputBox(\请输入a的值\ a = Val(a)
b = InputBox(\请输入b的值\ b = Val(b)
c = InputBox(\请输入c的值\ c = Val(c)
a = a + b + c Loop
Print a End Sub
程序运行后,单击命令按纽,依次在输入对话框中输入5,4,3,2,1,-1后,输出的结果是( )。
答案: 2 权重:4 难易度:2
题目 : 84、下列程序段的执行结果为( )。 Dim A(3, 3) For M = 1 To 3 For N = 1 To 3
If N = M Or N = 3 - M + 1 Then A(M, N) = 1 Else
A(M, N) = 0 End If Next N Next M
For M = 1 To 3 For N = 1 To 3 Print A(M, N); Next N Print Next M
答案: 1 0 1 0 1 1
1 0 1 权重:3 难易度:2
题目 : 85、单击命令按钮时,下列程序代码的执行结果为( )。
Private Function FirProc(x As Integer, y As Integer, z As Integer) FirProc = 2 * x + y + 3 * z End Function
Private Function SecProc(x As Integer, y As Integer, z As Integer)
SecProc = FirProc(z, x, y) + x End Function
Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim c As Integer a = 2 b = 3 c = 4
Print SecProc(c, b, a)
End Sub
答案: 21 权重:3 难易度:2
题目 :86、以下程序段中Do?Loop循环执行的次数为( )。 N=5 do
if n mod 2=0 then n=n\\2 else
n=n*3+1 end if
Loop until n=1
答案: 5 权重:2 难易度:2
题目 :87、在窗体上添加一命令按纽,其名为Command1,然后编写代码如下: Private Sub Command1_Click() Dim arr(5) As Integer Dim arr1(5) As Integer n = 3
For I = 1 To 5 arr(I) = I
arr1(n) = 2 * n + I Next I
Print arr1(n); arr(n) End Sub
程序的运行结果为:( )。
答案: 11 3 权重:3 难易度:1
题目 :88、有如下一个Sub过程: Sub mlt(ParamArray numbers()) n = 1
For Each x In numbers n = n * x Next x Print n End Sub
在一个事件过程中如下调用该Sub过程: Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer a = 1 b = 2 c = 3 d = 4