程序1Private Sub Command1_Click()Dim x As Singlex = InputBox("x=")If x / 2 = x \ 2 ThenPrint "yes"ElsePrint "no"End IfEnd Sub

Private Sub Command2_Click()Dim m As Integer, i As Integerm = InputBox("shurushu>2")i = 2Do Until (m Mod i = 0) Or (i = m - 1)i = i + 1LoopIf m Mod i = 0 Then Print "no" Else Print "yes"End Sub

Private Sub Command3_Click()Dim x As Stringx = InputBox("x=")Select Case xCase "A" To "Z"Print "大写字母"Case "a" To "z"Print "小写字母"Case "0" To "9"Print "数字"Case ElsePrint "其他字符"End SelectEnd Sub

InputBox mFor a = 21 To mFor c = 2 + 0 To aIf a / c Then If c > Rrd(a / c) Then Print aNext cNext a

同志们..回复5是错的..

感谢 顶

很明显……

Private Sub Command2_Click()Dim M As Integer, I As IntegerM = InputBox("enter")I = 2For M = 2 To MFor I = 2 To M - 1If (M Mod I) = 0 Then GoTo aNext IPrint Ma:Next MEnd Sub

老大就是老大

十分感谢哦 ~

考试不靠你，还靠谁！！！！！

好样的...!!

fuck it!!!!

矮 拉服 油！