郑州大学VB模拟题4(2)

C、5 D、23 36、变量未赋值时，字符串变量的值为______。（1分） A、O B、空串\ C、Null D、没任何值 37、Print Format(32556, \的输出结果是______。（1分） A、3255632556 B、32556—32556 C、32556-325 D、--32556325 38、执行程序段：m$ = \，输出的结果是______。（1分） A、abcabc B、ABCABC C、65 D、97 39、在下列符号常量的声明中，______是不合法的。（1分） A、Const a As Single = 2.6 B、Const a As Integer = \ C、Const a As Double = 2 * 2 D、Const a = \ 40、下列符号常量的声明中，______是不合法的。（1分） A、Const a As Single = 1.1 B、Const a As Integer = \ C、Const a As Double = Sin(1) D、Const a = \ 41、设有变体变量x，执行语句：x = InputBox(\输入数值\示例\后，如果从键盘上输入10并按回车键，则下列叙述中正确的是______。（1分） A、变量x的值是数值10 B、在InputBox对话框标题栏中显示的是“示例” C、0是默认值 D、变量x的值是字符串“10” 42、下列数据中，______是日期型数据。（1分） A、\ B、Date(\ C、#01/30/2004# D、01/30/2004 43、执行程序段：a$ = \，输出的结果是______。（1分） A、Chi B、aaa C、iii D、ina 44、表达式 25.28 Mod 6.99 的值是______。（1分） A、1 B、4 C、5 D、出错 45、下列声明语句中，错误的是______。（1分） A、Const varl=123 B、Dim var2='ABC' C、Const y=\计算机等级考试\ D、Static var3 as Integer 46、执行程序段：a$ = \11)，变量c$的值为______。（1分） A、Visual BASIC Programing B、Quick Basic programing C、QUICK Basic Programing D、Quick BASIC Programing 47、m、n是整数，且n>m，在以下4个语句中，能将x赋值为一个m～n之间（含m ,n）的任意整数，即满足m≥x≥n的是______。（1分） A、x = Int(Rnd * n) + m B、x = Int(Rnd * (n–m + 1)) + m C、x = Int(Rnd * m) + n D、x = Int(Rnd * (n-m)) + m 48、InStr(\程序设计简明教程中关于可视化界面的设计\设计\的函数值为______。（1分） A、15 B、17 C、30 D、47 49、下面关系运算中，输出结果为“True”的是______。（1分） A、\ B、\ C、\ D、\ 50、执行程序段：a = 6: b = 8: F = Sqr(a * a + b * b): Print F，输出的结果是______。（1分） A、6 B、8 C、10 D、14 二、填空题（7道小题，共30分） 1、* 求7!(7!=1*2*3...*6*7)的值。 Private Sub Command1_Click() Dim a As Single a = For i = 1 To 7 a = Next i Print a End Sub （4分） * i 2、* 对10个100以内的整数用冒泡法按递减顺序排序。 Private Sub Command1_Click() Dim a(10) As Integer, t As Integer Dim i As Integer, j As Integer For i = 1 To 10 a(i) = Int(Rnd * 101) Print a(i); Next i: Print For i = 1 To 9 For j = 1 To 10 - i If a(j) < a(j + 1) Then Next j Next i For i = 1 To 10 Print a(); = a(j): a(j) = a(j + 1): a(j + 1) = t Next i: Print End Sub （4分）

3、* 删除已知数组 a 中的某个元素。 Private Sub Command1_Click()

Dim a() As Variant, n As Integer, Key As Integer a = Array(1, 6, 8, 3, 5, 9, 10, 2, 7, 4) n = UBound(a)

Key = InputBox(\请输入要删除的数\For i = 0 To n

If Key = a(i) Then Exit For Next i

If i = n + 1 Then MsgBox (\找不到此数\For j = i + 1 To n a(j - 1) = a(j) Next j n =

- 1

Exit Sub

ReDim Preserve a(n) For i = 0 To n Print a(i); Next i: Print End Sub （4分）

4、* 三个学生的四门课（政治、数学、英语、计算机）成绩（均在70分以上）随即生成存放在二维数组R（3，4）中，计算每个学生的平均成绩（存放在数组S中）和最高平均成绩。

Private Sub Form_Click()

Dim R(1 To 3, 1 To 4) As Integer Dim S(1 To 3) As Integer

Dim i%, j%, max%, k% 'k为最高成绩学生序号 For i = 1 To 3

(i) = 0

For j = 1 To 4

R(i, j) = Int(30 * Rnd + 70) Print Tab((j - 1) * 5); R(i, j); S(i) = S(i) + R(i, j) Next j

S(i) = S(i) / 4 Print Next i max = 0 For i =

To 3

Print \学生\平均成绩:\If max < S(i) Then max = S(i) k = i End If Next i

Print \最高平均成绩 k=\End Sub （4分）

5、* 设计一个求两个数的最大公约数的函数过程。 * 程序代码如下： Option Base 1 Private Function

(ByVal m%, ByVal n%) As Integer

If m < n Then t = m: m = n: n = t Do

r = m Mod n

If r = 0 Then Exit Do m = n n = r Loop gcd =

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库郑州大学VB模拟题4(2)在线全文阅读。