下面程序是用来打印九九乘法表的,请填空。 Dim i As Integer, j As Integer, Strl $
第1题
下列程序功能是,产生10个0-100的随机数,输出其中的最大值。请将程序补充完整。 Private Sub Form_Click() Dim an(10)As Integer Dim max As Integer Randomize For i%=1 To 10 an(i%)=【 】 Next max=an(1) For i%=2 to 10 if an(i%)>max then max=an(i%) End If Next Print max End Sub
请帮忙给出正确答案和分析,谢谢!
第3题
下面程序是用冒泡法将数组a中的10个整数按升序排列,请将程序补充完整。 Private Sub Command1_Click( ) Dim a, Tmp As Integer a = Array (678,45,324,528,439,387,87,875,273,823) For i =【 】 Forj =0 To 9 Ifa (i)<a(j) Then Tmp = a(i): a(i) = a(j) i a(j) = Tmp End If Next j,i For i = 0 To 9 Print a(i) Next End Sub
请帮忙给出正确答案和分析,谢谢!
第4题
有一个事件过程,其功能是:从已存在于磁盘上的顺序文件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
请帮忙给出正确答案和分析,谢谢!
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!