2． 随机生成一个1~9的随机整数的表达式是___________________。 3．一个变量未被显示定义，末尾也没跟类型说明符，则变量的默认类型是＿＿。 4．单精度浮点数和双精度浮点数指数分别用_____和_____来表示。 5．设a$ = \

c$ = b$ & Space(1) & UCase(Mid$(a$, 12, 1)) & Right(a$, 11) 则变量c$的值是_______________。 6．表达式(-10)^-2的值是_______。

7．表达式abs(-7 mod -2)的值是_______。 8．假设a=”A”，写出下列逻辑表达式的值

⑴ a>=”0” and a<=”9” or a>=”A” and a<=”Z”的值： _______________。 ⑵ a=<”0” and a>=”9” or a>=”A” and a<=”Z” 的值：_______________。 ⑶ a>=”0” and a<=”9” and a>=”A” and a<=”Z” 的值：_______________。 ⑷ a>=”0” or a<=”9” and a>=”A” or a<=”Z” 的值：_______________。

9．设a=30,b=60,c=10,d=50，则表达式a+b>160 or (b*c>200 and not d>60)的值_______。

10．将下列数学式子写成Visual Basic表达式： (1) a≤x≤b _______________。

（2） cos2 (c+d)．(sin(x)+1) _______________。 （3） |-5|+ 2(a+b)2/3_______________。

（4） 3e2+8x?ln2_______________。 （5）

a __________。 c?12b?d?15

三、程序设计

1．编程序求圆面积，圆面积公式为：s=πr2，窗体界面如图1-1所示。在文本框text1中输入半径的值，单击“计算圆面积”命令按钮后，在文本框text2中以只读方式显示出计算结果。

图1-1 窗体设计界面

13-109

图2-1 程序运行效果

2. 编程实现：从文本框text1中输入以秒为单位所表示的时间，然后将其换算成几天几小时几分钟几秒，单击窗体，在标签Label2中显示出总秒数和换算后的结果。

习题二 参考答案

一、选择题

1．C 2．A 3．A 4．D 5．B 6．D 7．C 8．C 9．D 10．B 11．C 12．D 13． C 14．D 15．A 16．D 17．A 18．D 19．D 20．C 21．A 22．A 23．C 24．B 25．C 26．A 27．D

二、填空题

1. ! # % & $ @ 2. int(9*rnd+1) 3. 变体类型

4. E(或e) D(或d) 5. Turbo C Programing 6. 0.01 7. 1

8. ⑴ True ⑵ True ⑶ False ⑷ True 9. True

10. (1) x>=a xor x=

(2) (Cos(c+d))^2*(sin(x)+1) (3) abs(-5)+2*(a+b)^2/3

(4) 3*exp(2)+ 8*sqr(x)*log(2) (5) a/(b+(c+12)/(d-15))

三、程序设计

1．解：

解题分析：本题求圆面积，半径r的值通过文本框输入获得，应考虑允许半径输入包含小数，因此声明半径变量r为单精度数；圆周率π(3.1415926)为一常数，在程序中可以直接将3.1415926嵌在求圆面积的表达式中，也可通过Const声明语句先将此值赋于一个符号常量，在随后的程序编码中以符号常量替代圆周率；考虑到运算求出的圆面积值的精度应会提高，所以保存圆面积值的变量声明时应为双精度变量，在窗体上显示求出圆面积值的控件为Text2，该文本框的内容由程序代码赋

14-109

值，不需要人工输入，为防止误操作，可将此文本框控件的Locked属性值设臵为True；所显示圆面积值的格式可用Format格式函数设臵，保留两位小数。

操作步骤：

⑴在VB环境中创建工程、窗体，在窗体上添加两个标签控件label1和label2、两个文本框控件text1和text2、两个命令按钮控件cmd1和cmd2。

⑵设置各相关控件的属性，见表3-2-1所示。

表3-2-1 各相关控件的属性设置

控件名称 Form1 Label1 Label2 Text1 Text2 Cmd1 Cmd2 属性名 Font Caption Caption Text Text Locked Caption Caption 属性值 楷体_GB2312、小四 输入半径r： 圆面积： 空 空 True 计算圆面积 退出 说明 设定窗体中各对象的字体 锁定，禁止修改 ⑶编写相关控件的事件代码，见图3-2-1(a)所示。

图3-2-1(a) 命令按钮Click事件代码

⑷按F5功能键，运行程序，“输入半径r”文本框中输入圆半径，点击“计算圆面积”按钮，即刻在“圆面积”文本框中显示出所求圆面积值。

⑸在指定的路径下保存工程文件为“求圆面积.vbp”，保存窗体文件为“求圆面积.frm”。

2．解：

解题分析：换算算法为：对输入的秒数如整除60，可得到总的分钟数，如用Mod运算符对60求余，可求的秒数；对所求出的总的分钟数如整除60，可得到总的小时数，如用Mod对60求余，即为所求的分钟数；对总的小时数如整除24，可得到总的天数，如用Mod对24求余，即为所求的小时数。运行界面如图2-1所示。Label2中显示结果表达式的正确写法如下：

Label2 = Text1.Text & \秒=\天\小时\分\second & \秒\。本题在窗体的Click事件编程。

15-109

操作步骤：

⑴在VB环境中创建工程、窗体，在窗体上添加一个文本框控件，两个标签控件。

⑵设置相关控件的属性，见表3-2-2所示。

⑶编写窗体的Click事件代码，见图3-2-2(a)所示。

⑷按F5功能键，在文本框中输入时间秒数，单击窗体，转换的结果即刻在标签中显示。

⑸在指定的路径下保存工程文件为“时间转换.vbp”，保存窗体文件为“时间转换.frm”。

图3-2-2(a) 窗体Click事件代码

表3-2-2 各相关控件的属性设置

控件名称 Label1 Label2 Text1 属性名 Caption Caption Borderstyle Forecolor Text 属性值 输入秒数 空 1 vbRed 空 说明 清空 设置边框线 设置字体颜色为红色 清空 习题三

一、单项选择题

1. 下面程序段运行后，显示的结果是 。 dim x

If x Then Print x Else Print x+1

A) 1 B) 0 C) 01 D) 显示出错信息 2.若要退出For循环，可使用的语句为 。

A) Exit B) Exit Do C) Exit Sub D) Exit For

16-109