下列程序段的功能是:从文本框中输入一个数值,如果该数值满足“除以4余1,除以5余2”条件,则在窗体上
第1题
下列是一个体操评分程序。设满分为10分,20位评委,除去一个最高分和一个最低分,计算平均分。 Private Sub Command1_Click() Max=0 Min=10 For i=1 To 20 n=Val(InputBox("请输入分数")) If n>Max Then Max=n If n<Min Then Min=n s=s+n ______ s=s-Min-Max p=s/18 Print "最高分"; Max; "最低分"; Min Print "最后得分: "; p End Sub
请帮忙给出正确答案和分析,谢谢!
第2题
假设有以下程序段: For i= 1 To 3 For j=5 To 1 Step -1 Print i * j Next j Next i 则语句Print i*j的执行次数是______,i的值为______,j的值为______。
请帮忙给出正确答案和分析,谢谢!
第3题
下列程序用于在带垂直滚动条的文本框Text1中输出3到100之间的全部素数。请填空。 Private Sub Command1_click() Text1.Text="" For n=3 to 100 k=Int(Sqr(n)) i=2 Flag=0 Do While i<=______And Flag=0 If n Mod i=0 Then Flag=1 Else i=i+1 End If Loop If______Then Text1.Text=Text1.Text&Str(n)&Chr(13)&Chr(10) End If Next n End Sub
请帮忙给出正确答案和分析,谢谢!
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!