vb语句!!急!!!!!!!!

来源：百度知道 编辑：UC知道 时间：2024/05/29 18:56:51
1．由inputbox轮入两个数a,b .印出a行,每行b 个*号

2．用do loop until 求出1+4+7+...+n<1000,求最大的n

3．有一篮鸡蛋有 1~120只,若分4份会余1只,分5份会余4只,印出这些蛋原本有多少只,把全部可能的答案印出

4．产生10个10~99的随机数,印出此10数的质数
某些3位数,其个拾百住3个数字之和可以被3整除,问这种数有多少个

1.
Private Sub Form_Load()
Dim a As Integer, b As Integer
Dim i As Integer, j As Integer
a = InputBox("请输入行数", "输入行数", "10")
b = InputBox("请输入列数", "输入列数", "10")
Form1.AutoRedraw = True
For i = 1 To a
For j = 1 To b
Form1.Print "*";
Next j
Form1.Print
Next i
End Sub

2.
Private Sub Form_Load()
Dim i As Integer, j As Integer
i = 1
j = i
Do
i = i + 3
j = j + i
Loop Until j >= 1000
MsgBox "n=" & i - 3
End Sub