g＝a－b
5．VB 6.0表达式Len（Left（”abed”， 3）＋Right（”北京大学”， 4））的值为＿7 。 6．设已定义 Len（Chr（65）＋Chr（66））的值是＿2 。
7．VB 6.0表达式 Len（Trim（”ABC”）＋ RTrim（“ABC”））的值为＿6 。
第四章练习题
一、选择题
1．下面四个语句中，能打印显示 20＊30字样的是＿A 。 A） Print ”20＊30” B） Print 20＊30 C） Print Chr＄（20）＋”＊”＋Chr＄（30）D） Print Val（”20”）＊Val（”30”）
2．下列事件过程
Private Sub Commandl＿Click（） Dim sum As Integer sum％＝19 sum＝2.32 Print sum％；sum End Sub
运行后输出结果是＿D 。
A） 19 2.32 B） 19 C） 2.32 2.32 D） 2 3.下列代码 Defstr C-F
Private Sub Commandl＿Click（） C＄＝”123” D＝”4 5 6” Print C＋D＄ End Sub
运行后输出结果是＿D 。
A） 123456 B） ”123456” C） 123＋”456” D）显示出错信息 4．下列代码 Defstr C-F
Private Sub Commandl＿Click（） C＄＝”123” D＝”4 5 6” Print C＋D
6
19 2
End Sub
运行后输出结果是＿A 。
A） 123456 B） ”123456” C） 123＋”456” D）显示出错信息 5．下列事件过程
Private Sub Commandl＿Click（） Dim sum As Integer sum％＝ 19 sum＝－2.52
Prrnt sum％； sum End Sub
运行后输出结果是 C 。
A） 19 －2 B） 19 19 C）－3 －3 D）显示出错信息 6．下列事件过程
Private Sub Commandl＿Click（） n＄=”nnnnn”
Mid＄（n＄， 2， 2）=”NN’‘ Print n＄ End Sub
运行后输出结果是 C 。
A）”nNNnn” B）”nnNNn” C） nNNnn D） nnNNn 7．下列事件过程
Private Sub Commandl＿Click（）
Print Format（123.456，”＃＃＃. ＃＃％”） End Sub
运行后输出结果是 D
A） 123.46％ B） 123.45％ C） 123.456％ D） 12345.6％ 8下列事件过程
Private Sub Commandl＿Click（） a＄＝”12” b＄=”34” c＄=a＄＆b＄ d=Val（c＄）
7
Print d\\10 End Sub
运行后输出结果是＿A 。
A）123 B）123.4 C） 1234＼10 D）”1234＼10” 9．下列事件过程
Private Sub Commandl＿Click（） a＄=”Bird” c＄=”fly”
Print a＄ ＆ ”can”＆ c＄ ＆“!” End Sub
运行后输出结果是 B 。
A） Bird can fly! B） Birdcanfly！ C） Bird＆can＆fiy＆！ D） Bird Can Fly！ 10．下列事件过程
Private Sub Commandl＿Click（） Print 25 Mod（l－2^ 3） End Sub
运行后输出结果是＿A 。
A）4 B）－4 C）0 D）－0
11．可以用InputBOX函数产生“输入对话框”。若执行下列语句： st＄＝InputBOX（“请输入字符串”，”字符串对话框”，“字符串“） 当用户输入完毕，按“确定”按钮后，st＄变量的内容是＿D 。 A）字符串 B）请输入字符串 C）字符串对话框 D）用户输入内容
12．下面四个语句中，输出逻辑值为“真”的是＿D 。 A） Print Not（3＋5＜4＋6） B）Print 2＞lAnd 3＜2 C） Print 1＞2 Or 2＞3 D） Print Not（1＞2） 13．下列事件过程
Private Sub Commandl＿Click（） a＝ 3： b＝ 4 Print b＜a End Sub
运行后，输出的结果是＿C 。 A）4＞3 B）True
8
C）False D）显示出错信息 14．下列事件过程
Private Sub Commandl＿Click（） Dim zxs As Integer zxs % = 232 zxs = 232.32 Print zxs％； zxs End Sub
运行后，输出的结果是＿B 。
A） 232 232.32 B） 232 232 C）232.32 232.32 D）显示出错信息 15．下列程序
Private Sub Commandl＿Click（） DefStl C-F d＄＝”321” f＝”654” Print d＋ f$ End Sub
运行后，输出的结果是＿D 。
A）321654 B）”321654” C）321＋”654” D）显示出错信息 16．下列程序
Private Sub Commandl＿Click（） Const st＄＝”CHINA” st＄＝ ”GREAT” st＄＝”HeBei” Print st＄ End Sub
运行后，输出的结果是＿D 。 A）CHINA B）GREAT C）HeBei D）显示出错信息 17．下列程序
Private Sub Commandl＿Click（） X1 = InputBox（”请输入”） Print Xl ＋ 123 End Sub
9
运行时，若输入123，将输出＿B 。
A） 123123 B） 246
C） 123 D）显示出错信息 18．下列程序
Private Sub Commandl＿Click（） X1 = InputBox（”请输入”） Print Xl ＋ “123” End Sub
运行时，若输入123，将输出＿A 。
A） 123123 B） 246
C） 123 D）显示出错信息 19．下列程序
Private Sub Commandl＿Click（） X1 = InputBox（”请输入”） Print Xl & “123” End Sub
运行时，若输入123，将输出＿A 。
A） 123123 B） 246
C） 123 D）显示出错信息 二、填空题
1. Printer.Print”＊”，星号输出到＿打印机 。 2. PrintForm将打印活动＿窗口 。 3.下列程序
Private Sub Commandl＿Click（） X1 = InputBox（”请输入”） MsgBox（X1） End Sub
运行时，若输入123，输出对话框的提示信息是＿123 。 4．下列程序
Private Sub Commandl＿Click（） X1 = InputBox（”请输入”） MsgBox（”X1”） End Sub
运行时，若输入123，输出对话框的提示信息是＿X1 。
第五章练习题
一、选择题
10