Question

一个用vb解答的问题，求高人啊！

综合作业名称: 控件综合实习
完成的内容:
一、实习目的
1、 进一步掌握各个控件的属性应用。
2、 进一步掌握各个控件的事件、方法的使用。
3、 进行简单的程序设计，加强程序设计能力。
二、实习内容
1、 程序设计
设计一个信息注册的程序，形如网上申请邮箱时需要做的内容。具体画面运行后如图10-1所示。
设计要求：
a、 用到的控件有：标签、文本框、框架、单选按钮、复选框、命令按钮、组合框、图片框、图像框等。
b、 将图片框作为父对象，其它控件作为子对象，如图10-1（运行后的画面）中的标签、文本框等是子对象，对图片框的属性BorderStyle进行设定。
c、 密码的显示使用星号（*）。
d、 ‘学历’采用组合框，其内容在设计间段添加，也可在运行时利用窗体的Load加载，内容有：‘小学、中学、大学、硕士、博士’等。

图 10-1
e、 ‘职业’的做法同上，内容有：‘计算机业、金融业、商业、服务业、教育业、工程师、政府机关、经理、主管、个体业’等。
f、 点击‘取消’按钮使画面内的所有选择、输入的信息都清空。
g、 点击标签‘代表作品’后，在其下面的图像框内按照图像框设定的大小填充一幅图，此时注意属性设置。
h、 点击‘确定’按钮显示如图10-2的画面，将你输入的、选择的信息显示在文本框中。

图 10-2
i、 点击‘返回’又回到图10-1的画面。
j、 程序的实现采用单窗体，实现时首先建立如图10-3的画面，然后将其控件属性进行设置，建立如图10-4的画面。

图10-3

图 10-4
三．实验代码
用到的部分代码如下：
Private Sub Command1_Click()
……
Text3.Text = Label1.Caption + " ：" + Text1.Text + Chr(13) + Chr(10)
Text3.Text = Text3.Text + Label2.Caption + " ：" + Text2.Text + Chr(13) + Chr(10)

If Option1.Value Then Text3.Text = Text3.Text + Label3.Caption + " ：" + Option1.Caption + Chr(13) + Chr(10)
If Option2.Value Then Text3.Text = Text3.Text + Label3.Caption + " ：" + Option2.Caption + Chr(13) + Chr(10)
If Not (Option1.Value Or Option2.Value) Then Text3.Text = Text3.Text + Label3.Caption + " ：" + Chr(13) + Chr(10)

If Combo1.ListIndex <> -1 Then
Text3.Text = Text3.Text + Label6.Caption + " ：" + Combo1.Text + Chr(13) + Chr(10)
Else
Text3.Text = Text3.Text + Label6.Caption + " ：" + Chr(13) + Chr(10)
End If

If Combo2.ListIndex <> -1 Then
Text3.Text = Text3.Text + Label4.Caption + " ：" + Combo2.Text + Chr(13) + Chr(10)
Else
Text3.Text = Text3.Text + Label4.Caption + " ：" + Chr(13) + Chr(10)
End If

Text3.Text = Text3.Text + Label5.Caption + " ：" + Chr(13) + Chr(10)

If Check1.Value Then Text3.Text = Text3.Text + " " + Check1.Caption + Chr(13) + Chr(10)
If Check2.Value Then Text3.Text = Text3.Text + " " + Check2.Caption + Chr(13) + Chr(10)
……
End Sub
上面省略号表示需要你补充的代码位置。

解决的问题：
1．巩固命令按钮等标准控件的应用。
2．巩固输入框和消息框的应用。
3．理解并掌握各种标准化方法的算法。
4．理解并掌握了程序结构的格式、功能及应用。
思考与讨论:
1．
2．
3．

Answer 1

看着感觉难度不大，不过木有时间一个一个搞哦，最近手头上活很多啊。还有，能否告知每个text、caption、label、option控件对应的内容，要不怎么增加啊？

追问

本来有图的，找不到了，不过最终抄同学的了。。。已经做完了，谢谢你

Answer 2

好多问题，慢慢来

追问

额，那你能做出来吗？一个一个的，谢谢了

追答

就是做一个录入人员简历的界面而以？

追问

额，差不多吧，不是很清楚。。。

Answer 3

速度回答 你VB水平 是一点也不会 还是……

追问

上课没听过，啥都不会