7,785
社区成员




Private Sub Command1_Click()
Dim i As Long
For i = Val(Text1.Text) To Val(Text1.Text) * 2
If zhishu(i) = True Then
MsgBox "next zhishu=" & i
Exit For
End If
Next
End Sub
Private Sub Form_Load()
Text1 = ""
Command1.Caption = "显示下个>=该数的质数"
End Sub
Function zhishu(ByVal n As Long) As Boolean '判断是否为质数的函数 可以收藏
zhishu = true
For ii = 2 To Int(Sqr(n))
If n Mod ii = 0 Then
zhishu = False
Exit For
End If
Next ii
End Function
Private Sub Command1_Click()
Dim a As String
a = "abcdefg"
For i = Len(a) To 1 Step -1
b = b & Mid(a, i, 1)
Next i
Print b
End Sub
Private Sub Command1_Click()
a = 100
For i = 1 To 10
b = a / 2
s = s + b + a
a = b
Print "第" & i & "次弹起高度为" & a & "米 弹到最高点时总经过" & s & "米"
Next i
Print "第10次落地时总经过" & s + b & "米"
End Sub
Private Sub Command1_Click()
Dim aa As Boolean
aa = True
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a + b < c Or a + c < b Or c + b < a Then aa = False
If aa = False Then
MsgBox "输入的三条边不能组成三角形"
Else
d = (a + b + c) / 2
s = Sqr(d * (d - a) * (d - b) * (d - c))
MsgBox "能组成三角形,其面积为" & s
End If
End Sub
Private Sub Form_Load()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub