第3题
建立一个通讯录的随机文件phonBook.txt,内容包括姓名、电话、地址和邮编,用文本框输入数据。单击“添加主记录”按钮command1时,将文本框数据写入文件,单击“显示”按钮Command2时,将文件中所有记录内容显示在立即窗口。 Private Type PerData Name1 As String Phon As String * 11 Address As String * 10 Posted As String * 6 End Type ___________________________定义PerData类型的变量xData Private Sub Form_Load() Open "C:\phonBook.txt"For Random As 1 End Sub Private Sub Command1_Click() xData. Name1=Text1.Text xData. Phon=Text2.Text ________=Text3.Text 地址 xData. PostCd=Text4.Text Put 1, 1, xData Text1.Text=" ":Text2.Text="" Text3.Text="":Text4.Text="" End Sub Private Sub Command2_Click() reno=LOF(1)/Len(xData) i=1 Do While i<= reno Get 1, i, xData Debug.Print xData.Name 1,______, xData. Address, xData. PostCd i=i+1 Loop End Sub
请帮忙给出正确答案和分析,谢谢!
第4题
在窗体上设计两个复选框,一个显示粗体,另一个显示斜体,通过对复选框的选择,在一个文本框中显示相应效果的文本,请完成下列程序。 Private Sub Form_Load0 Check1.Caption="显示粗体" Cheek2.Capfion="显示斜体" Text1.Text="May you a happy day!" End Sub Private Sub Check1_Click0 If______= 1 Then Text1.FontBold=True Else Text1.FontBold=False End if End Sub Private Sub Check2_Click() If Check2.Value=1 Then Text1.______ Else Text1.______ End If End Sub
请帮忙给出正确答案和分析,谢谢!
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!