第2题
在窗体上画一个通用对话框,其名称为CommandDialog1,再画一个命令按钮,其名称为Command1。程序运行时,单击命令按钮,在对话框内只允许显示文本文件。将以下程序补充完整。 Private Sub Command1_Click() CommandDialog1.Filter=【 】 CommandDialog1.ShowOpen End Sub
请帮忙给出正确答案和分析,谢谢!
第3题
编写一过程将C盘中的Config.sys文件内容读出,并在文本框中显示出来。在窗体Form1上建立一个文本框Text1,将其MultiLine属性设置为True,ScrollBars属性设置为3-Both。给定的程序不完整,请将程序补充完整。 Option Explicit Private Sub Form. _Click() Dim ch1 As String,fn As Integer Dim Str As String fn=【 】 Open "C:\Config.sys" For Input As fn Do While Not EOF(【 】) Line Input fn, ch1 Str = Str + chl+ vbCrLf Loop Text1.Text =【 】 End Sub
请帮忙给出正确答案和分析,谢谢!
第4题
下列程序中有一个按钮Command1,一个文本框Text1,其属性MultiLine=True。当单击按钮后,文本框显示【 】行数据,其中第2行和第3行的数据分别是【 】和【 】。 Option Base 1 Private Sub Command1_Click() Dim a, s As String,i As Integer a=Array(1,3,5,7,2,4,6,8) s=" " For i=1 To Ubound(A) s=s + Str(a(i)+i)+ vbCrLf Next i Text1.Text=s End Sub
请帮忙给出正确答案和分析,谢谢!
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!