选修VB的操作题讲义打印.docVIP

186、 举重比赛，60公斤级选手体重不能超过60公斤。 修改程序中的(1)(2)(3)，使得在文本Text1中输入一个大于60的数时，标签Label1显示“超重！不能参赛！”，当输入一个小于等于60的数时，标签Label1显示“合格，可以参赛！”。 Private Sub Command1_Click() Dim t As Single 定义变量t，值由文本框Text1读入 t = (1) If (2) Then Label1.Caption = 超重！不能参赛！ Else Label1.Caption = 合格，可以参赛！ (3) End Sub 参考答案： (1) val(text1.text) (2) t60 (3) End If 187、 填空完成程序，使得单击显示按钮时，Label1、Label2分别显示30，10。 程序代码: Private Sub Command1_Click() Dim x, y, t As Integer x = 10 y = 30 If x y Then t = (1) x = (2) y = (3) End If Label1.Caption = Str(x) Label2.Caption = Str(y) End Sub 参考答案：(1) x (2) y (3) t 188、某公司每年的销售收入均比前一年增长10个百分点，按此速度，需要多少年可以实现销售收入翻两番（即4倍）的目标。 填空完成程序，使得当单击窗体后，在窗体上输出问题答案。 Private Sub Form_Click() Dim i As Single Dim s As Integer 设s为所求年数,定义为整型,结果由窗体输出 i = 1 销售收入为1 s = 0 年数初始值为0 Do While (1) i = (2) (3) Loop Print s=; s End Sub 参考答案：(1) i4 (2) i*1.1 (3) s=s+1 189、 填空完成程序，使得当单击计算按钮后，在Text1中显示出满足条件2+4+6+…+x 80中最大的x的值。 Private Sub Command1_Click() Dim s As Integer Dim x As Integer s = 0 x = (1) Do x = x + (2) s = s + (3) Loop While s 80 x = x - 2 Text1.Text = Str(x) End Sub 参考答案：(1) 0 (2) 2 (3) x 190、 填空完成程序:单击计算5!按钮后，Text1显示5!的值。 Private Sub Command1_Click() Dim a As Integer Dim i As Integer a = (1) For i = 2 To (2) a = (3) Next (4) Text1.Text = Str(a) End Sub 参考答案： (1) 1 (2) 5 (3) a*I (4) i 193、 使得单击画图按钮后，在窗体上画出如图两条相互垂直的线段，其中，线段a一端的坐标是（600，1300），长度为1600，b是a 的中垂线，长度为1000 (提供的样图与程序画出的图形可能不完全相同)。 Private Sub Command1_Click() Line (____, _____)-(2200, 1300) Line (1400, 300)-(____, 1300) End Sub 参考答案：line (x1,y1)-(x2,y2) 就是从起点(x1,y1)开始画到到终点(x2,y2) 600,1300 第一条语句画水平线a 1400 第二条语句画垂直线b 194、 已知一元二次方程的二次项系数、一次项系数、常数项分别为a、b、c，其中a不等于0。填空完成程序，求方程的根。要求：如果方程无实数根，则输出无实数根，否则输出两个实数根。 Private Sub Command1_Click() Dim a, b, c, d As Single Dim x1, x2 As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text