武汉职业技术学院 《Visual Basic程序设计》试卷二 单项选择题。（共14分，每小题2分） 1.下列哪个符号不能作为VB中的变量名？（ ） (A)wash (B)CET4 (C)fh (D)a[ 3] 2.函数Int( 6 * RND )+1的值是在哪个范围内的整数？（ ） (A) [0,6] (B) [0,7] (C) [1,6] (D) [1,7] 3．语句Dim x As Single作用是:将x定义为（ ）变量。 (A)单精度型 (B)整型 (C) 布尔型 (D)字符型 4. Int(—6.24)的值是：（ ） —6 (B) —6.14 (C) —7 (D) 6.24 5．设A=7, 则A MOD 3 的值是（ ） (A) 7 (B) 1 (C) 3 (D) 5 6．Len(“Goodbaby”)的值是（ ） 6 (B) 7 (C)8 (D) 9 7. Left ( “banana”, 2 )的值是（ ） (A) ba (B) banana (C) nana (D) ban 判断对错。（共 15 分, 每小题1.5分） (正确的打“√”,错误的打“×”) 1．语句Text1.Caption=”pencil” 的语法是正确的。 （ ） 2．MsgBox语句产生一个具有提示信息并可供用户输入数据 的对话框。 （ ） 3．语句Dim number As String*8 作用是：将number定义为 定长字符型变量。 （ ） 4．复选框列出可供用户选择的选项，用户根据需要只能选定其中的一项。 （ ） 5.如果使用Option Base 1, 则表示缺省的数组下界为1。（ ） 6．下列程序段的语法是正确的。 （ ） Redim a ( 2 , 4 ) …… Redim preserve a ( 2 , 8 ) 7. 下列程序段的语法是正确的。 （ ） Select Case num Case 1, 2: x=0.15 Case 2, 3: x=0.42 End Select 8．图像框（ImageBox）的Stretch（拉伸）属性设为True 时,装入的图形可根据图像框的大小自动压缩或扩大。（ ） 9．下列程序段的语法是正确的。 （ ） If x > 0 Then x=x + 9 Else x=x ?9 End If 10.鼠标左键单击”工具”菜单中的”菜单编辑器”菜单项就可打开”菜单编辑器”窗口。 （ ） 将下列命题用VB布尔表达式表示。（共 4分, 每小题2分） A大于等于C。 输入次数小于3次 (“输入次数”用变量n表示) 写出程序（段）的输出结果。（共 10 分, 每小题5分） 1.Private Sub Command1_Click( ) Dim S as integer, N as integer i=1 sum=0 Do While i<=100 sum=sum+i i=i+1 Loop Label1.Caption=Str(S) End Sub 运行程序，单击Command1按钮，在下面的Label1中显示 Label1 Sub tryout( x As Integer, y As Integer) x=x+100 y=y*6 Print “x=” ; x , ”y=” ; y End Sub Sub Form_Click( ) Dim a As Integer, b As Integer a=10: b=20 tryout a , b Print “a=” ; a , ”b=” ; b End Sub 运行程序，单击窗体Form1，在窗体上显示: 程序填空。（共 24 分, 每空2分） 1．编写一个计算矩形面积的Sub过程，然后调用该过程计算矩形面积。 Private Sub Form_Click( ) Dim A As Single, B As (1) A = Val(InputBox("What is the length? ")) B =Val( InputBox("What is the width? ")) Call Recarea ( (2) , B ) End Sub Sub Recarea(Rlen As Single, Rwid As Single) Dim Area As Single Area = (3) MsgBox "Total Area is " & (4) ‘输出矩形面积 End Sub (1) (2) (3) (4) 2.求1到6的阶乘之和。 Private Sub Command1_Click() Dim i As Integer, j As Integer, n As Integer Dim sum1 As Long, sum2 As Long n = (5) sum1 = (6) For i = 1 To n sum2 = (7) For j = 1 To i sum2 = (8) Next j sum1 = (9) Next i Label1.Caption = Label1.Caption + Str(sum1) End Sub (5) (6) (7) (8) (9) 3. 在下列事件过程中，如果选中复选框1，则文本变成斜体，如果选中复选框2，则Text1的前景色变成红色。 Private Sub Check1_Click( ) If Check1.Value=1 Then Text1. FontItalic= (10) Else Text1.FontItalic=False End If End Sub Private Sub Check2_Click( ) If Check2.Value=1 Then Text1. (11) =vbRed Else Text1. (11) =vbBlack End If End Sub 如果选中单选框1，则文本字体为宋体，如果选中单选框2，则文本字体为黑体。其代码如下： Private Sub Option1_Click( ) Text1.FontName= (12) End Sub Private Sub Option2_Click( ) Text1.FontName=”黑体” End Sub (10) (11) (12) 编程题。（ 5题中选3题做， 共33分） （如果地方不够，可以写在试卷背面，请注明题号） 1. 在窗体上画一个标签,标签框的边框风格属性值为1( BorderStyle属性值为1—Fixed Single ),单击窗体时,在标签框中显示”VISUAL BASIC” 字样。（11分） 2．窗口的下部有3个命令按钮，其中左边按钮中标有“单击”，中间按钮中标有“清屏”，右边按钮中标有“结束”。当单击鼠标左边按钮时，屏幕上部的文本框中显示“欢迎使用VB6.0”，若单击中间按钮，清除文本框中的内容，若单击右边的按钮，则程序结束。（11分） 3．利用标签和计时器设计电子钟。 （11分） 4. 用InputBox输入球体的半径，然后计算球体的体积。（11分） 5．试编程将学生的百分制成绩转换成等级制，90分以上为“A”等，80—89分为“B”等，70--79分为“C”等，60分以下为D等。（11分） 《Visual Basic程序设计》试卷二答案 单项选择题。 1.D 2.C 3. A 4. C 5.B 6.C 7.A 判断对错。 1.X 2.X 3. √ 4.X 5. √ 6. √ 7.X 8. √ 9.X 10. √ 将下列命题用VB布尔表达式表示。 1. A>=C 2. n< 3 四、写出程序（段）的输出结果。 1. 5050 2. x= 110 y= 120 a= 110 b= 120 程序填空。 (1) Single (2) A (3) Rlen*Rwid (4) Area (5) 6 (6) 0 (7) 1 (8) sum2*j (9)sum1+sum2 (10)True (11) ForeColor (12)”宋体” 编程题。 即：书上36页1.6题 Private Sub Form_Click() Label1.Caption = "VISUAL BASIC" End Sub 即：书上17页 例1.1 Private Sub Command1_Click() Text1.Text = "欢迎使用VB6.0" End Sub Private Sub Command2_Click() Text1.Text = "" End Sub Private Sub Command3_Click() End End Sub 即：书上106页例4.9 Private Sub Timer1_Timer( ) Label2.Caption = Now() End Sub 即：书上64页例2.8 Private Sub Command1_Click() Dim r As Single, v As Single Const PI = 3.14 r = Val(InputBox("请输入球体半径", "球体半径", 0)) v = 4 / 3 * PI * r ^ 3 Label1.Caption = Label1.Caption + Str(v) End Sub 即：书上89页3.4题 Private Sub Command1_Click() Dim score As Integer Dim result As String score = Val(Text1.Text) Select Case Int(score) Case 0 To 59 result = "D" Case 60 To 79 result = "C" Case 80 To 89 result = "B" Case 90 To 100 result = "A" Case Else MsgBox "输入数据错误，请重新输入！" Text1.Text = "" Text1.SetFocus End Select Label2.Caption = result End Sub Private Sub Text1_Change() Label2.Caption = "" End Sub