Question

求高手解决一下VB题目

1、 在名称为Form1的窗体上建立两个单选按钮（名称分别为Opt1和Opt2，标题分别为"100-200之间素数"和"200-400之间素数"）、一个文本框（名称为Text1）和两个命令按钮，其名称分别为Cmd1和Cmd2，标题分别为"计算"、"退出"。程序运行后，如果选中一个单选按钮并单击"计算"按钮，则计算出该单选按钮标题所指明的所有素数之和。并在文本框中显示出来，如果单击"退出"按钮，则退出程序。
2、 在窗体上有一个名称为P1的图片框和二个名称分别为C1、C2，标题分别为"显示"、"清除"的命令按钮（如图所示）。程序运行后，如果单击"显示"按钮，则把硬盘中的图形文件pic1.gif（可任意选用一幅图片）装入图片框中，如果单击"清除"按钮，则从图片框中清除该图片。
3、 在名称为Form1的窗体上建立二个名称分别为Cmd1、Cmd2，标题为"按钮一"、"按钮二"的命令按钮（本来不重合）。要求程序运行后，如果单击"按钮一"，则把"按钮二"移到"按钮一"上，使两个按钮重合。
注意： 在程序中不得使用任何变量（必须通过属性设置来移动控件）。
4、 在名称为Form1的窗体上建立两个名称分别为Cmd1和Cmd2，标题分别为"输入"和"连接"的命令按钮。要求程序运行后，单击"输入"按钮，可通过输入对话框输入两个字符串，存入字符串变量a、b中（a、b应定义为窗体变量），如果单击"连接"按钮，则把两个字符串连接为一个字符串（顺序不限）并在信息框中显示出来（在程序中不得使用任何其他变量）。
5、 窗体上有一个名称为 Text1的文本框；两个复选框，名称分别为Ch1和Ch2，标题分别为"爱心社"和"学通社"。要求程序运行后，如果只选中Ch1，单击窗体，则在文本框中显示"报名参加爱心社"；如果只选中Ch2，然后单击窗体，则在文本框中显示"报名参加学通社"；如果同时选中Ch1和Ch2，单击窗体，则在文本框中显示"报名参加爱心社和学通社"；如果Ch1和Ch2都不选取，在单击窗体后，则在文本框中什么都不显示。
6、 在窗口中有一个图形控件和两个名称分别为COMSTART，COMEXIT，标题分别为"开始"、"退出"的命令按钮。要求程序运行后，单击"开始"按钮后，能打印出如下图所示的三角形，；执行完毕"开始"按钮,变成"完成"，且无效（变灰）。
A
AAA
AAAAA
AAAAAAA
BBBBBBB
BBBBB
BBB
B
可以发到我的信箱：pcbxsn@qq.com
谢谢!

Answer 1

第2题
Private Sub Command1_Click()
If Picture1.Visible = False Then
Picture1.Visible = True
Command1.Enabled = False
End If
If Command2.Enabled = False Then Command2.Enabled = True
End Sub
Private Sub Command2_Click()
If Picture1.Visible = True Then
Picture1.Visible = False
Command2.Enabled = False
End If
If Command1.Enabled = False Then Command1.Enabled = True
End Sub

第三题
先把两个命令按钮的高和宽设置为一样。。再设置位置。。
我设置的
height 500
left 1000
top 1000
width 900
第两个
高和宽一样的。。
left 2000
top 1000
程序

Private Sub Command1_Click()
Command2.Left = Command1.Left
End Sub

Answer 2

我看了一下，还是第1题有一点不太好做，其他你都应该可以做出来的，所以只贴第一题。剩下的自己动脑想一想，肯定可以的~~~

1.=============================================
Private Function Su(num As Integer) As Boolean
Dim k
If num < 2 Or num = 4 Then Su = False Else Su = True
k = 2
Do While k < num / 2 And Su
If num Mod k = 0 Then Su = False Else k = k + 1
Loop
End Function
Private Sub Cmd1_Click()
Text1 = "0"
Dim a As Integer
If Opt1.Value = True Then
For a = 100 To 200
If Su(a) = True Then Text1 = Text1 + a
Next
End If
If Opt2.Value = True Then
For a = 200 To 400
If Su(a) = True Then Text1 = Text1 + a
Next
End If
End Sub

Private Sub Form_Load()
Text1 = "0"
End Sub

Answer 3

10块钱一个题目~要就加QQ 262481147~

Answer 4

这个好像挺简单的，怎么给你结果？