发布时间 : 星期二 文章vb二级模拟题汇总更新完毕开始阅读
省二级考试VB试题汇总
B. Visual Basic程序设计就是编写代码 C. Visual Basic程序是以线性方式顺序执行的
D. Visual Basic的事件可以由用户随意定义，而事件过程是系统预先设置好的 103 保存文件时，窗体的所有数据以_______存储。B
A. *.PRG B. *.FRM C. *.VBP D. *.EXE 104 下列哪组语句可以将变量a，b的值互换_______。 B A. a=b : b=a
B. a=a+b : b=a-b : a=a-b C. a=c : c=b : b=a
D. a=(a+b)/2 : b=(a-b)/2
105 以下程序段执行后，整型变量n的值为_______。 A
year1 = 2004
n = year1 \\ 4 + year1 \\ 400 - year1 \\ 100
A. 486 B. 496 C. 506 D. 466
106 将一文本框与数据控件相关联，需要设定文本框的_______属性。 C A. DataMember B. Datafield C. DataSource D. DataFormat
107 窗体Form1上有两个文本框Text1、Text2和一个命令按钮Command1，编写如下两个事件过程：
Private Sub Command1_Click() a = Text1.Text + Text2.Text Print a End Sub
Private Sub Form_Load() Text1.Text = \ Text2.Text = \ End Sub
程序运行时点击Command1按钮，窗体上显示的运行结果是_______。 B
A. 444 B. 123321 C. 321123 D. 132231
108 在窗体上添加三个文本框，名称分别为Text1、Text2、Text3，一个命令按钮Command1。如果在Text1中输入150，Text2中输入数200，则执行下列程序后，Text3中显示的数为_______。 D
Private Sub Command1_Click() Dim m As Integer, n As Integer m = Val(Text1.Text) n = Val(Text2.Text) If m < n Then
t = m: m = n: n = t End If Do
r = m Mod n m = n n = r
Loop While r <> 0 Text3.Text = Str(m) End Sub
A. 200 B. 150 C. 100 D. 50 109 以下程序段的执行结果是_______。 B
第 17 页 共 50 页
省二级考试VB试题汇总
a=10:y=0 Do
a=a+2 y=y+a If y>20 Then Exit Do End If Loop While a<=14 Print \
A. a=18 y=24 B. a=14 y=26 C. a=14 y=24 D. a=12 y=12 110 以下叙述中错误的是_______。A
A）在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件 B）以.BAS为扩展名的文件是标准模块文件 C）窗体文件包含该窗体及其控件的属性 D）一个工程中可以含有多个标准模块文件
111 关于VB中的监视表达式，错误的叙述是_______。 A
A）监视表达式不能引起中断
B）可使监视表达式为真时引起中断 C）可使监视表达式的值变化时引起中断 D）监视表达式可以监视对象
112 以下程序段的运行结果是_______。 C
Private Sub Form_Click() Dim x() As String a = \ n = Len(a) ReDim x(1 To n)
For i = n To 1 Step -1 x(i) = Mid(a, i, 1) Next I For i = 1 To n Print x(i); Next i End Sub
A. !uoy era woH B. !uoy era woh C. How are you! D. how are you!
113 以下程序段的运行结果是_______。 D
Private Sub Form_Click() Dim nsum As Integer nsum = 1 For i = 2 To 4
nsum = nsum + factor(i) Next i Print nsum End Sub
Function factor(ByVal n As Integer) As Integer
第 18 页 共 50 页
省二级考试VB试题汇总
Dim temp As Integer temp = 1 For i = 1 To n
temp = temp * i Next i factor = temp End Function
A. 10 B. 13 C. 23 D.33 114 以下程序段的运行结果是_______。 C
Private Sub Form_Click()
Dim s As String, once As String, sum As Integer For i = 1 To 5
once = InputBox(\请输入一个字符\ '分别输入A,C,A,D,E sum = sum + checks(once, s) Next i Print s; sum End Sub
Private Function checks(ByVal x As String, y As String) As Integer If x <> \ y = y + x checks = 1 End If End Function
A. ACA 3 B. ACA 5 C. CDE 3 D.CDE 5 115 以下程序段的运行结果是_______。 B
Private Sub Form_Click()
Dim i As Integer, y As Integer i = 0 Do While i <= 4 y = fa(i + 1) i = i + 1 Loop Print y End Sub
Function fa(x As Integer) As Integer Dim term As Integer, i As Integer term = 1 For i = 1 To x
term = term * i Next i fa = term End Function
A. 110 B. 120 C. 130 D. 140
116 运行下列程序时，如果连击3次cmd1，且输入9，3，16，获得的运行结果分别是_______。Private Sub Cmd1_Click() Dim x As Integer
第 19 页 共 50 页
C
省二级考试VB试题汇总
Dim y As Integer
x = Val(InputBox(\输入数据\ If Int(Sqr(x)) <> Sqr(x) Then y = x * x Else y = Sqr(x) End If
Form1.Text1.Text = Str(y) End Sub
A. 3、3、4 B. 81、9、256 C. 3、9、4 D. 9、3、16 117 设输入的数据分别为14、3时，标签Label1中显示的值分别是_______。A
Private Sub Form_Click() Dim a As Integer
a = Val(InputBox(\请输入一个数\ Select Case a Mod 5 Case Is < 2 w = a + 10
Case Is < 4 w = a * 2
Case Else w = a - 10 End Select
Label1.Caption = Str(w) End Sub
A. 4、6 B. 6、4 C. 24、6 D. 6、24 118 下列程序段的运行结果是_______。 B
Private Sub Command1_Click() Dim a(3) As Long
a(0) = 1: a(1) = 2: a(2) = 3: a(3) = 4 j = 1
For i = 3 To 0 Step -1 s = s + a(i) * j j = j * 10 Next i Print s End Sub
A. 4321 B. 1234 C. 34 D. 12 119 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click() Dim x%,n%,i%,j% n = InputBox(\ For i = 1 To n For j = 1 To i x = x + 1 Next j Next i
第 20 页 共 50 页