以下所列程序的功能是:在窗体上有一个文本框控件,程序运行后,用户可以利用鼠标左键来拖动该文本
第1题
在窗体form1上有一个驱动器列表控件Drivel,一个目录列表控件Dirl,一个文件列表控件File1,一个富文本控件Richtexbox1。要求程序运行以后,用户可以利用。Drivel选择不同驱动器,同时Dirl中显示当前选中的驱动器的目录,用户利用Dirl选择文件所在的文件夹,在Filel控件中将显示当前选中的文件夹下的文件,用户选中其中某个文件(假设为文本文件),则该文件的内容显示在控件Richtexboxl中。补充相应的语句,使之完成所述的功能。 Private Sub Dirl_Change() 【 】 End Sub Private Sub Drive1_Change() 【 】 End Sub Private Sub Filel _Click() Dim fname AS String If【 】Then fname=Filel.Path & Filel.FileName Else fname=Filel.Path& "\" & Filel.FileName End If RichTextBox1.LoadFile(fname) End Sub
请帮忙给出正确答案和分析,谢谢!
第3题
单击窗体上的命令按钮Command1,程序的输出为【 】。 Private Sub Command1_Click() a="AbC" b="dEF" c=UCase(A)+LCase(B) Print Asc(C) End Sub
请帮忙给出正确答案和分析,谢谢!
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!