哪位好心人帮我做一下?VB

来源:百度知道 编辑:UC知道 时间:2024/06/07 22:23:22
1, Visual Basic应用程序中标准模块文件的扩展名是【 】 。
2,以下程序的功能是:生成20个200到300之间的随机整数,输出其中能被5整除的数并求出它们的和。请填空。
Private Sub Command1_Click()
For i = 1 To 20
x = Int( 【 】 * 200 + 100)
If 【 】 = 0 Then
Print x
S = S + 【 】
End If
Next i
Print "Sum = "; S
End Sub
3,新建一个工程,,内有两个窗体,窗体Form1上有一个命令按钮Command1, 单击该按钮,窗体Form1消失,显示窗体Form2,程序如下:
Private Sun Command1.Click()
_______
Form2._____
End Sub
4,执行下列程序段后,A的值为_____,B的值为_____,达到____的目的。
A=100
B=50
A=A+B
B=B-A
A=A-B
5,以下程序的功能是:从键盘输入若干个学生的考试成绩,统计并输入最高分和最低分,当输入负数时结束输入,输出结果。请填空。
Private Sub Form_Click( )
Dim x, amax, amin As Single
x=InputBox(“Enter a score”)
Amax=x
Amin=x
Do While_____
If x>amax Then
Amax=x
End if
If _____Then
Amin=x
End If
X=InputBox(“Enter a Score”)
Loop
Print “Max=”; amax, “Min+”;amin
E

1, Visual Basic应用程序中标准模块文件的扩展名是【 BAS 】 。

2,以下程序的功能是:生成20个200到300之间的随机整数,输出其中能被5整除的数并求出它们的和。请填空。
Private Sub Command1_Click()
For i = 1 To 20
x = Int( 【 RND 】 * 200 + 100)
If 【 X MOD 5 】 = 0 Then
Print x
S = S + 【 X 】
End If
Next i
Print "Sum = "; S
End Sub

3,新建一个工程,,内有两个窗体,窗体Form1上有一个命令按钮Command1, 单击该按钮,窗体Form1消失,显示窗体Form2,程序如下:
Private Sun Command1.Click()
hide
Form2.show
End Sub

4,执行下列程序段后,A的值为___250__,B的值为__-100___,达到__???__的目的。
A=100
B=50
A=A+B
B=B-A
A=A-B

5,以下程序的功能是:从键盘输入若干个学生的考试成绩,统计并输入最高分和最低分,当输入负数时结束输入,输出结果。请填空。
Private Sub Form_Click( )
Dim x, amax, amin As Single
x=InputBox(“Enter a score”)
Amax=x
Amin=x
Do While__X >=0 ___
If x>amax Then
Amax=x
End if
If __X <Amin___Then
Amin=x
End If
X=InputBox(“Enter a Score”)<