选修VB操作题打印讲解

选修操作题讲义· 第 1 页 共 8 页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) t>60 (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) i<4 (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、...