UC知道还是高二的VB题
来源：百度知道 编辑：UC知道 时间：2024/05/05 14:55:25
填空完成程序:单击"计算5!"按钮后，Text1显示5!的值。
Private Sub Command1_Click()
Dim a As Integer
Dim i As Integer
a = ________
For i = 2 To ________
a = ________
Next ________
Text1.Text = Str(a)
End Sub
'使得单击"画图"按钮后，在窗体上画出如图两条相互垂直的线段，
'其中，线段a一端的坐标是（600，1300），长度为1600，b是a 的中垂线，
'长度为1000 (提供的样图与程序画出的图形可能不完全相同)。
Private Sub Command1_Click()
Line (____, _____)-(2200, 1300)
Line (1400, 300)-(____, 1300)
End Sub
'填空完成程序，求 |X*X+1(X<=0)
' y=|
' |X*X-x+1 (X>0)的值。
'
'（x的值在程序中调用InputBox函数，在弹出的标准输入对话框中输入）
Private Sub Form_Click()
Dim x As Single '定义x为为单精度型变量,由标准输入对话框输入
Dim y As Single '定义y为单精度型变量,值由窗体显示
x = _______ (InputBox("请输入变量x"))
If x <= 0 Then
_______
Else
_______
End
Private Sub Command1_Click()
Dim a As Integer
Dim i As Integer
a = ________
For i = 2 To ________
a = ________
Next ________
Text1.Text = Str(a)
End Sub
'使得单击"画图"按钮后，在窗体上画出如图两条相互垂直的线段，
'其中，线段a一端的坐标是（600，1300），长度为1600，b是a 的中垂线，
'长度为1000 (提供的样图与程序画出的图形可能不完全相同)。
Private Sub Command1_Click()
Line (____, _____)-(2200, 1300)
Line (1400, 300)-(____, 1300)
End Sub
'填空完成程序，求 |X*X+1(X<=0)
' y=|
' |X*X-x+1 (X>0)的值。
'
'（x的值在程序中调用InputBox函数，在弹出的标准输入对话框中输入）
Private Sub Form_Click()
Dim x As Single '定义x为为单精度型变量,由标准输入对话框输入
Dim y As Single '定义y为单精度型变量,值由窗体显示
x = _______ (InputBox("请输入变量x"))
If x <= 0 Then
_______
Else
_______
End
填空完成程序:单击"计算5!"按钮后，Text1显示5!的值。
Private Sub Command1_Click()
Dim a As Integer
Dim i As Integer
a = 1
For i = 2 To 5
a = a*i
Next i
Text1.Text = Str(a)
填空完成程序，求 |X*X+1(X<=0)
' y=|
' |X*X-x+1 (X>0)的值。
'
'（x的值在程序中调用InputBox函数，在弹出的标准输入对话框中输入）
Private Sub Form_Click()
Dim x As Single '定义x为为单精度型变量,由标准输入对话框输入
Dim y As Single '定义y为单精度型变量,值由窗体显示
x = val(InputBox("请输入变量x"))
If x <= 0 Then
y=|
Else
y=|X*X-x+1
End If
Print "y="; y
End Sub
End Sub
在横线处添加代码实现单击该按钮，窗体的背景色由原来的默认色变为红色(红：&HFF&)
Private Sub Command1_Click()
Me.BackColor = RGB(255, 0, 0)
End Sub