C．若有多个参数，以分号隔开 D．内部函数的计算过程只是访问它们 30、若有下列表达式：
Dim MyDouble As Double, MyInt As Integer, MyString As String MyDouble = 2345.5678 MyInt = CInt(MyDouble) MyString = Str(MyInt) Print MyString End Sub
执行后，输出的结果是：＿＿＿
A．2345 B．“2345” C．“2346“ D．2346 31、函数Int(Rnd(0)*11)+10的值的范围是：＿＿＿＿。
A．[10，20] B．[0，20] C．[10，21] D．[10，11]
32、Visual Basic中变量定义后会有默认值，数值型的默认值是0，字符串型变量是＿＿＿。 A．0 B．空串（””） C．Null D．没有任何值
二、填空题
1、用户可以用＿＿＿＿语句定义自己的数据类型。
2、表达式Right(“The work is troublesome”, 3)的值是：＿＿＿＿。 3、可以用＿＿＿＿语句来定义符号常量。
4、在Visual Basic中，取模运算的运算符是：＿＿＿＿。
5、表达式”1” & “89”的值是：＿＿＿＿，表达式1＋89的值是：＿＿＿＿。 6、执行MyNumber=Abs(-50.3)后，MyNumber的值是：＿＿＿＿。 7、执行MyNumber=Int(-89.67)后，MyNumber的值是：＿＿＿＿。 8、执行语句：Print 5 > 2 Or 8 < 3的结果是：＿＿＿＿。
9、Visual Basic提供的另外一种程序执行方式是直接方式，直接方式在立即窗口中执行，若窗口中语句前为问号？，是？是命令＿＿＿＿的缩写。
10、Visual Basic中的变量、过程等名字只能由字母、数字和＿＿＿＿组成。
23
参考答案：
【选择题】1-5：B A D A D 6-10：B B A C D
11-15：B D A C D 16-20：A B B C B 21-25：C C B B D 26-32：A A C C D C B
【填空题】1、Type 2、ome 3、Const 4、Mod 5、189；90
6、50.3 7、-90 8、True 9、Print 10、下划线
24
第4单元 数据输入与输入部分
本单元重点：
1、数据输出
⑴Print方法：[对象名.]Print [表达式[,|;]??] 对象名可以是窗体、图片框、打印机和临时窗口。 ⑵Print方法相关的函数 Tab()、Spc()、Formats
2、InputBox()函数：
格式：InputBox(提示内容[, 标题][, 默认值][, xpos, ypos])
3、MsgBox()函数和MsgBox语句
⑴MsgBox()函数：MsgBox (msg[, type] ), title]) 向用户提示信息，并接收用户的选择操作。
⑵MsgBox语句：MsgBox msg [, type%] [helpfile, context] 作用和MsgBox()函数相似，但没有返回值。
4、字体属性
⑴字体类型：FontName ⑵字体大小：FontSize
⑶粗体：FontBold；斜体：；删除线：；下划线：
25
第4单元 实践练习
一、选择题
1、在默认情况下，InputBox()函数返回值的类型是：＿＿＿。 A．变体 B．字符串 C．数值 D．数值或字符串 2、下面关于InputBox()函数的叙述，不正确的是：＿＿＿。 A．InputBox()函数可以写成InputBox$()的形式 B．执行一次InputBox()函数可以输入多个数值
C．在默认情况下，InputBox()函数的返回值是一个字符串
D．执行一次InputBox()函数，只能输入一个值，要想输入多个值，需执行多次 3、MsgBox()函数的返回值类型为：＿＿＿。
A．字符串 B．变体 C．数值型 D．不确定 4、在当前窗体上显示“可视化程序设计”的输出语句是：＿＿＿。 A．Print “可视化程序设计” B．Picture1.Print “可视化程序设计” C．Printer. Print “可视化程序设计” D．Debug. Print “可视化程序设计” 5、下列属性中，表示给文字加下划线的是：＿＿＿。
A．FontBold B．FontItalic C．FontStrikethru D．FontUnderline 6、执行下列语句后，输出结果是：＿＿＿。 Print \
A．abcdefGHIJK B．abcdef GHIJK
C．abcdef;GHIJK D．abcdef GHIJK(距离远) 7、若运行下列语句，则输出结果是：＿＿＿。 Print \Print 30 + 50
A．30+50 B．30+50= 80 C．30+50=80 D．80 =80 8、语句Cls表示的是：＿＿＿。 A．清除所有文本 B．清除所有图片
C．清除当前窗体内显示的内容 D．清除图片框中的图形或文本 9、实现从文本框中正确获得数值数据的语句是：＿＿＿。 A．Val(Text1.Text) B．Int(Text1.Text) C．Val(Text1.Caption) D．Int(Text1.Caption) 10、下面程序的执行结果：＿＿＿。
26
Private Sub Command1_Click() X = \ Z = Val(X) + Val(Y) Print Z End Sub
A．100200 B．3 C．300 D．“”
11、若想单击命令按钮输出一个提示框，并且该提示框中只有“确定”和“取消”按钮，应当设置语句“Msgbox msg, type”中的“type”参数值为：＿＿＿。
A．1 B．2 C．3 D．省略该参数
12、使用Msgbox()函数时，只有一个参数是必需的，其他的均可以省略，这个参数是：＿＿＿。
A．title B．type C．msg D．helpfile 13、关于Msgbox()函数的使用，下列说法中错误的是＿＿＿。
A．函数的第二个参数的第三类数值用来确定默认活动按钮。当某个按钮为活动按钮时，其内部的文字周围有一个虚线框。
B．函数显示的提示信息最多不超过1000个字符，所显示的信息自动换行。
C．在应用程序中，该函数的返回值通常用来作为继续执行程序的依据，根据该返回值决定其后的操作。
D．该函数在使用时，可以根据信息量自动调整信息框的大小。
14、用“FontName=”字体类型””属性可以设置英文或中文的字体类型，如果省略“=”字体类型””，即只给出FontName，则返回的字体类型为＿＿＿。
A．宋体 B．楷体 C．当前正在使用的字体类型 D．随机产生 15、下列程序的功能是＿＿＿。 Private Sub Command1_Click()
Dim strHel As String, X As Single, Y As Single FontSize = 20
strHel = \欢迎使用本系统！\
X = (ScaleWidth - TextWidth(strHel)) / 2 Y = (ScaleHeight - TextHeight(strHel)) / 2 CurrentX = X CurrentY = Y Print strHel
27