计算机应用基础（二）VB程序设计 (A卷)
（闭卷 120 分钟）
1．当运行VB程序时，系统自动执行启动窗体的（ ）事件过程。
A．Load A．Caption A．Mid A．Exit
B．Click B．Name B．InStr B．Ab
C．Unload C．Text C．Val C．Sub
D．GotGocus D．Label D．Len D．End
2．改变窗体的标题时，应当在属性窗口中改变（ ）的属性。 3．下列函数中，返回值是字符串的是( )。 4．在声明一个变量时，下面可用的关键字是( )。
5．以下程序段执行后，程序中的i=i+1语句共执行了多少次（ ）。
For j= 8 to 33 Step 3
If j>26 Then Exit For i=i+1
B．5 B．窗体模块
C．6 C．类模块
D．7 D．工程模块
Next j A．4 A．标准模块
6．使用Visual Basic进行程序设计时，控件可以被添加到( )模块中。 7．下面程序段求两个数中的大数，( )不正确。
A．Max=iif(x>y, x, y)
B．If x>y Then Max=x Else Max=y C．Max=x ： If y>=x Then Max=y
D．If y>=x Then Max=y ： Max=x 8．在某事件过程中，以下声明语句正确的是( )。
A．Const eps As Single B．Dim ivar = \"ABC\"
C．Dim n As Integer, a(1 to n) As Integer D．Static m As Integer
9．若要在同一窗口内安排两组相互独立的单选钮（OptionButton），可使用( )控件将它们分隔开。
① TextBox ② PictureBox ③ Image ④ Frame A. ①②
B. ②③
C. ②④
D. ③④
10．为使计时器控件每隔3秒钟产生一个计时器事件（Timer事件），则应将其Interval
第1页 共7页（VB程序设计 A卷）
属性的值设置为( )。
A．3 得分
1． 下面的程序实现将一张面值为100元的人民币等值换成100张5元、1元和0.5元的零钞，要求每种零钞不少于1张，问有哪几种组合？程序段中有2处空缺，请在答题区将程序补充完整。
B．300
评卷人 C．3000 D．180
一、 程序填空题（在每小题的2个空中，填写缺少的内
容。本大题共5小题，每空3分，共30分）
Private Sub Form_Click()
Dim i%, j%, k%
Print \"5元 1元 0.5元\" For i = 1 To 20
For j = 1 To [1]
k = 100 - i - j
If k>0 and 5.0 * i + 1.0 * j + [2] = 100 Then Print i,j,k End If
End Sub
Next j Next i
答题区： [1]： [2]：
2． 下面程序段先生成10个随机整数并存放在一数组中，求出其中最小元素值的下标。程序段中有2处空缺，请在答题区将程序补充完整。 Dim A(1 To 10) As Single, I As Integer, Imin As Integer For I = 1 To 10 ： A(I) = Int(Rnd * 100) ： Next I Imin = 1 For I = 2 To 10
If __ [1] Then Imin=I Next I
Print [2]
第2页 共7页（VB程序设计 A卷）
答题区： [1]： [2]：
3． 求1~100之间的所有能被5整除的数之和。程序段中有2处空缺，请在答题区将程序补充完整。
Dim I As Integer, S As Integer S = 0
For I = 5 [1] [2] Next I Print \"S=\"; S
答题区： [1]： [2]：
4．下面函数的功能是判断素数。基本思想：把m作为被除数，将2～int（m）作
为除数，如果都除不尽，m就是素数，否则就不是素数。若为素数返回True，否则返回False。程序段中有2处空缺，请在答题区将程序补充完整。
Private Function Prime( m as Integer) As Boolean Dim i% Prime= True
For i=2 To int (sqrt(m)) If m [1] i = 0 Then Prime= [2]
Exit For
Next i
End Function
答题区： [1]：
[2]： 5．计算表达式1!+2!+3!+...+k!的值,其中K的值由InputBox输入。计算的结果在窗体上输出后要写到c:\\jiechenghe.txt文件中，程序段中有2处空缺，请在答题区将程序补充完整。 Private Sub Command1_Click()
Dim sum As Long, k As Integer, a As String Open \"c:\\jiechenghe.txt\" For Output As #1 sum = 0
第3页 共7页（VB程序设计 A卷）
a = InputBox(\"请输入k的值\提示\k = _________[1] For i = 1 To k sum = sum + FACT(i) Next
Print \"sum=\"; sum Print #1, sum Close #1 End Sub
Function FACT(ByVal i As Integer) Dim total As Integer, c As Integer total = 1 For c = 1 To i total = total * c Next c
FACT = [2] End Function
答题区： [1]： [2]： 得分 评卷人 二、 程序改错（下列两段程序中有6处错误，在错误的
语句下画线，并在其右边写上正确语句。本大题共2
小题，每修改一处错误得2分，共12分）
1．下面的程序用于求1/1+1/2+1/3+... ...+1/n的和。 private sub command1_click() dim p! , n% dim sum as integer p=0 : sum=0 n=val(text1.text) do while p>=n sum=sum+p p=p+1 loop
第4页 共7页（VB程序设计 A卷）
form1.print “和为：” & sum end sub
2．下面的程序用于计算圆的面积，其中圆半径需从文本框text1中输入。 Option Explicit private sub form_click() dim PI = 3.14159 dim s as single dim r as single r = val(Text1.Caption) s = PI * r * r print r, s end 得分 评卷人 三、 读程序题（阅读程序，在每小题后填写程序执行结
果。本大题共5小题，每小题4分，共20分）
1．设x = 2， y = 1， z = 2，执行以下两条语句后，输出结果是
If z = x Then y = x : x = 4 Print x, y, z
运行结果：
2．从键盘输入一个数为：234，请写出运行结果。
Private Sub Command4_Click() Dim N As Integer
N = val (InputBox(\"输入一个三位数：\")) Print N \\ 100 + N Mod 10
End Sub
运行结果：
第5页 共7页（VB程序设计 A卷）
3．执行下面的程序，写出运行结果。 Private sub command1_click( )
for I=1 to 5 t=0: j=1 for s=1 to I j=j*s next s t=t+j next I print t end sub 运行结果：
4．执行下面的程序，写出运行结果 （ x的输入值为5，0）
Private sub command1_click( )
x = InputBox(\"Enter x\")
Select Case Sgn(x) + 2 Case 1
Print \"y = \"; x^2 Case 2
Print \"y = \"; x Case 3
Print \"y = \"; x^3 End Select
end sub 运行结果：
5. 写出下列程序运行结果。
Option Explicit Dim x%, y%
第6页 共7页（VB程序设计 A卷）
Private Sub P(x%, ByVal y%) y=x+y x=y Mod 4 Print x, y End Sub
Private Sub Command1_Click() x=4: y=5
Call P(y, x): Print x, y Call P(x, x): Print x, y End Sub 运行结果： 得分 评卷人 四、 编程序题（本大题共3小题，前两个小题每题10
分，第3小题8分，共28分）
1、求p=1*2*3*„*10的值。
2、有一个数列，它的前3个数为0，0，1，从第4个数开始，以后的每一个数都是其前3个数之和。编程输出这个数列的前30个数，或数列中的最后一个数超过1000为止。
3、从键盘输入任意3个整数，按降序打印输出这3个数。
第7页 共7页（VB程序设计 A卷）
因篇幅问题不能全部显示，请点此查看更多更全内容