下面程序是用冒泡法将数组a中的10个整数按升序排列,请将程序补充完整。 Private Sub Comman
第1题
有一个事件过程,其功能是:从已存在于磁盘上的顺序文件NM1.txt中读取数据,计算读出数据的平方值,将该数据及其平方值存入新的顺序文件NM2.txt中。请填空。 Private Sub Form_Click() Dim x As Single,y As Single Open "NM1.txt" For Input As 1 Open "NM2.txt "For Input As 2 Do While Not EOF(1) 【 】 Print x y=x^2 【 】 Print y Loop Close 1, S2 End Sub
请帮忙给出正确答案和分析,谢谢!
第2题
有下列程序,运行后变量x1、y1和z1的结果分别是【 】、【 】和【 】。 Private Sub fun1(s,m,n) s = m + 1 m = n + 2 n = s + 3 End Sub Private Sub form. Click() Dim x1, y1 x1 = 1 :y1 = 1 :z1 = 1 Call fun1(x1,y1 + 1,(z1)) Debug.Print x1; y1; z1 End Sub
请帮忙给出正确答案和分析,谢谢!
第3题
在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框,其名称分别为Dhvel、 Dirl和File1。为了使它们同步操作,必须触发Drive1_Change()事件和Dir1_Change()事件,在这两个事件中执行的语句分别是【 】和【 】。
请帮忙给出正确答案和分析,谢谢!
第4题
设有如下程序: Private Sub Form_Click() a=325456 Print Format(Int((a*10+0.5))/10,"000,000.00") End Sub 程序运行后,单击窗体,输出结果为【 】。
请帮忙给出正确答案和分析,谢谢!
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!