VB考试题目(二)

练习题一

一、选择题

1、假设变量bool_flag是一个布尔型(逻辑型)的变量，则下面正确的赋值语句是（ ） A）bool_flag=\"False\" B） bool_flag= .False. C）bool_flag=#False# D） bool_flag=False

2、文本框输入的字符不超过15个，应设置文本框的（ ）属性。 A） maxlength B） visible

C） caption D） name

3、表达式Len(\"123程序设计ABC\")的值是（ ）。 A） 10

B） 14

C） 20 D） 17

4、设有数组声明语句：

Option Base 0

Dim B(-1 To 1,2 To 4,2) As Integer 则数组B有（ ）个元素。

A）27 B）36 C）12 D）24 5、清除列表框中的所有内容用（ ）方法。

A）Clear

B）RemoveItem C） Print D）AddItem

6、表达式 5 Mod 3+7\\2的值是（ ）。

A）2

B）4

C）5

D）6

7、设S=“中华人民共和国”，表达式Left（S,1）+Right（S,1）+Mid（S,3,2）的值为（ A）“中华” B）“中国人民” C）“人民” D）“人民共和” 8、下列表达式的值为2123的是（ ）

A）Val(\"123asd\") & 2000 B） Val(\"123asd\") + 2000 C）Str(123) & \"2000\" D）Str(123)+\"2000\" 9、如下数组声明语句，（ ）是正确的。

A）Dim a[3,4] As Integer

B）Dim a(3,4) As Integer

C）Dim a(n,n) As Integer D）Dim a(3 4) As Integer 10、下列叙述不正确的是（ ）。

A）InputBox函数返回值为字符型

B）MsgBox函数返回值为所单击按钮的键值 C）MsgBox语句返回值为所单击按钮的键值 D）Shell函数返回值为所执行文件的工作代码

）

11、下列各程序段中，语法正确的是（ ） A） If a < 10 Then a=a+10

B） If a> 10 Then a= a+1 Else a= a+ 5 End If C） If a <=10 Then a=a + 1 Else End If D）If a <=10 Then a=a + 1

Else If a <=20 Then a=a + 10 End If

12、假设X的值为5，则在执行以下语句时，其输出结果为“OK”的Select Case语句是（ A） B． Select Case X B） Select Case X Case 10 to 1 Case Is > 5,Is <5 Print \"OK\" Print \"OK\"

End Select

End Select

Select

C） Select Case X

Case Is > 5,1,3 to 10 D）

Select Case X

> 5 Print \"OK\"

Case 1,3 Is Print \"OK\"

End Select

End Select

13、有如下程序

Private Sub From_Activate() Dim a

a=Array(1 ,2 ,3, 4, 5)

For i=LBound(a) To UBound(a) a(i)=i*a(i) Next i

Print i,LBound(a),UBound(a),a(i) End Sub

A）4 0 4 25 B）5 0 4 25 C）不确定 D）出现下标越界的错误

）

14、下面程序运行后，窗体Form1中输出的结果是（ ）

Private Sub Form_Load( ) Form1.AutoRedraw=True x= -17.8

Print Sgn(x)*Int(Abs(x)) End Sub

A）-17 B）17 C）-18 D）18 15、在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click( ) A=″12″ B=″34″ C=″56″ Print A＋B＋C End Sub

程序运行后，单击命令按钮，输出结果是（ ）

A）″123456″ B）123456 C）102 D）显示出错信息 16、下面过程语句说明，合法的是（ ）。

A）Sub f1(ByVal n% ())

B）Sub f1(n%) As Integer

C）Function f1%(f1%) D）Function f1( ByVal n%) 二、填空题

◆ 将数学式y33写成VB表达式，应该是___（1）____

|ab|◆ 写出函数Int(Sqr(17))的值，应该是___（2）____ ◆ 执行下面的程序段后，b的值为___（3）_____

a=300 b=20 a=a+b b=a-b

◆ 执行循环结构 For i=30 To 10 Step –3

Print \"a\"

Next i

将输出___（4）___个a。

◆下面是一个歌手大赛评分程序。10位评委，除去一个最高分和一个最低分，计算平均分(设满分为10分)。请在(5)、(6)、和(7)处填入适当的内容，将程序补充完整。 Private Sub Form_Click()

Dim Max as single , Min as single , x as single ,s as single , p as single Dim i as integer

Max= 0 Min= 10 For i = 1 To 10

x=Val(InputBox(\"请输入分数\")) If (5) Then Max=x If (6) Then Min=x s =s + x Next i s = (7) p = s/8

Print \"最高分\"；Max,\"最低分\"；Min Print \"最后得分\"；p End Sub ◆ 设有如下程序

Private Sub Form_Click()

Dim a As Integer，b As integer a＝20：b=50 pl a，b p2 a，b

Print\"a＝\"；a,\"b＝\"；b End Sub

Sub pl(x As Integer，ByVal y As Integer) x=x+10 y＝y+20

End Sub

Sub p2(byVal x As Integer, y As Integer) x＝x+10 y＝y+20 End Sub

该程序运行后，单击窗体，则在窗体上显示的内容是：a＝__（8）__和b=__（9）___。 ◆ 已知函数Fac，用递归的方法计算n的阶乘n!，阅读程序并填空。 Public Function Fac(n As Integer) As Integer

If n=1 Then

__（10）___ Else

__（11）___

End If End Function

◆ 下列是通过随机函数产生10个范围为 [0,100） 之间的整数，求出这10个数的平均值并输出的程序，请阅读程序并填空。 Private Sub Command1_Click( )

Dim a(1 To 10) As Integer，sum％，ave！ For i=1 To 10 ___（12）___ Next i sum=0 For i=1 To 10 __（13）___ Next i ave=sum/10

Label1.Caption= ave End Sub

◆ 下列程序，判断一个数的奇偶性，阅读程序并填空。 Private Sub Form_Click()

Dim x As Integer x = Val(Text1.Text) If ___（14）___ Then Print \"是奇数\" Else

Print \"是偶数\" End If End Sub

◆ 下列程序是计算π的近似值，计算公式为

261111，其中n值由文本框读入。122232n2阅读程序并填空， Result是标签框的名称 。 Private Sub Command1_Click() Dim sum As Double, pi As Double Dim i As Integer, n As Integer n = Val(Text1.Text) For i = 1 To n

sum = sum + __（15）__ Next i

pi = __（16）__

Result.Caption= \"pi近似值为:\" & Str(pi) End Sub

◆ 在窗体上画一个名称为Commandl的命令按钮，编写如下事件过程， 程序运行后，单击命令按钮，

要求窗体上显示的输出结果如图所示： 请填空：

Private Sub Commandl_C1icK( ) Dim a As String a=__（17）__ For i ＝1 To 5

Print Space(6-i)；Mid$(a，6-i，2*i-1)

Next i

End Sub

一、 选择题

1 D 6 C 13 D 14 A 15 B 16 D 2 A 7 B 3 A 8 B 4 A 9 B 5 A 10 C 11 A 12 C

二、 填空题

（1） Sqr（y^3+3/abs(a*b)） （2） 4

（3） 300 （4） 7 （5）x>max ( 或x>=max)

（6） x0 (或 x mod 2 =1或 x/2<>x\\2 ) （15） 1/i^2 （16） Sqr(6*sum) （17）”1234567” (或1234567 )