
Private Sub Command1_Click()
Dim n As Integer, i As Integer, s As String
n = Val(Text1.Text)
s = ""
For i = 1 To 2 * n - 1
If i <= n Then ① Else ②
Next i
Label1.Caption = s
End Sub
为实现以上功能,划线①②处应分别填写
图 b
1图 |
2图 |
Private Sub Command1_Click()
Dim s As Single, x As Single, n As Integer, i As Integer
Randomize
List1.Clear
s =
n = Val(Text2.Text)
For i = 1 To n - 1 '通过循环语句产生n-1个红包的随机值
x = Int((Rnd() * s / () + 0.005) * 100) / 100
List1.AddItem Str(x)
s =
Next i
x = Int((s + 0.005) * 100) / 100 '产生最后一个红包
List1.AddItem Str (x)
End Sub
①avi ②rm ③wav ④wmv