VB二级冲剌试题_计算机等级考试

nbsp;                Loop Until I<10
Print Sum                                      Print Sum
End Sub                                    End Sub
23．在窗体中添加两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下程序：
Private Sub Command1_Click()
X = 0
Do While X < 10
X = (X + 1) * (X + 2)
n = n + 1
Loop
Text1.Text = Str(n)
Text2.Text = Str(X)
End Sub
程序运行后，单击命令按钮，在两个文本框Text1和Text2中分别显示的值是（  ）
A．1和0          B．2和12             C．2和72            D．3和12
24．在窗体中添加两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程：
Private Sub Command1_Click()
a = UCase$(Text1.Text) + Left$(Text2.Text，2)
Print a
End Sub
Private Sub Form_Load()
Text1.Text = "aB"
Text2.Text = "123456"
End Sub
程序运行后，单击命令按钮，输出结果为（  ）
A．ab12           B．AB12             C．AB56            D．ab56
25．在通用声明中定义a，在窗体中添加一个命令按钮Command1，编写如下程序代码：
Dim a As Integer
Sub test()
a = a + 1: b = b + 1: c = c + 1
Print “Sub:”;a;b;c
End Sub
Private Sub Command1_Click()
a = 2: b = 3: c = 4
Call test
Call test
End Sub
程序运行后，单击命令按钮，窗体中将显示（  ）
A．Sub：3，4，5                         B．Sub：2，3，4
   Sub：4，5，6                            Sub：2，3，4
C．Sub：3，1，1                         D．Sub：1，1，1
   Sub：4，1，1                            Sub：1，1，1
26．在窗体中添加一个命令按钮Command1和一个文本框Text1，并有以下程序：
Private Sub Command1_Click()
Static a As Variant
a = Array(20, 13, 45, -10, 50, 25)
  ……
End Sub
此程序的功能是求数组a的最小元素值，并把最小值放在文本框中。为实现程序的功能，省略号处的程序段应该是（  ）
A．Min = a(1)                               B．Min = a(0)
For i = 2 To 6                                 For i = 1 To 5
If Min < a(i) Then                           If Min < a(i) Then
Min = a(i)                                 Min = a(i)
End If                                    End If
Next I                                      Next I
Text1.Text = Min                              Text1.Text = Min
A．Min = a(0)                               B．Min = a(0)
For i = 1 To 5                                 For i = 1 To 5
If Min < a(i)                                If Min < a(i) Then
Min = a(i)                               &nbs  Min = a(i)
End If                                     Next I
Next I                                     Text1.Text = Min
Text1.Text = Min
27．设有如下程序：
Private Static Function fac(n As Integer) As Integer
Dim f As Integer
f = f + n
fac = f
End Function
Private Sub Form_Click()
Dim i As Integer
For i = 2 To 3
Print "#"; i&"=" & fac(i)
Next i
End Sub
程序运行后，单击窗体，在窗体上显示的是（  ）
A．#2=2            B．#2=2             C．#；2=2           D．#；2=2
   #3=3               #3=5                 #；3=3              #；3=5
28．在窗体中添加一个命令按钮Command1，并有以下程序：
Function retnum()
nl = Chr(13) + Chr(10)
msg$ = "1．运行VB应用程序" + nl + "3．计算器"
msg$= msg$ + nl + "请输入数字选择"
retnum = InputBox(msg$, Title, Default)
End Function
Private Sub Command1_Click()
r = retnum
If r = 1 Then
x = Shell("c:\vbp\vbexam.exe", 1)
ElseIf r = 2 Then
z = Shell("calc.exe", 1)
Else
MsgBox "请输入1-2的数"
End If
End Sub
程序运行后，单击命令按钮，在输入对话框内输入2，窗体将显示（  ）
A．请输入1-2的数                          B．Windows的计算器
C．调用C:\vbp\vbexam.exe程序并运行         D．出错
-----www.vb9.net---------独家提供----------
29．设在工程中有一个标准模块，其中定义了如下记录类型：
Type Books
  name As String * 10
  telnum As String * 20
End Type
在窗体中添加一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的程序段是（  ）
A．Private Sub Command1_Click()
     Dim B As Books
     Open "c:\person.txt" For Output As #1
  B.name = InputBox("输入姓名")
    B.telnum = InputBox("输入电话号码")
    Write #1, B.name, B.telnum
    Close #1
End Sub
B．Private Sub Command1_Click()
&

上一页 [1] [2] [3] 下一页