已过期问题
答案
1。的代码
Dim a%
Private Sub Form_Click()
For i = 1 To 99
a = a + i
Next
Print a
End Sub
3.的代码
Private Sub Form_Click()
For i = 1 To 10000
Printer.Print i ^ 2
Next
Printer.EndDoc
End Sub
2.的代码
Private Sub Form_Click()
For I = 1 To 200
If I Mod 3 = 2 And I Mod 5 = 3 And I Mod 7 = 1 Then
Print I
End If
Next
End Sub
4.的代码 该休息了
Option Explicit
Dim A As Boolean, i As Long
Dim n As Long
Dim St As String
Private Sub Form_Click()
Form1.AutoRedraw = True
St = InputBox("一个任意数（若<2将退出）", "输入", "100")
If St = "" Then Exit Sub
n = Int(Val(St))
If n < 2 Then Exit Sub
For i = 2 To n - 1
If n Mod i = 0 Then
A = False
Exit For
Else
A = True
End If
Next
If A Then
Print n; "是素数"
Else
Print n; "不是素数"
End If
End Sub
代码改了下
Private Sub Form_Click()
St = InputBox("一个任意数（若<2将退出）", "输入", "100")
If St = "" Then Exit Sub
n = Int(Val(St))
If n < 2 Then Exit Sub
For i = 2 To n - 1
If n Mod i = 0 Then
A = False
Exit For
Else
A = True
End If
Next
If A Then
Print "yes"
Else
Print "no"
End If
End Sub
不知道高手你试过3的代码没有？输出结果令人惊讶~能用TXT文本输出不？ 你其他答案都正确。弄好了给你分.......
如果题目改成 输入一个X，计算S=1+3+5...+x （均为奇数）
结果用print输出结果
怎么做？
Private Sub Command1_Click()
a = InputBox("请输入一个整数", "输入", a)
For j = 1 To a Step 2
i = i + j
Next
Print i
End Sub
Open "c:\1-10000的平方.txt" For Output As #1
For j = 1 To 10000
Print #1, j ^ 2
Next
Close #1
End Sub
1,3有人答了。我先说说4
Dim n as Long
num = CInt(inputbox.Text)
For i = 2 To Int(Sqr(num))
If num Mod i = 0 Then Exit For
Next
If i > Int(Sqr(num)) Then
'不是素数
Else
'是素数
End If
其他的都没问题了，我说下3的
10000以内的完全平方数
Private Sub Command1_Click()
Dim j As String
For i = 1 To 100
j = j & " " & i ^ 2
Next
Text1.Text = j '此处也可以用print j，但是太长窗体上显示不下，所以用了个TEXT
End Sub
