选修VB操作题讲义(打印).doc

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) ThenLabel1.Caption = 超重！不能参赛！ElseLabel1.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 Integerx = 10y = 30If x y Thent = (1)x = (2)y = (3)End IfLabel1.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 SingleDim s As Integer 设s为所求年数,定义为整型,结果由窗体输出i = 1 销售收入为1s = 0 年数初始值为0Do While (1)i = (2)(3)LoopPrint 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) Dox = 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 SingleDim x1, x2 As Singlea = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If a 0 Then 判断a是否等于0d = _______If d = 0 Then 判断是否有实数根x1 = _______x2 = (-b - Sqr(d)) / (2 * a)Label1.Caption = Str(x1)Label2.Caption = Str(x2)ElseLabel3.Caption = _______End IfEnd If End