计算机二级模拟试题（visual basic 语言）五
一、单选题（本题共10分）
1、将CommonDialog1通用对话框以打开对话框打开，可选以下（）方法。
A showopen
B showcolor
C showsave
D showfont
2、函数Int(10*Rnd)是在哪个范围内的整数。（）
A [0，1]
B [1，10]
C [1，9]
D [0，9]
A Alignment
B WordWrap
C AutoSize
D Style
4、______属性决定了按Tab键时焦点在各个控件之间移动的顺序。
A Index
B TabStop
C TabIndex
D SetFocus
5、改变控件在窗体中的上下位置应修改控件的（）属性。
A Top
B Left
C Width
D Height
6、以下不允许用户在程序运行时输入文字的控件是（）。
A 标签框
B 文本框
C 下拉式组合框
D 简单组合框
7、在文件列表框中设定“文件列表”中显示的文件类型应修改该控件的（）属性。
A Path
B Pattern
C Name
D Filename
8、在VB中，下列不能作为存放对象的容器是（）
A 窗体
B 框架
C 图形框
D 图像框
9、循环结构For I%=-1 to -17 Step –2 共执行（）次。
A 5
B 6
C 8
D 9
10、为使文本框显示滚动条，必须首先设置的属性是（）
A Multiline
B Autosize
C Alignment
D Scrollbars
二、是非题（10分）
1、对象的属性都可以在属性窗口中设置。
2、时钟控件的属性Interval 值为0时，表示屏蔽计时器。
3、设计菜单中每一个菜单项分别是一个控件，每个控件都有自己的名字和事件。
4、在过程中用Dim 和Static 定义的变量都是局部变量。
5、在VB中通用对话框的Filename属性返回的是一个输入或选取的文件名字符串。
6、面向对象程序设计是一种以对象为基础，由事件驱动对象执行的设计方法。
7、文本框控件有Caption属性。
8、将焦点主动设置到指定的控件或窗体上，应采用Setfocus方法。
9、方法是VB对象可以响应的用户操作。
10、VB允许用户使用Type语句在窗体模块的通用声明中自己定义数据类型。
三、填空题(共10分，每空1分)
1、表达式93\7 MOD 2^3的值是。
2、VB中的变量按其作用分为___________,_________________,____________。
3、由下列语句定义的数组占用 字节的内存空间。
Dim a(10) As single
4、把下列写成等价的VB 算术表达式。
（1）(2∏r +e -5)lnx 。
（2）))()((c s b s a s s --- 。
5、设变量x,y ,a,b 的值分别为1，2，3，4，请计算下面表达式的值。（用True 或False 表示）
(1) x+y>a+b and not y<b 值______________________________。
(2) x<0 or not y<0 and a>0值_____________________________。
6、求x 与y 之积除以z 的余数的VB 表达式为______________________________。
四、阅读程序（22分）
1、程序1
Private Sub Form_Click()
Dim i As Integer, j As Integer
Dim star As String
star = "★"
For i = 1 To 6
Form1.Print Tab(14 - i * 2);
For j = 1 To i * 2 - 1
Form1.Print star;
Next j
Form1.Print
Next i
For i = 1 To 6
Form1.Print Tab(2 + i * 2);
For j = 1 To (6 - i) * 2 - 1
Form1.Print star;
Next j
Form1.Print
Next i
End Sub
写出程序运行后，单击窗体，Form1上显示的内容。
2、程序2
Private Sub Command1_Click()
Dim xx(6) As Integer
Dim k%
Open "c:\a1.dat" For Output As #1
For i = 1 To 6
j = i * i
Print #1, j
Next i
Close #1
Open "c:\a1.dat" For Input As #2
k = 0
Do While Not EOF(2)
k = k + 1
Input #2, xx(k)
Loop
Close #2
For i = k To k / 2 Step -1
Form1.Print xx(i)
Next i
End Sub
命令按钮单击一次后，窗体上输出结果为：
3、程序3
Private Sub Form_Click()
Dim i As Integer, isum As Integer
For i = 1 To 5
isum = sum(i)
Form1.Print "isum="; isum
Next i
End Sub
Private Function sum(n As Integer)
Static j As Integer
j = j + n
sum = j
End Function
写出程序运行后，单击窗体，Form1上显示的内容。
4、程序4
Public Sub Swap1(ByV al x As Integer, ByV al y As Integer) Dim t As Integer
t = x: x = y: y = t
End Sub
Public Sub Swap2(x As Integer, y As Integer)
Dim t As Integer
t = x: x = y: y = t
End Sub
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = 10:b=20
Print "A1="; a, "B1="; b
Swap1 a, b
Print "A1="; a, "B1="; b
a = 10:
b = 20
Print
Print "A2="; a, "B2="; b
Swap2 a, b
Print "A2="; a, "B2="; b
End Sub
命令按钮单击后，输出结果为：
五、程序填空（24分）
1．用筛选法求m以内的所有素数。
(1)把2—m以内的所有数放入筛中；
(2)筛中最小的素数，在筛中去掉该素数的所有倍数；
(3)重复（2），直到要的筛中的最小素数已超出m的范围；
(4)打印筛中的素数。
Private Sub txtinput_KeyPress(KeyAscii As Integer)
Dim i As Integer, j As Integer
Dim prime(1000) As Integer
Dim m As Integer, p As Integer
Dim flag As Boolean
If KeyAscii = 13 Then
m = ________(1)_________
计算机二级vbFor i = 2 To m - 1 '筛子充满数
prime(i) = 1
Next i
p = 2
flag = True
Do
Do While p < m And prime(p) = 0 '筛子中最小的素数
p= ________(2)_________
Loop
If p = m Then flag =________(3)_________ '筛子中的数全求过结束
For i = p + p To m - 1 Step p '在筛子中清除该素数的倍数
prime(i) = 0
Next i
p = p + 1
Loop While flag = True
i = 0
For j = 2 To m - 1 '打印素数
If ________(4)_________Then
Picture1.Print j;
i = i + 1
If i Mod 5 = 0 Then Picture1.Print '一行打印5个素数
________(5)_________
Next j
End If
End Sub
2、输入系列字符串，按递减次序排列。程序运行界面见下图：①在文本框输入字符串，按回车键后存放到数组a()中；②单击“排序”按钮（Command1）时，进行递减次序排列，并在图形框控件显示。
Dim a() As String, n As Integer
Private Sub Command1_Click()
n = n - 1
For i = 0 To n - 1
imin = i
发布评论