vb二级机试试题09年4月省二级笔试09年4月省二级笔试题

四川省计算机二级考试（VISUAL BASIC） （2009年4月） 一、选择题 1． 以下是合法变量名的是：（） 2． 保留1位小数，第二位小数四舍五入处理（） 3． 数学表达式和VB表达式的转换：（SIN、EXP、对数） 4． MID、RIGHT、INSTR函数（） 5． 没有PRIVATE、PUBLIC、STATIC，定义的过程是什么类型？（） 6． 卸载窗体的方法（） 7． 组合框中输入的数据或选择的数据对应的属性（） 8． 滚动条单击微动按钮的移动量取决于什么属性（） 9． 文件列表框只显示可执行文件，应修改什么属性（） 10． 绘图命令Circle（1000，1000），500，，，，0.8画出的是:椭圆\圆弧\扇形\圆。 二、读程序题 1． 阅读以下程序： Private Sub Form_Click() Dim n%, k% L1: Dim c! n = Val(InputBox("请输入一个自然数")) k = 10 Call fact(n, c) Print "c="; c Print "k="; k End Sub Private Sub fact(n%, F!) F = 1 For k = 1 To n F = F * k Next k End Sub ⑴若输入n=5，打印出的C的值为多少？(120) ⑵若输入n=5，打印出的K的值为多少？(10) ⑶若取消L1语句，结果会如何？(c) A.结果改变 B.结果不变 C.程序出错 D.以上都不对 ⑷过程Fact的功能是:(d) A.n个F相乘 B.F个n相乘 C.n个K相乘 D.n的阶乘 2.阅读以下程序: Private Sub Command1_Click() Dim a%(), i%, j%, m% Dim s%, ave! Randomize Picture1.Cls m = Val(Text1.Text) s = 0 ReDim a(m, m) For i = 1 To m For j = 1 To m a(i, j) = Int(Rnd * 100) Picture1.Print Tab(j * 4 - 3); a(i, j); If i + j = m + 1 Then s = s + a(i, j) Next j Picture1.Print Next i ave = s / m Picture1.Print "ave="; ave End Sub ⑴以下说法错误的是(c) A.数组a包含m*m个元素 B.数组a是 动态数组 C.数组a是静态数组 D.数组a是整型数组 ⑵产生的随机数的范围([0,99]) ⑶ave存放的是什么数据(c) A.所有元素的平均值 B.主对角线元素的平均值 C.副对角线元素的平均值 D. 3.阅读以下程序: Private Sub Command1_Click() Dim a%(10), i%, j%, k% i = 0 Do a(i) = i i = i + 1 Loop While i <= 10 j = Val(Text1) k = 0 Do k = k + 1 Call mm(a) Loop Until k = j For i = 0 To 10 Print a(i) Next i End Sub Private Sub mm(x() As Integer) i = UBound(x) j = x(i) For k = i To LBound(x) + 1 Step -1 x(k) = x(k - 1) Next k x(LBound(x)) = j End Sub ⑴在文本框中输入数据4,单击COMMAND1,输出的结果是:() 7,8,9,10,0,1,2,3,4,5,6 ⑵过程MM的功能是:(d) A.将数组升序排列 B.将数组降序排列 C.将数组元素左移 D.将数组元素右移 ⑶.数组a的参数传递方式(b) A.值传递 B.地址传递 C.可选参数 D.都不是 4.阅读以下程序: Private Sub Command1_Click() Dim i%, fn As Byte fn = FreeFile Open "test.txt" For Output As #fn For i = 1 To 20 If Sqr(2 * i) = Int(Sqr(2 * i)) Then Print #fn, i Print i; End If Next i Close #fn End Sub ⑴若文件test.txt中原有数据1、2，执行程序后，文件中的全部数据有哪些？（2,8,18） ⑵若将文件test.txt中原有数据1、2，将打开方式改为Append，文件中的全部数据有哪些？（1,2,2,8,18） ⑶以下说法正确的是（D） A. fn得到一个随机的文件号 B. fn得到系统允许的最大文件号 C. fn得到系统允许的最小文件号 D. fn得到未使用的最小文件号 三、程序填空题 1．程序的功能是求 前n项的和。 Private Sub Command1_Click() Dim n%, s! n = Val(InputBox("请输入一个自然数")) Print "n="; n, "s="; fun(n) End Sub Private Function fun(n%) As Single Dim i%, f%, s!, w! s = 0 f = -1 For i = 1 To n f = -1 * f w = f / (2 * i - 1) s = s + w Next i fun = s End Function 2．程序的功能是找出个、十、百位各不相同的三为数。要求每行输出10个数据。 Private Sub Command1_Click() n = 0 For a = 1 To 9 For b = 0 To 9 For c = 0 To 9 If a <> b And b <> c And a <> c Then m = a * 100 + b * 10 + c n = n + 1 Print m; If n Mod 10 = 0 Then Print End If Next c Next b Next a Print Print "满足条件的数据共有"; n; "个" End Sub 3．在文本框TEXT1、TEXT2中输入两个正整数，单击按钮1，求出其最大公约数并存放于TEXT3中（输入数据不是正整数时，清空三个文本框，并使TEXT1获得焦点，要求重新输入）。 Private Sub Command1_Click() Dim a%, b%, n%, i% a = Val(Text1): b = Val(Text2) If a <= 0 Or b <= 0 Then MsgBox "请输入正整数，谢谢！" Text1 = "": Text2 = "": Text3 = "" Text1.SetFocus End If If a < b Then ' n = a Else n = b End If For i = n To 1 Step -1 If a Mod i = 0 And b Mod i = 0 Then Exit For Next i Text3.Text = i End Sub 4．一个正整数，若其高位到低位依次递减，则称其为降序数。程序功能是：单击Command1，输入一个数，调用PD过程判断其是否为降序数。 Private Sub Command1_Click() Dim n&, flag As Boolean n = Val(InputBox("输入一个正整数")) Call pd(n, flag) If flag Then Print n; "是降序数" Else Print n; "不是降序数" End If End Sub Private Sub pd(n As Long, flag As Boolean) Dim x$, i% x = Trim(Str(n)) i = 1 Do While i <= Len(x) If Mid(x,i,1) <= Mid(x, i + 1, 1) Then Exit Do i = i + 1 Loop If i > Len(x) Then flag = True Else flag = False End If End Sub 5．程序功能是：单击Command1，将组合框Combo1中所有以大写字母M开头的选项写入一个名为“abc.txt”的顺序文件中。 Private Sub Command1_Click() Open "abc.txt" For Output As #1 For i = 0 To Combo1.ListCount - 1 If Left(Combo1.List(i), 1) = "M" Then Write #1, Combo1.List(i) End If Next i Close #1 End Sub _1301576975.unknown