二级vb上机题求解

来源:百度知道 编辑:UC知道 时间:2024/06/25 13:11:21
在考生文件夹中有一个工程文件exeecise4.vbp及其窗体文件execise4.frm。在名为form1窗体中有一个文本框,名为text1;请在窗体上绘制两个框架,名称分别为frame1和frame2,标题分别为“性别”和“身份”;在frame1中绘制两个单选按钮opt1和opt2,标题分别为“男”和“女”;在frame2中绘制两个单选按钮opt3和opt4,标题分别为“学生”和“老师”;在绘制一个命令按钮,名为cmd1,标题为“确定”。
编写适当的过程,使得在运行时,在frame1、frame2中各选一个单选按钮,然后单击确定按钮
最后原名保存修改后的文件。
注意:
1.不得修改窗体文件中已经存在的程序和text1的属性,在结束程序运行之前,必须进行能够产生表中结果的操作。
2.必须用窗体右上角的关闭按钮结束程序,否则无成绩。
正确程序如下;
Private Sub cmd1_Click()
text1.Text = "我是"
If opt1.Value Then
text1.Text = text1.Text & opt1.Caption
Else
text1.Text = text1.Text & opt2.Caption
End If
If opt3.Value Then
text1.Text = text1.Text & opt3.Caption
Else
text1.Text = text1.Text & opt4.Caption
End If
End Sub
这个程序没有错吧,可是我是用窗体右上角的关闭按钮结束的程序,但通过上机软件一评分,却是无成绩,可能是结果没有保留.....
求哪位高手给与指点,像类似的要通过窗体的右上角关闭程序的,我已经遇到过几题了,结果都是程序写对了,但都的不了分,很着急啊,马上就要二级考试了......

单击确定按钮怎么了?你的题目没写完!
Private Sub cmd1_Click()
If opt1.Value Then
text1.Text = "我是" & opt1.Caption
Else
text1.Text = "我是" & opt2.Caption
End If
If opt3.Value Then
text1.Text = text1.Text & opt3.Caption
Else
text1.Text = text1.Text & opt4.Caption
End If
End Sub

加上:
Private Sub Form_Unload(a)
Open "stud.txt" For Append As #1
Print#1,text1
Close#1
End
End Sub

保存到 文件?