1、必做题:在每道题正确无误后保存为结果文件(*.exe),以自己的姓名加学号后两位进行命名,然后提交作业)
新建工程文件,设置窗体的标题为“城市选择”,然后在窗体Form1上,添加一个文本内容为“我来自上海”的文本框Text1,其内容居中显示;然后再添加3个标题分别为“北京”、“上海”和“天津”的单选按钮Option1、Option2和Option3,其中Option2处于选中状态。程序运行时,单击某个单选按钮,则在Text1 中显示对应的内容。完成上述设计后,以姓名加学号后两位保存工程,并生成可执行文件(*.exe),并上交可执行作业文件。
程序设计界面和运行界面如下:


代码提示如下:
Private SubOption1_Click()
Text1 ="我来自北京"
End Sub
Private SubOption2_Click()
Text1 ="我来自上海"
End Sub
Private SubOption3_Click()
Text1 ="我来自天津"
End Sub
2、附加题(选做题,请有能力的同学尝试完成下面的任务)
新建工程文件,设置窗体的标题为“选课系统”,在窗体Form1上,添加一个标题为“选修课”的框架Frame1,并在Frame1 中添加3个标题分别为“音乐欣赏”、“美术鉴赏”和“影视欣赏”的复选框Check1、Check2和Check3;然后再添加一个标题为“提交”的命令按钮Command1;最后添加一个文本内容为空、有垂直滚动条的文本框Text1。程序运行时,选择相应的复选框,单击“提交”按钮,将选择结果按顺序分行显示在Text1中。完成上述设计后,以姓名加学号后两位保存工程,并生成可执行文件(*.exe),并上交可执行作业文件。
程序设计界面和运行界面如下:


代码提示:
PrivateSub Command1_Click()
text1.text=""
if check1.value=1 then text1.text=text1.text & check1.caption & vbcrlf
if check2.value=1 then text1.text=text1.text & check2.caption & vbcrlf
if check3.value=1 then text1.text=text1.text & check3.caption & vbcrlf
end sub