Question

vb问题?急急急急!!!!!!!!!!!!

清高手帮我把下面带"?"的问题回答完整,会那到写那道,谢谢
1. 在考生文件夹中有工程文件Sjt5.vbp及其窗体文件Sjt5.frm，该程序是不完整
的，请在有？号的地方填入正确内容，然后删除？及所有注释符(即'号)，但
不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下： 在窗体上有一个列表框，名称为List1，一个文本框，名称为
Text1，和一个命令按钮，名称为C1，标题为“复制”。要求程序运行后，在
列表框中自动建立四个列表项，分别为“Item1”、“Item2”、“Item3”、
“Item4”。如果选择列表框中的一项，则单击“复制”按钮时，可以把该项
复制到文本框中。
Private Sub Form_Load()
' List1.AddItem ?
List1.AddItem "Item2"
List1.AddItem "Item3"
List1.AddItem "Item4"
End Sub
Private Sub C1_Click()
' Text1.Text = ?
End Sub

2. 在考生文件夹中有工程文件Sjt6.vbp及其窗体文件Sjt6.frm ，该程序是不完
整的，请在有？号的地方填入正确内容，然后删除？及所有注释符(即'号)，
但不能修改其它部分。存盘时不得改变文件名和文件夹。
本题描述如下：
在窗体有三个复选框，名称分别为Ch1、Ch2和Ch3，标题依次为“体育”、
“音乐”、“美术”，还有一个命令按钮，名称为C1，标题为"显示"。要求
程序运行后，如果选中某个复选框，则当单击“显示”命令按钮时，则显示
相应的信息。
例如，如果选取中“体育”和“音乐”复选框，则单击“显示”命令按钮后，
在窗体上显示“我的爱好是体育音乐”(如图所示)；而如果选中“体育”、
“音乐”和“美术”复选框，则单击“显示”按钮后，在窗体上显示“我的
爱好是体育音乐美术”。
Private Sub C1_Click()
Dim c$
' c$ = ？
' If ？ Then c$ = c$ + ？
' If Ch2.Value Then c$ = c$ + ？
' If Ch3.Value Then c$ = c$ + ？
' MsgBox ？
End Sub

3.在名称为Form1的窗体上建立两个单选按钮（名称分别为Opt1和Opt2，标题
分别为“100-200之间素数”和“200-400之间素数”、一个文本框（名称为
Text1）和两个命令按钮，其名称分别为Cmd1和Cmd2，标题分别为“计算”、“存
盘”（如图所示）。程序运行后，如果选中一个单选按钮并单击“计算”按钮，
则计算出该单选按钮标题所指明的所有素数之和。并在文本框中显示出来。如
果单击“存盘”按钮，则把计算结果存入“out.txt”文件中，该文件必须放在
考生文件夹中。（在考生文件夹中有标准模块mode.bas，其中的putdata 过程可
以把结果存入指定的文件，而isprime函数可以判断整数x是否为素数，如果是
素数，则函数返回True，否则返回False，考生可以将该模块文件添加到自己的
工程中。）
[注意]：
(1) 必须把200-400之间的素数之和存入考生文件夹下的out.txt文件中，
否则没有成绩。
(2) 保存程序时必须存放在考生文件夹下，窗体文件名为wy7.frm，工程文
件名为wy7.vbp。
Private Sub Cmd1_Click()
Dim i As Integer
Dim temp As Long
temp = 0
If Opt1.Value Then
For i = 100 To 200
If isprime(i) Then
' temp = temp + ?
End If
Next
Else
For i = 200 To 400
If isprime(i) Then
' temp = temp + ?
End If
Next
End If
' Text1.Text = ?
End Sub

Private Sub Cmd2_Click()
' putdata "\out.txt", ?
End Sub

Answer 1

2题：
Private Sub C1_Click()
Dim c$
c$ = "我的爱好是"
If Ch1.Value Then c$ = c$ + Ch1.Caption
If Ch2.Value Then c$ = c$ + Ch2.Caption
If Ch3.Value Then c$ = c$ + Ch3.Caption
MsgBox c$
End Sub

3题：
Private Sub Cmd1_Click()
Dim i As Integer
Dim temp As Long
temp = 0
If Opt1.Value Then
For i = 100 To 200
If isprime(i) Then
temp = temp + i
End If
Next
Else
For i = 200 To 400
If isprime(i) Then
temp = temp + i
End If
Next
End If
Text1.Text = temp
End Sub

Private Sub Cmd2_Click()
putdata "\out.txt", ?
End Sub

因为阁下没有列出模块中putdata函数过程的参数定义，因此只能遗留一个?了

Answer 2

1题：
Private Sub Form_Load()
List1.AddItem "Item1"
List1.AddItem "Item2"
List1.AddItem "Item3"
List1.AddItem "Item4"
End Sub
Private Sub C1_Click()
Text1.Text = List1.Text
End Sub