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

武汉职业技术学院 《 Visual basic程序设计》试卷一 单项选择题。(共14分,每小题2分) 1下列哪个符号不能作为B中的变量名?() (A)timefly B)pass (C)minimax D)r8 2函数Int(6*RND)1的值是在哪个范围内的整数?( (A)0,6 (B)|0,7 (C)[1,6 3.语句 Dim x as integer作用是将x定义为()变量 (A)单精度型(B)整型(C)布尔型(D)字符型 4.Int←3.14)的值是: (B)-3.14 D)3.14 5没A=7,B=3,C=4,则AMOD3+B^3/C\5的值是 (A)2(B)3(C)4(D)5 6.Len(“ Friend”)的值是() (A)6(B)7(C8(D)9 7. Right(“ banana”,4)的值是() (A)ba (B)banana (C)nana D)ban 二、判断对错。(共15分,每小题1.5分) 正确的打“√“,错误的打“×") 1.语句 Textl. Caption=” Pretty'”的语法是正确的。 2. Input语句产生一个具有提示信息并可供用户输入数据 的对话框 3.语句Dmi, j As Single作用是:将i,j定义为 单精度型变量。 4.复选框列出可供用户选择的选项,用户根据需要只能选定其中 的一项

武汉职业技术学院 《Visual Basic程序设计》试卷一 一、 单项选择题。（共 14 分，每小题 2 分） 1.下列哪个符号不能作为 VB 中的变量名？（ ） (A)timefly (B)pass4 (C)min4max (D)R[8] 2.函数 Int( 6 * RND )+1 的值是在哪个范围内的整数？（ ） (A) [0,6] (B) [0,7] (C) [1,6] (D) [1,7] 3．语句 Dim x As Integer 作用是:将 x 定义为（ ）变量。 (A)单精度型 (B)整型 (C) 布尔型 (D)字符型 4. Int(—3.14)的值是：（ ） (A)—3 (B) —3.14 (C) —4 (D) 3.14 5．设 A=7,B=3,C=4, 则 A MOD 3 + B ^ 3 / C \ 5 的值是（ ） (A) 2 (B) 3 (C) 4 (D) 5 6．Len(“Friend”)的值是（ ） (A) 6 (B) 7 (C)8 (D) 9 7. Right ( “banana”, 4 )的值是（ ） (A) ba (B) banana (C) nana (D) ban 二、 判断对错。（共 15 分, 每小题 1.5 分） (正确的打“√ ”,错误的打“×”) 1．语句 Text1.Caption=”Pretty” 的语法是正确的。 （ ） 2．Input 语句产生一个具有提示信息并可供用户输入数据 的对话框。 （ ） 3．语句 Dim i , j As Single 作用是：将 i, j 定义为 单精度型变量。 （ ） 4．复选框列出可供用户选择的选项，用户根据需要只能选定其中 的一项。 （ ）

5如果使用 Option Base2,则表示缺省的数组下界为2。( 6.下列程序段的语法是正确的。 Redim a(2, 4) Redim preserve a(2, 8) 7.下列程序段的语法是正确的 Select case num 1.2:x=0.15 Case2,3:x=0.42 End select 8.图像框( Image box)的 Stretch(拉伸)属性设为True 时装入的图形可根据图像框的大小自动压缩或扩大。() 9.下列程序段的语法是正确的 If x>0 Then xx+ 2 Else 2 End If 10鼠标左键单击”工具菜单中的”菜单编辑器”菜单项就可打开菜 单编辑器”窗口。 三、将下列命题用ⅴB布尔表达式表示。(共4分,每小题2分) 1.A不等于C,并且B大于C 2.密码为“ happy"或输入次数大于等于3次。其中密码用变 量 password表示,输入次数用变量 count表示 四、写出程序(段)的输出结果。(共10分,每小题5分) 1. Private Sub Commandl click Dim s as integer n as integer m=1 Do While m<=s

5.如果使用 Option Base 2, 则表示缺省的数组下界为 2。（ ） 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 + 2 Else x=x − 2 End If 10.鼠标左键单击”工具”菜单中的”菜单编辑器”菜单项就可打开”菜 单编辑器”窗口。 （ ） 三、 将下列命题用 VB 布尔表达式表示。（共 4 分, 每小题 2 分） 1． A 不等于 C, 并且 B 大于 C。 2． 密码为“happy”或输入次数大于等于 3 次。其中密码用变 量 password 表示，输入次数用变量 count 表示。 四、 写出程序（段）的输出结果。（共 10 分, 每小题 5 分） 1.Private Sub Command1_Click( ) Dim S as integer, N as integer S=0 m=1 Do While m<=5

m=m+1 Loop Labell Caption=Str(s) End Sub 运行程序,单击 Commandl按钮,在下面的 Labell中显示 2. Sub tryout( x As Integer, By Val y As Integer) +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 运行程序,单击窗体 Forml,在窗体上显示: 五、程序填空。(共24分,每空2分) 1.编写一个计算矩形面积的Sub过程,然后调用该过程计算矩形 面积 Private Sub Form Click() Dim AAs Single, BAs(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

S=S+m m=m+1 Loop Label1.Caption=Str(S) End Sub 运行程序，单击 Command1 按钮，在下面的 Label1 中显示 Label1 2. Sub tryout( x As Integer, ByVal 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" Totalarea is"&_(4)“输出矩形面积 End sub (1) (4) 2求1到8的阶乘之和。 Private Sub Commandl click Dim i As IntegerjAs Integer, n As Integer Dim suml As Long, sum2 As Long 5 suml =6 Fori=l ton sum2= ( For i=1 To i sum2= suml= Next i Labell Caption= Labell Caption Str(suml) End sub 3.在下列事件过程中,如果选中复选框1,则文本变成斜体,如果 选中复选框2,则Text的背景色变成蓝色 Private Sub CheckI Click) If Check value=l Then Textl. Fontitalic= (10) Else Textl. fontltalic=False End if End sub Private Sub Check2 Click If Check2 value=l Then Textl.()=vbblue =black

MsgBox "Total Area is " & (4) ‘输出矩形面积 End Sub (1) (2) (3) (4) 2.求 1 到 8 的阶乘之和。 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) =vbBlue Else Text1. (11) =vbBlack

End If End sub 如果选中单选框1,则文本字体为宋体,如果选中单选框2,则文 本字体为黑体。其代码如下 Private Sub Option1 Click() Textl. FontName=(12) End sub Private Sub Option2 Click() Tex1 FontName=”黑体” End sub (10) (11) (12) 六、编程题。(6题中选3题做,共33分) (如果地方不够,可以写在试卷背面,请注明题号) 1.设计一个简单的加减计算器,输入两个数,然后选择所需的运算 符“+"或“-“,其结果显示在一个文本框中(11分) 2利用滚动条去控制窗体的背景色随滚动条的值的改变而改变 (11分) 3.利用标签和计时器设计电子钟。(11分) 4输入某班45名同学的数学成绩并计算该班数学成绩的总分平均 分(11分) 5.利用For循环,在列表框Iitl中显示1-200之间能被4整除 的自然数。(11分) 6.在实际应用中,驱动器列表框、目录列表框和文件列表框往往 需要同步操作,请编写程序使三者同步。(11分)

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) 六、 编程题。（ 6 题中选 3 题做， 共 33 分） （如果地方不够，可以写在试卷背面，请注明题号） 1. 设计一个简单的加减计算器，输入两个数，然后选择所需的运算 符“+”或“− “,其结果显示在一个文本框中。（11 分） 2 利用滚动条去控制窗体的背景色随滚动条的值的改变而改变。 （11 分） 3．利用标签和计时器设计电子钟。 （11 分） 4.输入某班 45 名同学的数学成绩,并计算该班数学成绩的总分,平均 分（11 分） 5. 利用 For 循环，在列表框 List1 中显示 1—200 之间能被 4 整除 的自然数。（11 分） 6． 在实际应用中，驱动器列表框、目录列表框和文件列表框往往 需要同步操作，请编写程序使三者同步。（11 分）

《 Visual basic程序设计》试卷一答案 一、单项选择题。 1D2.C3.B4.C5.A6.B7C 二、判断对错 1.X2.√3.X4.X5.√6.√7.X8.√9X10.√ 三、将下列命题用ⅤB布尔表达式表示 IACAnd B>C 2. password=happy or count=3 四、写出程序(段)的输出结果

《Visual Basic 程序设计》试卷一答案 一、单项选择题。 1.D 2.C 3.B 4.C 5.A 6.B 7.C 二、 判断对错。 1. X 2. √ 3.X 4.X 5. √ 6. √ 7. X 8. √ 9.X10. √ 三、将下列命题用 VB 布尔表达式表示。 1.A<>C And B>C 2.password=”happy” or count>=3 四、写出程序（段）的输出结果

2. x=110 y=120 a=110 五、程序填空 (1) Single (2)a 3)RlenRwid (4)Area (5)8)0(7)1 (8)sum2 j (9)suml+sum2 (o)True 11)Back Color (12) 宋体” 六、编程题。 1.即:书上30页例17 Private Sub IblAdd Click Dim sl, s2, add As single sl= val(Text.Text) s2= Val(Text2Text) add=sl+s2 txtResultText= str(add) End sub Private Sub IblRemove Click) Dim sl s2. s as single sl= Val(Text.Text) s2= Val(Text2Text) txtResultText= Str(s) End sub 2.即:书上112页46题 Private Sub HScroll Change( Label2 Caption HScroll. value Forml Back Color RGB(Scroll Value, HScroll Value

1. 15 2. x= 110 y= 120 a= 110 b= 20 五、程序填空。 (1) Single (2) A (3) Rlen*Rwid (4) Area (5) 8 (6) 0 (7) 1 (8) sum2*j (9)sum1+sum2 (10)True (11) BackColor (12)” 宋体” 六、编程题。 1. 即：书上 30 页例 1.7 Private Sub lblAdd_Click( ) Dim s1, s2, add As Single s1 = Val(Text1.Text) s2 = Val(Text2.Text) add = s1 + s2 txtResult.Text = Str(add) End Sub Private Sub lblRemove_Click( ) Dim s1, s2, s As Single s1 = Val(Text1.Text) s2 = Val(Text2.Text) s = s1 - s2 txtResult.Text = Str(s) End Sub 2. 即：书上 112 页 4.6 题 Private Sub HScroll1_Change( ) Label2.Caption = HScroll1.Value Form1.BackColor = RGB(HScroll1.Value, HScroll2.Value

HScroll value) End sub Private Sub hScroll Change( Label4. Caption= hScroll value Forml Back Color RGB(HScrolll. Value, HScroll Value. HScroll value) End sub Private Sub hScroll Change( Label6. Caption= HScrol3 value Forml BackColor RGB(HScrolll.Value, HScroIn2 value, HScrolL value) End sub 3.即:书上106页例49 Private Sub Timer Timer( Label2 Caption= NowO End sub 4.即:书上122页例55 Private Sub Commandl Click( Dim score(l To 5) As single Dim i As Integer, sum As single Dim aver As single strl As string 0 Fori=1 To 5 str="请输入第"+Str(+"门课的成绩:" score(i)=val( inpuTbox(str1,"输入成绩") sum= sum score(i) ver= sum /5 Labell Caption= Labell Caption+ Str(sum)

HScroll3.Value) End Sub Private Sub HScroll2_Change( ) Label4.Caption = HScroll2.Value Form1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub Private Sub HScroll3_Change( ) Label6.Caption = HScroll3.Value Form1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub 3. 即：书上 106 页例 4.9 Private Sub Timer1_Timer( ) Label2.Caption = Now() End Sub 4. 即：书上 122 页例 5.5 Private Sub Command1_Click( ) Dim score(1 To 5) As Single Dim i As Integer, sum As Single Dim aver As Single, str1 As String sum = 0 For i = 1 To 5 str1 = "请输入第" + Str(i) + "门课的成绩：" score(i) = Val(InputBox(str1, "输入成绩")) sum = sum + score(i) Next i aver = sum / 5 Label1.Caption = Label1.Caption + Str(sum)

Label2 Caption= Label2 Caption Str(aver) End sub 5. Private Sub Commandl Click DimiAs integer List. clear For i= 40 To 300 Ifi Mod 7=0 Then listladdltem i End sub 6.即:书上21l页例95的主要部分 Private Sub Dirl Changeo Filel Path= Dirl Path"设置文件列表框路径 End sub Private Sub Drivel Changeo) Dirl Path= drivel.Drive 使目录列表框中的路径与驱动器列表同步变化 End sub

Label2.Caption = Label2.Caption + Str(aver) End Sub 5. Private Sub Command1_Click( ) Dim i As Integer List1.Clear For i = 40 To 300 If i Mod 7 = 0 Then List1.AddItem i Next i End Sub 6. 即：书上 211 页例 9.5 的主要部分 Private Sub Dir1_Change( ) File1.Path = Dir1.Path '设置文件列表框路径 End Sub Private Sub Drive1_Change( ) Dir1.Path = Drive1.Drive '使目录列表框中的路径与驱动器列表同步变化 End Sub