菜鸟求有关VB的问题，急切~

来源：百度知道 编辑：UC知道 时间：2024/05/29 10:31:59
1.设计在一框架中包含三个复选框，只有1，3选中二2未选中时，才在text1中显示“hello”字符

2.编一程序能实现在窗体上打印出如下图所示的图形
A
AAA
AAAAA
AAAAAAA
BBBBBBB
BBBBB
BBB
B

3.编一程序用于判断一正整数是否为素数。（提示：只能被1和本身整除的正整数称为素数。为了判断一个数是否是素数，可以将N被2到spr（n）之间所有整数除，如果都除不尽，则n就是素数，否则n是非素数。）

Private Sub Check1_Click()
If Check1.Value = 1 And Check3.Value = 1 And Check2.Value = 0 Then
Text1 = "hello"
Else
Text1 = ""
End If
End Sub

Private Sub Check2_Click()
If Check1.Value = 1 And Check3.Value = 1 And Check2.Value = 0 Then
Text1 = "hello"
Else
Text1 = ""
End If
End Sub

Private Sub Check3_Click()
If Check1.Value = 1 And Check3.Value = 1 And Check2.Value = 0 Then
Text1 = "hello"
Else
Text1 = ""
End If
End Sub

第一个

Private Sub Command1_Click()
a = Val(Text1)
If a = 2 Then MsgBox "是素数": Exit Sub
For i = 2 To a - 1
If a Mod i = 0 Then
MsgBox "不是素数"
Exit Sub
Else
MsgBox "是素数"
Exit Sub
End If
Next