选修VB操作题(打印)讲解
- 格式：doc
- 大小：188.00 KB
- 文档页数：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、
使得单击"画图"按钮后，在窗体上画出如图两条相互垂直的线段，其中，线段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(Text3.Text)
If a <> 0 Then '判断a是否等于0
d = _______
If d >= 0 Then '判断是否有实数根
x1 = _______
x2 = (-b - Sqr(d)) / (2 * a)
Label1.Caption = Str(x1)
Label2.Caption = Str(x2)
Else
Label3.Caption = _______
End If
End If
End Sub
参考答案
(1) b*b-4*a*c 或 b^2-4*a*c
(2)(-b + Sqr(d)) / (2 * a) (3) "无实数根"
195、填空完成程序，求 |X*X+1(X<=0) y=| |X*X-x+1X>0)的值。
（x的值在程序中调用InputBox函数，在弹出的标准输入对话框中输入）
Private Sub Form_Click()
Dim x As Single '定义x为为单精度型变量,由标准输入对话框输入
Dim y As Single '定义y为单精度型变量,值由窗体显示
x = (1)(InputBox("请输入变量x"))
If x <= 0 Then
(2)
Else
(3)
End If
Print "y="; y
End Sub
参考答案：(1) val (2) y=x*x+1 (3) y=x*x-x+1
196、填空完成程序，打印如右图所示的图案
(注释区别开)。
*
**
***
**
*
Private Sub Form_Click()
Dim i As Integer '定义i为整型变量
Dim j As Integer '定义j为整型变量
Dim str As String
For i = -2 To 2
str = ""
For j = 1 To 3 - _______
str = str & "*"
Next j
_______
Print '换行
Next _______
End Sub
参考答案：(1) abs(i)
(2) print str; 此处一定要注意不能缺少分号(3) i
For循环的结构为： For 循环变量＝初值 To 终值 Step 步长
循环体
Next 循环变量
其中如果步长为1则“Step 步长”可以省略
223、填空完成程序，打印如图所示的图案。
*
**
***
**
*
Private Sub Form_Click()
Dim i As Integer '定义i为整型变量
Dim j As Integer '定义j为整型变量
For i = -2 To 2
For j = 1 To 3 -（1）
（2）
Next j
Print '换行
Next （3）
End Sub
参考答案：
(1) abs(i)
(2) print "*"; 此处一定要注意不能缺少分号
(3) i
224、
在横线处添加代码实现单击该按钮，窗体的背景色由原来的默认色变为红色(红：&HFF&)
Private Sub Command1_Click()
__________________
End Sub
参考答案：
Form1.BackColor=&HFF&
窗体的名称为：form1
背景色属性为：backcolor
设置对象的属性： 名称.属性＝设置值 如：form1.height=5000
设置窗体的高度为5000
label1.caption="你好"
设置标签label1显示文字为 你好
595、
填空完成程序，使得当单击窗体后，Label1上显示100以内（含100）偶数之和。
注：请不要更改源程序结构，删除（1）、（2）、（3），并在对应位置填写正确的代码。
Private Sub Form_Click()
Dim i As Integer '定义变量i
Dim s As Integer '定义变量s，用于存放100以内（含100）偶数的和
s = 0
For i = 2 To 100 Step (1)
s = (2)
Next (3)
Label1.Caption = Str(s)
End Sub
参考答案：
(1) 2 因为是求偶数的和所以步长为2
(2) s + i 求和 (3) i
596、
填空完成程序，使得当在Text1中输入圆的半径后，单击"计算"按钮，计算圆的周长，并在Text2中显示出来。
'注：请不要更改原程序结构，删除（1）、（2）、（3），并在对应的位置填写正确代码
Private Sub Command1_Click()
Const pi = 3.14 '定义符号常量 Dim c As Single '定义周长c为单精度型
Dim r As Single '定义半径r为单精度型
r = Val((1))
c = pi * (2)
(3) = c
End Sub
参考答案
(1) text1.text半径从文本框text1中输入
(2) 2 * r 求周长的公式
(3) text2.text 将结果在文本框text2中显示
597、填空完成程序，计算s=1!+2!+3!+…+8!的值并在窗体上打印出结果。
注：请不要更改源程序结构，删除（1）、（2）、（3），并在对应位置填写正确的代码
Private Sub Form_Click()
