1、VB笔试章节练习试卷 18及答案与解析 1 以下叙述中正确的是 _。 （ A） KeyAscii 参数返回所按键的 ASCII码 （ B） KeyAscii 参数的数据类型为字符串 （ C） KeyAscii 参数与 KeyCode 参数的返回值相同 （ D）在 KeyPress事件过程中， KeyAscii参数可以省略 2 在 KeyUp 事件过程中，通过 KeyCode 参数判断用户的按键。假定键 “B”的 KeyCode值为 66，则以下正确的说法是 _。 （ A）按 Shift+ B键后的 KeyCode值为 66+1 （ B）按 Shift+ B、 Ctrl+ B、 Alt+ B键后
2、的 KeyCode值均为 66 （ C）按 Ctrl+ B键后的 KeyCode值为 66+2 （ D）按 Alt+ B键后的 KeyCode值为 66+4 3 编写如下事件过程； Private Sub Form_ MouseDown (Button As Integer, Shift As Integer, X As Single, Y As SinglE)If Shift = 6 And Button = 1 Then Print “BBBB“ End If End Sub程序运行后，为了在窗体上输出 “BBBB”，应执行的操作为 _。 （ A）同时按下 Shift 键和鼠标左键 （ B
3、）同时 Ctrl、 Alt 键和鼠标左键 （ C）同时按下 Shift 键和鼠标右键 （ D）同时按下 Ctrl、 Alt 键和鼠标左键 4 以下叙述中错误的是 _。 （ A）在 KeyUp和 KeyDown 事件过程中，从键盘上输入的 A和 a被视作相同的字母 (具有相同的 KeyCodE) （ B）在 KeyUp 和 KeyDown 事件过程中，将键盘上的 1和右侧小键盘上的 “1”视作不同的数字 (具有不同的 KeyCodE) （ C） KeyPress 事件中不能识别键盘上键的按下与释放 （ D） KeyPress 不能识别回车键 5 在窗体上画一个名称为 Text1的文本框，然后编写
4、如下事件过程： Private Sub Text1_ KeyPress (KeyAscii As Integer) Dim ch As String ch = Chr (KeyAscii) KeyAscii = Asc (UCase(ch) TextText = String(1, KeyAscii) End Sub程序运行后，使文本框拥有焦点，然后按键盘上的 B键，则在文本框中显示的内容是 _。 （ A） b （ B） bb （ C） BB （ D） B 6 在窗体上画一个名称为 Text1的文本框，要求文本框只能接收大写字母的输入。以下能够正确实现该操作的事件过程是 _。 （ A） Pri
5、vate Sub Text1_ KeyPress (KeyAscii As Integer) IfKeyAscii 65 Or KeyAscii 9t Then MsgBox “请输入大写字母 ” End If End sub （ B） Private Sub Text1_ KeyDown (KeyCode As Integer, Shift As Integer) IfKeyCode 65 Or KeyCode 91 Then MsgBox “请输入大写字母 ” End If End sub （ C） Private Sub Text1_ MouseDown (Button As Integ
6、er, _ Shift As Integer, X As Single, YAs SinglE)IfAsc (Text1.Text) 65 Or Asc (Text1. Text) 91 Then MsgBox “请输入大写字母 ” End If End sub （ D） Private Sub Text1_ Change() IfAsc(Text 1.Text) 65 Or Asc(Text1. Text) 91 Then MsgBox “请输入大写字母 ” End If End sub 7 下列与拖放操作无关的是 _。 （ A） KeyPress 事件 （ B） Drag 方法 （ C）
7、DragOver 事件 （ D） DragDrop 事件 8 下列与改变鼠标光标形状有关的是 _。 （ A） MouseMove 事件 （ B） MouseDown 事件 （ C） MousePointer 属性 （ D） MouseUp 事件 9 在窗体上画一个名为 Command1的命令按钮和一个名为 Text1的文本框，并把窗体的 KeyPreview 属性设置为 True，然后编写如下代码： Dim SaveAll As String Private Sub Form_ Load () Show Text1.Text = “ “ TextSetFocus End Sub Private
8、 Sub Command1 Click() TextText= LCase(SaveAll) End Sub Private Sub Form_ KeyPress (KeyAscii As Integer) SaveAll = SaveAll + Chr(KeyAscii) End Sub程序运行后，在键盘上输入 ABCDEFG，单击命令按钮，则文本框中显示的内容为 _。 （ A） abodefg （ B）不显示任何信息 （ C） ABCDEFG （ D）出错 10 以下说法中正确的是 _。 （ A）当 MousePointer 属性为 1时，将把鼠标的形状设置为 Windows 的默认值 （
9、 B） MouseIcon属性的设置要受到 KeyDown事件的影响 （ C）自定义鼠标光标通过 MouseIcon属性设置 （ D）为了定义用户自己的鼠标光标，必须把 MousePointer 属性设置为 99 11 表示 “x y小于 10，且 x-y要大于 0”的 VB表达式为【 】。 12 表示 “x和 y都是正数或都是负数 ”的 VB表达式为【 】。 13 表示 “A和 B之一为零但不同时为零 ”的 VB表达式为【 】。 14 表示 “A B C大于等于 255，或 A与 B分别大于 90，且 C大于 80”的 VB表达式为【 】。 15 数学表达式 3/5ex 2的 VB表达式是【
10、 】。 16 已知 K=2， J=3， A=True，则 VB表达式 (K-J =K)AND(NOT A)OR(K J =J)的值为【 】。 17 不等式 A B C D的 VB表达式为【 】。 18 将高次方程 5x5 3x4-12x3 x-9写成 VB表达式为【 】。 19 请定 义一个用户自定义类型，类型名为 Teacher，有三个成员：教师名 (No，长整型 )、姓名 (name， 8个字符组成的字符串 )、年龄 (age，整型 )。类型定义形式为【 】。 20 下列程序运行时，单击窗体，执行结果为【 】。 说明：在窗体上有一 Label控件，名为 lblDate。 Dim Y As
11、Integer,m As Integer,d As Integer,w1 As Integer Dim Rq As Date Dim W2 As String Private Sub Form_Click() Rq=Date Y=Year(Rq): m=Month(Rq) d=Day(Rq) w1=Weekday(x) Select Case w1 Case 1 W2=“日 “ Case 2 W2=“一 “ Case 3 W2=“二 “ Case 4 W2=“三 “ Case 5 W2=“四 “ Case 6 W2=“五 “ Case 7 W2=“六 “ End Select bldatE C
12、aption=“今天是 “&Y&“年 “&m&“月 “&d&“日 “&“星期 “&W2 End SUb 21 下列语句的输出结果是【 】。 Print Int(12345.6789*100 0.5)/100 22 InputBox函数返回值的类型为【 】。 23 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim Y as String X=5 Y=X & Space(3) & X Print X； Print Trim(Y)； Len(Trim(Y) End Sub 该程序的执行结果是【 】。 24 下列函数调用时弹出的对话框中按
13、钮的个数为【 】。 MsgBox(“程序非法 !“， vbAbortRetryIgnore， “消息提示： “) 25 语句 Print 12； Tab； 24的执行结果是【 】。 26 下列语句的执行结果是【 】。 X=10 Print x 2； x 2； x 6 27 语句 Print“125 35“； 125 32的执行结果是【 】。 28 下列程序执行时，从键盘上依次输入 123和 234，则程序的输出结果是【 】。 a=InputBox(“请输入第一个整数 “) b=InputBox(“请输入第二整数 “) Print a b 29 下列程序执行时，从键盘上依次输入 123和 234
14、，则程序的输出结果是【 】。 Dim a,b As Integer a=InputBox(“请输入第一个整数 “) b=InputBox(“请输入第二整数 “) Print a+b 30 以下程序的输出结果是【 】。 x=12.7 x=Int(x 0.5) Print X 31 假设有如下事件过程： Private Sub Command1_Click() msg1$=“Are You Continue to?“ msg2$=“Open The Books“ r=MsgBox(msg1$， 34， msg2$) End Sub 运行该程序后，所出现的对话框的标题是【 】。 VB笔试章节练习试卷
15、 18答案与解析 1 【正确答案】 A 2 【正确答案】 B 3 【正确答案】 B 4 【正确答案】 D 5 【正确答案】 C 6 【正确答案】 A 7 【正确答案】 A 8 【正确答案】 C 9 【正确答案】 B 10 【正确答案】 D 11 【正确答案】 X Y0 12 【正确答案】 X*Y0 或 X0 And Y0 Or X0 Or A=255 or A90 And B90 And C80 15 【正确答案】 5 3/5*Exp(x 2) 16 【正确答案】 6 True 17 【正确答案】 A 18 【正确答案】 5*X5+3*X4-12*X3+X-9 19 【正确答案】 Type Teacher No AS Long Name As String*8 Age As Integer End Type 20 【正确答案】 今天是 *年 *月 */日星期 * 21 【正确答案】 12345.68 22 【正确答案】 字符串型 23 【正确答案】 5555 24 【正确答案】 3 25 【正确答案】 1224 26 【正确答案】 121216 27 【正确答案】 125 35157 28 【正确答案】 123234 29 【正确答案】 357 30 【正确答案】 13 31 【正确答案】 Open The Books
