武汉职业技术学院 《 Visual basic程序设计》试卷三 单项选择题。(共16分,每小题2分) 1数学式子sin30°写成VB表达式是() (A)Sin30(B)Sin(30)(CSin(30°)(D)Sin(30*3.14/180) 2数学表达式X2+3XY对应的B算术表达式是 (A)X+3XY (B)X*X+3XY (C)X*X+3*XY )X*X+3*XY 3.语句 Dim Sum As Integer作用是将Sum定义为()变量 (A整型(B)单精度型(C)布尔型(D)字符型 4.Sgn(45)的值是:( (A)0 B)20 C)I 5.下列符号哪一个是ⅤB中的合法变量名?() (A)78WE B)SUB (C)X6Y(D)X35 6.表达式2*3∧2+2*63的值是( (A)60(B)22(C)45(D)58 7. L Case(This”)的值是( (A)This (B)THis (C)THIS ( D)this 8.Le( HELLO,2)的值是() (A)HE (B)LO (C)HELLO D)LLO 二、判断对错。(共15分,每小题1.5分) (正确的打“√”错误的打“×") 1.语句 Labell! Caption=' Thank you'的语法是正确的。 2.命令按钮的常见事件有单击(Cick)、双击 blClick斧等事件。() 3.语句 Dim Name As single作用是:将Name定义为布尔型变量
武汉职业技术学院 《Visual Basic程序设计》试卷三 一、单项选择题。（共 16 分，每小题 2 分） 1.数学式子 sin30°写成 VB 表达式是（ ） (A)Sin30 (B) Sin(30) (C)Sin(30°) (D) Sin(30*3.14/180) 2.数学表达式 X 2+3XY 对应的 VB 算术表达式是：（ ） (A)X+3X*Y (B)X*X+3XY (C)X*X+3*X*Y (D)X*X+3*XY 3．语句 Dim Sum As Integer 作用是:将 Sum 定义为（ ）变量。 (A)整型 (B) 单精度型 (C) 布尔型 (D)字符型 4. Sgn( 45 ) 的值是：（ ） (A) 0 (B) 20 (C) 1 (D) —1 5．下列符号哪一个是 VB 中的合法变量名？（ ） (A) 78WE (B) SUB (C) X6[Y] (D) X35 6．表达式 2*3∧2+2*6/3 的值是（ ） (A) 60 (B) 22 (C) 45 (D) 58 7．LCase( “This” )的值是（ ） (A)This (B) THis (C) THIS (D)this 8. Left ( “HELLO”, 2 )的值是（ ） (A) HE (B) LO (C) HELLO (D) LLO 二、 判断对错。（共 15 分, 每小题 1.5 分） (正确的打“√ ”,错误的打“×”) 1．语句 Label1.Caption =”Thank you!”的语法是正确的。 （ ） 2．命令按钮的常见事件有单击(Click)、双击(DblClick)等事件。 （ ） 3．语句 Dim Name As Single 作用是：将 Name 定义为布尔型变量。 （ ）
4.单选框列岀可供用户选择的选项,用户根据需要只能选定其中的-项。 5.随机文件是以记录为单位的,每条记录都被赋予了记录号以便查找。 6执行工具菜单中的菜单编辑器命令就可打开菜单编辑器窗口。() 7可以使用 Common Dialog控件的 ShowFont方法来显示“打开”对话框。 8.画弧语句中如果省掉纵横比或纵横比等于1,则画的是圆弧,否则画的是 椭圆的—部分。 9.下列程序段的语法是正确的。( ForI=1 To 10 S=S+2 Next K 10.Sr( number)功能是将给定数值表达式 number的值转换为字符串。 三、将下列命题用ⅤB布尔表达式表示。(共4分,每小题2分) 1.P是偶数。 2.C比A、B都大 四、写出程序(段)的输出结果。(共5分) Private Sub Commandl Click Dim S as integer, n as integer N=1 Do while n<=4 N=N+1 Lc Labell Caption=S End sub
4．单选框列出可供用户选择的选项，用户根据需要只能选定其中的一项。 （ ） 5. 随机文件是以记录为单位的，每条记录都被赋予了记录号以便查找。 6．执行”工具”菜单中的”菜单编辑器”命令就可打开菜单编辑器窗口。（ ） 7.可以使用 CommonDialog 控件的 ShowFont 方法来显示“打开”对话框。 （ ） 8．画弧语句中如果省掉纵横比或纵横比等于 1，则画的是圆弧，否则画的是 椭圆的一部分。 （ ） 9．下列程序段的语法是正确的。 （ ） For I = 1 To 10 S = S + 2 Next K 10. Str(number)功能是将给定数值表达式 number 的值转换为字符串。 （ ） 三、 将下列命题用 VB 布尔表达式表示。（共 4 分, 每小题 2 分） 1． P 是偶数。 2． C 比 A、B 都大。 四、 写出程序（段）的输出结果。（共 5 分） Private Sub Command1_Click( ) Dim S as integer, N as integer S=0 N=1 Do while N<=4 S=S+N N=N+1 Loop Label1.Caption=S End Sub
运行程序,单击 Commandl按钮,在下面的 Labell中显示 Labell 五、程序填空。(共24分,每空2分) 1.编写一个对输入字符进行转换的程序。转换规则为,将其中的大写 字母转换成小写字母,小写字母转换成大写字母,空格不转换,其余转换成 *"。要求每输入一个字符,马上就进行判断和转换 “输入字符串“文本框对象 TextI对应的 Key Press事件代码为 Private Sub Textl Key Press(KeyAscii As Integer) Dim aa As (1) aa= Chrs(Key Ascii) Select case aa Case"A"To"Z 大写转换成小写 aa= Chrs(KeyAscii+ 32) Case"a"To"z 小写转换成大写 Case" Case Else a=_(3) En nd select Text2. Text= Text2 Text aa End Sub 清屏按钮 Command l的 Click事件代码为 Private Sub Commandl Click Text 1. Text= Text2. Text End Sub “结束按钮 Command的 Click事件代码为 Private Sub Command2 Click End Sub (1)
运行程序，单击 Command1 按钮，在下面的 Label1 中显示 Label1 五、 程序填空。（共 24 分, 每空 2 分） 1. 编写一个对输入字符进行转换的程序。转换规则为，将其中的大写 字母转换成小写字母，小写字母转换成大写字母，空格不转换，其余转换成 “＊“。要求每输入一个字符，马上就进行判断和转换。 “输入字符串“文本框对象 Text1 对应的 KeyPress 事件代码为： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim aa As (１) aa = Chr$(KeyAscii) Select Case aa Case "A" To "Z" ‘大写转换成小写 aa = Chr$(KeyAscii + 32) Case "a" To "z" ‘小写转换成大写 aa = (２) Case " " aa = " " Case Else aa = (３) End Select Text2.Text = Text2.Text & aa End Sub “清屏”按钮 Command1 的 Click 事件代码为： Private Sub Command1_Click() Text1.Text = "" Text2.Text = "" End Sub “结束”按钮 Command2 的 Click 事件代码为： Private Sub Command2_Click() (４) End Sub (1) (2)
(3) 2求1到6的阶乘之和。 Function fact(x as integer )as long Dim P as long, i as integer Forl to x P=(6 Next I P End function Private Sub Commandl Click( Dim sum as long, I as integer For l=l to(8 Sum=(9 Next I Label2. captionsum End sub (6) (9) 3.在下列事件过程中,如果选中复选框1,则文本变成斜体,如果选中复选 框2,则文本变成红色 Private Sub Check1 Click( If Check l value=l Then Textl. Fontltalic= (10) Else Text1. Fontltalic=False End If End Sub Private Sub Check2 Click If Check 2. value=l Then Text1.(11=brEd Else Text1.(11=vbBlack End if End Sub 如果选中单选框1,则文本字体为宋体,如果选中单选框2,则文本字体为
(3) (4) 2.求 1 到 6 的阶乘之和。 Function fact(x as integer) as long Dim P as long, I as integer P= (5) For I=1 to x P= (6) Next I (7) = P End Function Private Sub Command1_Click( ) Dim sum as long, I as integer For I=1 to (8) Sum= (9) Next I Label2.caption=sum End sub (5) (6) (7) (8) (9) 3. 在下列事件过程中，如果选中复选框 1，则文本变成斜体，如果选中复选 框 2，则文本变成红色。 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 Option Click( Text1 FontName=”宋体” End sub Private Sub Option2 Click( Textl. FontName=(12) End Sub (10) (11) (12) 六、编程题。(共36分) 1.输入3个数,输出其中最大的数。(9分 2.建立一个水平滚动条,其Max属性为25,Mn属性为0, SmallChange属性为1, Large Change属性为20,ale属性初始值为50。另 有一个文本框,它显示滑块当前位置的值。(9分) 3.用 InputBox输入长和宽,求长方形的周长。(9分) 4.利用文本框和命令按钮控件制作密码框。(9分) 《 Visual basic程序设计》试卷三答案 单项选择题 1.D2.C3.A4.C5.D6.B7.D8.A 二、判断对错。 1.√2.X3X4.√5.√6.√7.X8.√9X10.√ 将下列命题用ⅤB布尔表达式表示 1.(P Mod 2=0) and (P>0) 2.(C>A)And( c>B) 四、写出程序(段)的输出结果。 10 五、程序填空
隶书。其代码如下： Private Sub Option1_Click( ) Text1.FontName=”宋体” End Sub Private Sub Option2_Click( ) Text1.FontName= (12) End Sub (10) (11) (12) 六、 编程题。（共 36 分） 1. 输入 3 个数，输出其中最大的数。（9 分） 2. 建立一个水平滚动条，其 Max 属性为 255，Min 属性为 0， SmallChange 属性为 1，LargeChange 属性为 20，Value 属性初始值为 50。另 有一个文本框，它显示滑块当前位置的值。 （9 分） 3. 用 InputBox 输入长和宽，求长方形的周长。（9 分） 4. 利用文本框和命令按钮控件制作密码框。（9 分） 《Visual Basic 程序设计》试卷三答案 一、单项选择题。 1. D 2. C 3. A 4. C 5. D 6. B 7. D 8. A 二、判断对错。 1．√ 2. X 3.X 4. √ 5. √ 6. √ 7.X 8. √ 9.X 10. √ 三、 将下列命题用 VB 布尔表达式表示。 1. (P Mod 2=0 ) and ( P>0 ) 2. (C>A ) And ( C>B) 四、写出程序（段）的输出结果。 10 五、 程序填空
(1) String*1 (2)ChrS( KeyAscii -32)(3)" *33(4)Unload Me 5)1(6)P*I(7)fact (8(9)Sum+fact(1) (10)True(1) Fore Color(12)隶书 六、编程题。 1. Private Sub Commandl Click() Dim a As Single, b As Single, c As Single, max As Single a= Val(TextI Text) b= val(Text2 Text) c=Val(Text3 Text) Ifa> b Then max= a Else max= b End lf Ifc> max Then maX-c End lf Label4 Caption="最大的数是:"+Str(max) End sub 2. Private Sub Form Load( HScroll max=255 HScrolll. Min=o HScrolll. smallChange=1 HScrolll. Large Change=20 HScrolll. value= 50 End sub Private Sub HScroll Change( TextI Text= Str(HScrolll Value) End Sub 3. Private Sub Command1 Click Dim length As Single, width As Single Dim c As single length=val( InputBox("请输入长方形的长","数据输入") width=val( nput Box("请输入长方形的宽”,"数据输入") c=2*(length width Labell Caption=Labell Caption+ Str(c)
（1）String*1 (2 ) Chr$(KeyAscii − 32) （3）”*” (4) Unload Me (5) 1 (6) P*I (7) fact (8) 6 (9) Sum+fact( i ) (10) True (11) ForeColor (12) “隶书” 六、 编程题。 1．Private Sub Command1_Click( ) Dim a As Single, b As Single, c As Single, max As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a > b Then max = a Else max = b End If If c > max Then max = c End If Label4.Caption = "最大的数是：" + Str(max) End Sub 2．Private Sub Form_Load( ) HScroll1.Max = 255 HScroll1.Min = 0 HScroll1.SmallChange = 1 HScroll1.LargeChange = 20 HScroll1.Value = 50 End Sub Private Sub HScroll1_Change( ) Text1.Text = Str(HScroll1.Value) End Sub 3. Private Sub Command1_Click() Dim length As Single, width As Single Dim c As Single length = Val(InputBox("请输入长方形的长", "数据输入")) width = Val(InputBox("请输入长方形的宽", "数据输入")) c = 2 * (length + width) Label1.Caption = Label1.Caption + Str(c)
End Sub 4. Private Sub Command1 Click( If Text1. Text="1111"Then 采用IF语句对输入密码正确与否进核对 Form1 Caption="欢迎进入本系统 如正确,则窗体的标题设为"欢迎进入本系统 Forml Back Color=vb Yellow 窗体的背景颜色设为黄色 Labell visible= True 设"欢迎进入本系统"的红色标签为可见状态 Command l visible= False 设 Command l和 Command2为不可见 Command2. Visible= False Text1. Visible= False 设Tetl为不可见 Else Form1. Caption="密码错,请重新输入" 如密码错,窗体标题设为"密码错,请重新输入 End lf End Sub Private Sub Command2 Click( End End Sub
End Sub 4. Private Sub Command1_Click() If Text1.Text = "1111" Then '采用 IF 语句对输入密码正确与否进核对 Form1.Caption = "欢迎进入本系统" '如正确，则窗体的标题设为"欢迎进入本系统" Form1.BackColor = vbYellow '窗体的背景颜色设为黄色 Label1.Visible = True '设"欢迎进入本系统"的红色标签为可见状态 Command1.Visible = False '设 Command1 和 Command2 为不可见 Command2.Visible = False Text1.Visible = False '设 Text1 为不可见 Else Form1.Caption = "密码错，请重新输入" '如密码错，窗体标题设为"密码错，请重新输入" End If End Sub Private Sub Command2_Click() End End Sub