代碼：

Private Function Judge()

Dim b As Integer
b = b / 1 * b

End Function


Private Sub Command1_Click()
? Dim a As Integer, b As Integer
? Show
? a = 0: b = 1
? If Judge(b <> 0) Then
? Do
? a = a + b
? b = b + 1
? Loop While b <= 100
? End If
? Label2.Caption = a
??
End Sub

心得體會：通過本次學習，我明白了什么是循環(huán)結構。并懂得了基本循環(huán)結構的編寫。

總結

以上是生活随笔為你收集整理的用vb程序设计输出100以内素数和的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內容還不錯，歡迎將生活随笔推薦給好友。