Question

用vb编程，窗体中有一个命令按钮。程序运行时，单击“显示”命令按钮，在窗体上显示1000以为个位数

用vb编程，窗体中有一个命令按钮。程序运行时，单击“显示”命令按钮，在窗体上显示1000以为个位数为5且能被3整除的所有自然数。要求一行显示5个数据

Answer 1

均匀排列

代码如下：

Private Sub Command1_Click()

Dim i As Integer

Dim j As Integer

Dim k As Integer

Dim a(5) As String

i = 5

k = 0

For j = 1 To 1000

i = i + 5

If i Mod 3 = 0 And Right(CStr(i), 1) <> 0 Then

k = k + 1

  If i < 1000 Then

  a(k) = i

  Else

  a(k) = ""

  End If

  If k Mod 5 = 0 Then

  Print Tab(5); a(1); Tab(15); a(2); Tab(25); a(3); Tab(35); a(4); Tab(45); a(5)

  k = 0

  If i > 1000 Then Exit For

  End If

If j Mod 5 = 0 Then Print ""

End If

Next j

End Sub

Answer 2

for i=0 to 1000
if (right(i,1)=5) and (i mod 3=0) then
x=x+1
print i;
if x mod 5=0 then print
endif
next