题目内容 (请给出正确答案)
[主观题]

下列程序段的功能是:从文本框中输入一个数值,如果该数值满足“除以4余1,除以5余2”条件,则在窗体上

输出文本框中的数值,否则,将焦点定位在文本框中,并清除文本框的内容。请填空。 Private Sub Command1_Click() x=Val(Text1.Text) If______Then Print x Else ______ Text1.Text="" End If End Sub

查看答案
如搜索结果不匹配,请 联系老师 获取答案
您可能会需要:
您的账号:,可能会需要:
您的账号:
发送账号密码至手机
发送
更多“下列程序段的功能是:从文本框中输入一个数值,如果该数值满足“…”相关的问题

第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

请帮忙给出正确答案和分析,谢谢!

点击查看答案

第4题

程序运行后,单击窗体,则在文本框中显示的内容是______,而在图片框中显示的内容是______。

请帮忙给出正确答案和分析,谢谢!

点击查看答案
热门考试 全部 >
相关试卷 全部 >
账号:
你好,尊敬的上学吧用户
发送账号至手机
获取验证码
发送
温馨提示
该问题答案仅针对搜题卡用户开放,请点击购买搜题卡。
马上购买搜题卡
我已购买搜题卡, 登录账号 继续查看答案
重置密码
确认修改
谢谢您的反馈

您认为本题答案有误,我们将认真、仔细核查,
如果您知道正确答案,欢迎您来纠错

警告:系统检测到您的账号存在安全风险

为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!

微信搜一搜
上学吧
点击打开微信
警告:系统检测到您的账号存在安全风险
抱歉,您的账号因涉嫌违反上学吧购买须知被冻结。您可在“上学吧”微信公众号中的“官网服务”-“账号解封申请”申请解封,或联系客服
微信搜一搜
上学吧
点击打开微信