Private Sub Command1_Click()
For i = 1 To 9
Print Spc(2 * (10 - i));
For j = 1 To 2 * i - 1
Print "* ";
Next j
Next i
End Sub
Private Sub Command1_Click()
i = 1
Do While i 0 Then List1。
AddItem i
Loop
End Sub
Private Sub Command1_Click()
x = Val(Text1。Text)
yes = True
For i = 2 To Sqr(x)
If x Mod i = 0 Then yes = False: Exit For
Next i
If yes Then
Label1。
Caption = x & "是素数"
Else
Label1。Caption = x & "不是素数"
End If
End Sub。
答：不懂编程 推荐详情>>
答：DVB关键技术编辑DVBH技术是DVB和DVBT两种技术的融合，但是如果仅仅依靠上述两种技术是不能完全解决DVBH所面临的问题的详情>>
答：'不需要任何控件,需要的是如下代码: '因为您的分值为0,并且考虑到您并不一定会采纳,所以请原谅小的不写注释.以下代码只帖出两天,若您觉得没用,那小的自会删除,...详情>>
