vb42道操作题(含答案)：

d =__________
If d >= 0 Then '判断是否有实数根
x1 =______________
x2 = (-b - Sqr(d)) / (2 * a)
Label1.Caption = Str(x1)
Label2.Caption = Str(x2)
Else
Label3.Caption = _______
（新）024：实现功能：单击“出题”按钮后，在label1和label2中各显示一个随机的整数，在text1中输入结果并单击“判断”按钮后，在label3中显示“正确”或“错误”。
暑假，小明的阿姨带着一个小弟弟到小明家玩，这个小弟弟开学就要上一年级了，阿姨交了一个任务给小明，要他每天出20道一位数的加法题给小弟弟做，做完后还要帮小弟弟批改。小明自己的作业也多，他不想每天花许多时间去重复出题、改题的工作，于是他想到了用计算机帮他出题并批改；
Dim a, b, c, x, n As Integer
Private Sub Command1_Click()
Randomize
Label6.Caption = "第" & n & "道题"
a = Int(Rnd * 10)
b = Int(Rnd * 10)
Label1.Caption = a
Label2.Caption = b
For i = -2 To 2
For j = 1 To 3 - _________
_________
Next j
Print '换行
Next _________
End Sub
224：在横线处添加代码实现单击该按钮，窗体的背景色由原来的默认色变为红色(红：&HFF&)
Private Sub Command1_Click()
Next i
max = cj(1)
min = cj(1)
For i = 2 To 10
If cj(i) > max Then
max =①
End If
If②Then
min =③
End If
Next i
Print CStr(max), CStr(min)
End Sub
（新）182：请不要更改源程序的结构，删除原题中的①②③④。填写正确的代码，使程序完善。实现功能：利用格里高利公式π/4=1-1/3+1/5-1/7+……，求π，直到最后一项的值小于0.0001为止,输出π的值
Dim a As Integer
Dim i As Integer
a = ________
For i = 2 To ________
a = ________
Next ________
Text1.Text = Str(a)
End Sub
193：使得单击"画图"按钮后，在窗体上画出如图两条相互垂直的线段，其中，线段a一端的坐标是（600，1300），长度为1600，b是a的中垂线，长度为1000 (提供的样图与程序画出的图形可能不完全相同)。
Dim p As Single
Dim i As Integer '定义一个循环变量
'给s赋初值
s = (1)
'给p赋初值
p = (2)
For i = 1 To 8
p = p * i
s = (3)
Next i
Print "s="; s
End Sub
598：举重比赛中，60公斤级选手体重不能超过60公斤。填空完成程序，使得在文本Text1中输入一个大于60的数时，标签Label1显示"超重！不能参赛！"；当输入一个小于等于60的数时，标签Label1显示"合格，可以参赛！"。注：请不要更改原程序结构，删除（1）、（2）、（3），并在对应位置填写正确的代码
Private Sub Form_Click()
Dim i As Single
Dim s As Integer '设s为所求年数,定义为整型,结果由窗体输出
i = 1
s = 0
Do While__________Βιβλιοθήκη _i =_________
s=__________
Loop
Print "s="; s
End Sub
__________________
End Sub
595：'填空完成程序，使得当单击窗体后，Label1上显示100以内（含100）偶数之和。
'注：请不要更改源程序结构，删除（1）、（2）、（3），并在对应位置填写正确的代码。
Private Sub Form_Click()
Dim i As Integer '定义变量i
Private Sub Command1_Click()
Dim cj(10) As Single
Dim i As Integer
Dim max As Single
Dim min As Single
For i = 1 To 10
cj(i) = Val(InputBox("请输入10个学生的成绩", "成绩输入"))
Private Sub Command1_Click()
Dim t As Single '定义变量t，值由文本框Text1读入
str = str & "*"
Next j
_______
Print '换行
Next _______
End Sub
223：输出以下图形：
*
**
***
**
*
Private Sub Form_Click()
Dim i As Integer '定义i为整型变量
Dim j As Integer '定义j为整型变量
189：填空完成程序，使得当单击"计算"按钮后，在Text1中显示出满足条件2+4+6+…+x < 80中最大的x的值。
Private Sub Command1_Click()
Dim s As Integer
Dim x As Integer
s = 0
x =___
Do
x = x +____
s = s +_____
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
596：'填空完成程序，使得当在Text1中输入圆的半径后，单击"计算"按钮，计算圆的周长，并在Text2中显示出来。
End If
End If
End Sub
195：'填空完成程序，求|X*X+1(X<=0)
'y=|
' |X*X-x+1 (X>0)的值。
（x的值在程序中调用InputBox函数，在弹出的标准输入对话框中输入）
Private Sub Form_Click()
Dim x As Single '定义x为为单精度型变量,由标准输入对话框输入
x =___
y =_____
End If
Label1.Caption = Str(x)
Label2.Caption = Str(y)
End Sub
188：某公司每年的销售收入均比前一年增长10个百分点，按此速度，需要多少年可以实现销售收入翻两番（即4倍）的目标。填空完成程序，使得当单击窗体后，在窗体上输出问题答案。
Private Sub Command1_Click()
Line (________,1300)-(2200, 1300)
Line (1400, 300)-(_____,________)
End Sub
194：已知一元二次方程的二次项系数、一次项系数、常数项分别为a、b、c，其中a不等于0。填空完成程序，求方程的根。要求：如果方程无实数根，则输出"无实数根"，否则输出两个实数根。
Dim y As Single '定义y为单精度型变量,值由窗体显示
x = _______ (InputBox("请输入变量x"))
If x <= 0 Then
_______
Else
_______
End If
Print "y="; y
End Sub
196：填空完成程序，打印如右图所示的图案(注释区别开)。
Private Sub Command1_Click()
Dim t As Single '定义变量t，值由文本框Text1读入
t =___________
If__________________Then
Label1.Caption = "超重！不能参赛！"
Else
Label1.Caption = "合格，可以参赛！"
'注：请不要更改原程序结构，删除（1）、（2）、（3），并在对应的位置填写正确代码
Private Sub Command1_Click()
Const pi = 3.14 '定义符号常量
Dim c As Single '定义周长c为单精度型