武汉职业技术学院：《Visual Basic程序设计》试卷二

武汉职业技术学院 《 Visual basic程序设计》试卷二 、单项选择题。(共14分,每小题2分) 1下列哪个符号不能作为ⅤB中的变量名?() (A)wash (BCET4(C)fh D )a[3] 2函数Int(6*RND)1的值是在哪个范围内的整数?( (A)0,6](B)10,7 (C)1,6 D)[,7 3.语句 Dim x as single作用是将x定义为()变量 (A)单精度型(⑧B)整型()布尔型(D序字符型 4.Int(6,24)的值是:( (B)-6.14 (C)-7 D)624 5.设A=7,则AMOD3的值是 (A)7(B)1(C)3①)5 6.Len(“ Goodbaby”)的值是( (A)6(B)7(C)8(D)9 7.Left(“ banana”,2)的值是() (A)ba B)banana (C)nana D)ban 判断对错。(共15分,每小题1.5分) 正确的打“v",错误的打“×") 1.语句 Textl. Caption=” pencil”的语法是正确的 2. MsgBox语句产生一个具有提示信息并可供用户输入数据 的对话框。() 3.语句 Dim number as string*8作用是:将 number定义为 定长字符型变量。 4.复选框列岀可供用户选择的选项,用户根据需要只能选定其中的一项。 5如果使用 Option Base1,则表示缺省的数组下界为1。() 6.下列程序段的语法是正确的。 Redim a (2,4) Redim preserve a (2,8) 7.下列程序段的语法是正确的。() Select Case nu Case1,2:x=0.15 Case2,3:x=0.42

武汉职业技术学院 《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)的值是：（ ） (A)—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”)的值是（ ） (A) 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 EndI 10:鼠标左键单击”工具”菜单中的”菜单编辑器”菜单项就可打开”菜单编辑器”窗 口 三、将下列命题用ⅴB布尔表达式表示。(共4分,每小题2分) A大于等于C。 2.输入次数小于3次(“输入次数用变量n表示) 四、写出程序(段)的输出结果。(共10分,每小题5分) 1. Private Sub Commandl Click Dim s as integer n as integer sum=0 Do While <<=100 sum=sum+i Fi+l Labell Caption=Str(s) End sub 运行程序,单击 Command1按钮,在下面的 Labell中显示 Labell 2. Sub tryout( x As Integer, y As Integer) x+100 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,在窗体上显示

End Select 8．图像框（ImageBox）的 Stretch（拉伸）属性设为 True 时,装入的图形可根据图像框的大小自动压缩或扩大。（ ） 9．下列程序段的语法是正确的。 （ ） If x > 0 Then x=x + 9 Else x=x −9 End If 10.鼠标左键单击”工具”菜单中的”菜单编辑器”菜单项就可打开”菜单编辑器”窗 口。 （ ） 三、 将下列命题用 VB 布尔表达式表示。（共 4 分, 每小题 2 分） 1． A 大于等于 C。 2． 输入次数小于 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 2. 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 AAs Single, BAs D) 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 Msg Box Total Area is 4 输出矩形面积 End sub (2) (4) 2求1到6的阶乘之和 Private Sub Commandl click Dim iAs Integer,jAs Integer, n As Integer Dim suml As Long, sum2 As Long 5) suml=(6 Fori=l ton sum2=7 sum2 Next i Labell Caption= Labell Caption+ Str(suml) End sub (9) 3.在下列事件过程中,如果选中复选框1,则文本变成斜体,如果选中复选框2, 则Tex1的前景色变成红色 Private Sub CheckI Click) If Check value=l Then Textl. Fontltalic=(10 Else Textl. Fontltalic=False

五、 程序填空。（共 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=l Then Textl.(I1=brEd Else Textl.(11-vbBlack End lif 如果选中单选框1,则文本字体为宋体,如果选中单选框2,则文本字体为黑体。 其代码如下 Private Sub Option Click() Textl. FontName= (12) Private Sub Option2 Click() Tex1 FontName=”黑体” End sub (11) (12) 六、编程题。(5题中选3题做,共3分) (如果地方不够,可以写在试卷背面,请注明题号) 1.在窗体上画一个标签标签框的边框风格属性值为1( Borderstyle属性值为 1- Fixed Single,单击窗体时在标签框中显示”Ⅴ ISUAL BASIC”字样。(11 分) 2.窗口的下部有3个命令按钮,其中左边按钮中标有“单击”,中间按钮中标有 清屏″,右边按钮中标有“结束"。当单击鼠标左边按钮时,屏幕上部的文本框 中显示“欢迎使用ⅴB6.0″,若单击中间按钮,清除文本框中的内容,若单击右 边的按钮,则程序结束。(11分) 3.利用标签和计时器设计电子钟。(11分) 4.用 InputBox输入球体的半径,然后计算球体的体积。(11分) 5.试编程将学生的百分制成绩转换成等级制,90分以上为“A"等,8089分 为“B"等,70-79分为“C″等,60分以下为D等。(11分)

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程序设计》试卷二答案 、单项选择题。 1D2.C3.A4.C5.B6.C7.A 、判断对错。 1X2x3.√4.X5.V6.√7X8.√9.X10.√ 三、将下列命题用ⅴB布尔表达式表示 1.A>=C2. 四、写出程序(段)的输出结果 1.5050 2. X=110 120 a=110 120 五、程序填空 (1) Single (2)a 3)Rlen*Rwid (4)Area (5)6(6)0(7)1 (8)um2 (9)suml+sum2 (O)True (I) ForeColor (12)”宋体

《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)”宋体

六、编程题 1.即:书36页1.6题 Private Sub Form Click Labell Caption=VISUAL BASIC End sub 2.即:书上17页例1.1 Private Sub Commandl click Tex1Text="欢迎使用VB6.0 End sub Private Sub Command2 Click Text. Text= End sub Private Sub Command3 Click End sub 3.即:书上106页例49 Private Sub Timer Timer( Label2 Caption= NowO End sub 4.即:书上64页例28 Private Sub Commandl click Dim r As single v As single Const pi=3. 14 r=Va( (nputBox("请输入球体半径","球体半径",0) v=4/3*PI*r^3 Labell Caption= Labell Caption Str(v) End sub 5.即:书上89页3.4题 Private Sub Commandl click Dim score as Integer Dim result as string score Val(TextIText)

六、编程题。 1. 即：书上 36 页 1.6 题 Private Sub Form_Click() Label1.Caption = "VISUAL BASIC" End Sub 2. 即：书上 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 3. 即：书上 106 页例 4.9 Private Sub Timer1_Timer( ) Label2.Caption = Now() End Sub 4. 即：书上 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 5. 即：书上 89 页 3.4 题 Private Sub Command1_Click() Dim score As Integer Dim result As String score = Val(Text1.Text)

Select Case Int(score Case o To 59 result="Dw Case 60To 7 Case 80 To 89 esult= B Case 90 To 100 result= A' Case else MsgBox"输入数据错误,请重新输入!" Text.Text TextI SetFocus End select Laben Caption = result End Sub Private Sub TextI Changeo Label2 Caption End sub

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