基础篇 共50页[1 2 3 4 5 6 7 >»<... 最后一页]

一个人资料程序

要求，单击“输入”出现你所选定的个人资料运行时的效果如图所示

1． 

1、制作应用程序界面

适当调整窗体Form1的大小，然后在上面放置四个标签框（Label），两个列表框（ListBox），两个组合框（ComboBox）一个命令按钮CommandButton。按图调整各控件在窗体中的位置。

2．  设置控件属性：

a)   标签框Label1、Label2、Label3和Label4其Caption属性的值分别设置为“家住”、“血型”、“性别”和“兴趣”

b)        列表框List1和List2，在其List属性里添加各区和兴趣的数据，List2的Style属性：选1为每个选项带有一个复选框

c)        组合框Combo1和Combo2，在其List1的List属性里添加血型和性别的数据。

d)        一个命令按钮Command1的Caption值设置为“输入”

3．编写程序代码：

Command1的Click过程如下

Private Sub Command1_Click()
msg = "您输入的数据=" & vbCrLf 'vbCrLf为输出时的换行命令
If List1.ListIndex >= 0 Then msg = msg & "家住:" & List1.Text & vbCrLf
If Combo1.ListIndex >= 0 Then msg = msg & "血型:" & Combo1.Text & vbCrLf
If Combo2.ListIndex >= 0 Then msg = msg & "性别:" & Combo2.Text & vbCrLf
msg = msg & "兴趣:" & vbCrLf
For I = 0 To List2.ListCount - 1 '设置兴趣复选列表选项循环
If List2.Selected(I) Then msg = msg & " " & List2.List(I) & vbCrLf
Next
MsgBox msg
End Sub4

4．程序说明：

   使用MsgBox和&字符连接以及vbCrLf换行命令，使其输出界面如图所示。

   程序依次选择家住、血型和性别单选项的数据。由于兴趣选项为复选内容所以设置一个for-next循环，其复选项的Index索引号依次为循环变量的值。