武汉职业技术学院 《Visual Basic程序设计》试卷三 单项选择题。（共16分，每小题2分） 1.数学式子sin30°写成VB表达式是（ ） (A)Sin30 (B) Sin(30) (C)Sin(30°) (D) Sin(30*3.14/180) 2.数学表达式 X2+3XY对应的VB算术表达式是：（ ） X+3X*Y X*X+3XY X*X+3*X*Y 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” )的值是（ ） 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.可以使用CommonDialog控件的ShowFont方法来显示“打开”对话框。 （ ） 8．画弧语句中如果省掉纵横比或纵横比等于1，则画的是圆弧，否则画的是椭圆的一部分。 （ ） 9．下列程序段的语法是正确的。 （ ） For I = 1 To 10 S = S + 2 Next K 10. Str(number)功能是将给定数值表达式number的值转换为字符串。 （ ） 将下列命题用VB布尔表达式表示。（共 4分, 每小题2分） P 是偶数。 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 运行程序，单击Command1按钮，在下面的Label1中显示 Label1 程序填空。（共 24 分, 每空2分） 编写一个对输入字符进行转换的程序。转换规则为，将其中的大写 字母转换成小写字母，小写字母转换成大写字母，空格不转换，其余转换成“＊“。要求每输入一个字符，马上就进行判断和转换。 “输入字符串“文本框对象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) (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 Option1_Click( ) Text1.FontName=”宋体” End Sub Private Sub Option2_Click( ) Text1.FontName= (12) End Sub (10) (11) (12) 编程题。（共36分） 1. 输入3个数，输出其中最大的数。（9分） 建立一个水平滚动条，其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 ) 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 = "欢迎进入本系统" '如正确，则窗体的标题设为"欢迎进入本系统" 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