如果在D盘当前文件夹下已2经存在名为PIC.day的顺序文件,那么执行语句Open "D:\PIC.dat" For Appe
第2题
有如下的程序片段,该程序片段的执行完后,共执行循环______次。 Private Sub command1_ Click() total =0 Counter = 1 do Print Counter total = total + Counter Print total, "111" Counter = Counter + 1 if total >= 10 then exit do End if Loop while Counter <= 10 End Sub
请帮忙给出正确答案和分析,谢谢!
第3题
在窗体上建立—个名称为Text1的文本框,用来接收一个整数。当form1_ Click事件发生时,将在窗体上显示输入整数的各位数字和。 Private Function fun(m As Integer) As Integer Dim k As Integer, n As Integer do n =【 】 k=k+ n m= m\10 Loop until m = 0 fun = k End Function Private Sub form_ Click() Dim n As Integer n = Val(Text1. Text) Print【 】 End Sub
请帮忙给出正确答案和分析,谢谢!
第4题
下列程序实现的功能是:当在窗体上单击时,将输出a1.txt 文件中的数字字符的个数。 Private Sub form_ Click() Dim Ch As String * 1 Dim n As Integer Open "c:\a1. txt" for Input As 10 do while【 】 Ch = Input(1, 10) if【 】 then n=n+1 End if Loop【 】 Close 10 End Sub
请帮忙给出正确答案和分析,谢谢!
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!