A. 顺序文件打开后，既可以读又可以写 B. 随机文件打开后，既可以读又可以写 C. 顺序文件打开后，只能读或者只能写
D. 顺序文件和随机文件的打开都使用Open语句
78. VB编程中顺序文件的处理将用到关键字是（）。
A. File B. Save C. Open D. Disk
二、填空题1
79. Private Sub Command1_Click()
a=3 b=1
For i=1 To 3 f=a + b a=b b=f Next i Print f End Sub
以上程序段运行后，f的结果为 。
80. 设有如下通用过程：
Public Sub fun(a() As Integer, x As Integer) For i = 1 To 5 x = x + a(i) Next End Sub
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim arr(5) As Integer, n As Integer For i = 1 To 5 arr(i) = 2* i Next fun arr, n
Text1.Text = Str(n)
第 11 页 共 24 页
End Sub
程序运行后,单击命令按钮,则在文本框中显示的内容是 。
81. 阅读下列程序段
Option Explicit
Private Sub Command1_Click() Dim str1 As String Dim str2 As String str1 = \ MySub str1, str2 Print str2 End Sub
Private Sub MySub(ByVal a As String, b As String) Dim c As String Dim i As Integer
For i = Len(a) To 1 Step -1 c = c+ Mid(a, i, 1) Next b= c End Sub 程序运行后，“print”语句的输出结果是___ _。
82. 在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click() x = Int(Rnd) + 6
If x ^ 2 > 25 Then y = x ^ 2 + 5 x = Int(Rnd) + 4
If x ^ 2 < 25 Then y = x ^ 2 x = Int(Rnd) + 5
If x ^ 2 = 25 Then y = x ^ 2 - 5 Print y End Sub
程序运行后，单击命令按钮，其输出结果为__ _。
83. 阅读下列程序段
Private Sub Command3_Click() Print pl(3, 6) End Sub
Public Function pl(x As Single, n As Integer) As Single If n = 0 Then pl = 1
第 12 页 共 24 页
Else
If n Mod 2 = 1 Then pl = x * x + n Else
pl = x * x - n End If End If End Function
程序运行后，单击该命令按钮，屏幕上显示的结果是______。
84. 阅读下列程序段
Private Sub Command2_Click() For i = 1 To 3 x = 1
For j = 1 To 3 x = 3 + j
For k = 1 To 3 x = x + 3 Next k Next j Next i Print x End Sub
运行程序后，单击命令按钮，输出结果是 。
85. 阅读下列程序段
Private Sub Command1_Click() Dim i As Integer Dim k As Integer k = 0
For i = 0 To 10 k = k + 1 i = i + k Next Print k; i End Sub
请问其循环体共执行了 次，i的值是 。
86. Private Sub Command1_Click()
Dim i As Integer Dim x As Integer i = 1
第 13 页 共 24 页
x = 2 Do i = i + 1 x = x + i
Loop Until i >= 7 Print i , x End Sub
单击命令按钮后，i和x的值分别是 、 。
87. 下面程序运行后，a、b、c、d的结果分别 。
Private Sub Command1_Click() Dim a, b, c, d As Integer Do
For a = 1 To 2 b = b + 1
If a = 1 Then b = 0 c = 5 d = d + 2 Next a
Loop Until d > 10 Print a, b, c, d End Sub
88. 假定有如下的Sub过程：
Sub S(x As Single, y As Single) t = x x = t + x y = t - y End Sub
Private Sub Command2_Click() Dim a As Single, b As Single a = 6 b = 4
Call S(a, b) Print a, b End Sub
程序运行后，单击命令按钮输出结果为 。
89. 阅读下列程序段
Dim a(3, 3) As Integer For m = 1 To 3
第 14 页 共 24 页
For n = 1 To 3
a(m, n) = (m - 1) * 3 + n Next n Next m
For m = 2 To 3 For n = 1 To 2 Print a(m, n); Next n Next m
程序运行后，显示结果为： 。
三、综合设计题
90. 编制程序实现：在窗体上，单击按钮1，在文本框中动态显示当前时间；单击按钮2，
则停止动态显示；单击按钮3，清除文本框内容。提示：可用定时器控制时间，用系统函数Now显示时间（如Text1.Text = Now）。
91. 编制程序：求出100-200之间所有可以被3整除的数的总和，将结果用消息框显示输
出。
92. 编制程序：利用输入框输入10个不同的整数，将它们从小到大排序，并打印输出。 93. 编制程序实现：设计在一框架中包含三个复选框，只有当其1,3选中而2未选中时，
才在Text1中显示\字符。
94. 编一程序能实现在窗体上打印出如下图所示的图形。
A AAA AAAAA AAAAAAA BBBBBBB BBBBB BBB B
95. 编一程序用于判断一正整数是否为素数。（提示：只能被1和本身整除的正整数称为
素数。为了判断一个数n是不是素数，可以将n被2到sqr(n)之间的所有整数除，如果都除不尽，则n就是素数，否则n是非素数。）
96. 选用If和Select判断结构中任意一种编写满足下列条件的计税要求的程序：少于1600
元，免税；1601-5000元，征2%的税；多于5000元，超过部分征5%的税。
97. 有a、b、c三个数，编一程序实现通过文本框给a、b赋值；再调用能完成a、b比较
大小的子过程，用c将大数回传。要求按值传送a、b。
98. 编一程序用于求所有的\水仙花数\。 所谓\水仙花数\是指一个3位数，其各位数字立
第 15 页 共 24 页