VB习题及习题解答要点

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

联系客服:779662525#qq.com(#替换为@)