重要提示:请勿将账号共享给其他人使用,违者账号将被封禁!
查看《购买须知》>>>
首页 > 大学专科> 电子信息
网友您好,请在下方输入框内输入要搜索的题目:
搜题
拍照、语音搜题,请扫码下载APP
扫一扫 下载APP
题目内容 (请给出正确答案)
[主观题]

在有下面一个程序段从文本框中输入数据,如果该数据满足条件,除以6余2,脓以5余3,则输出.否则,特焦

点定位在文本框中,并清除文本框的内容。 Private Sub Command1_Click() num=Val(Text1.Text) If【 】Then Print num Else Text1.Text=" " 【 】 End If End Sub

答案
查看答案
更多“在有下面一个程序段从文本框中输入数据,如果该数据满足条件,除以6余2,脓以5余3,则输出.否则,特焦”相关的问题

第1题

下列程序段的功能是:从文本框中输入一个数值,如果该数值满足“除以4余1,除以5余2”条件,则在窗体上
输出文本框中的数值,否则,将焦点定位在文本框中,并清除文本框的内容。请填空。 Private Sub Command1_Click() x=Val(Text1.Text) If______Then Print x Else ______ Text1.Text="" End If End Sub

点击查看答案

第2题

在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1), 然后编写如

在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1), 然后编写如下事件过程: Private Sub Command1 Click() Text1.Text=InputBox("请输入数据1") TextText=InputBox("请输入数据2) End Sub 程序运行后,如果单击命令按钮,将先后显示两个输入对话框,在两个输入对话框中分别输入123和abc,则两个文本框中显示的内容分别为【 】和【 】。

点击查看答案

第3题

在窗体上画一个文本框和一个命令按钮,如下图所示。 编写如下程序: Private Sub Form_Lo

在窗体上画一个文本框和一个命令按钮,如下图所示。

在窗体上画一个文本框和一个命令按钮,如下图所示。 编写如下程序: Private Sub Form_编写如下程序: Private Sub Form_Load() Show Text1.Text=" " Form1.KeyPreview=False Text1.SetFocus End Sub Private Sub Command1_Click() KeyPreview=Not KeyPreview Print End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print UCase(Chr(KeyAscii+1)); End Sub Private sub Text1_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii+2) KeyAscii=0 End Sub 阅读以上程序,理解每个事件过程的操作,然后填空。 ①程序运行后,直接从键盘上输入abc,程序输出的结果是【 】。 ②程序运行后,单击一次“命令按钮1”,然后从键盘上输入abc,程序输出的结果是【 】。

点击查看答案

第4题

下列程序段实现的功能为:在文本框中输入一个整数,然后判断该整数的奇偶性。请完成相应的程序代码。
Private Sub Command1_Click() Dim x AS Integer x=Val(Right (Text1.Text,2)) If x Mod 2=0 Then LabeCaption=“偶数” Else LabeCaption=“奇数” End If Text1.SetFocus End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If【 】ThenKeyAscii=0 End Sub

点击查看答案

第5题

在窗体中添加一个名称为Lablel1的标签、两个名称为Text1和Text2的文本框以及名称为Command1的按钮
。程序运行后,在两个文本框中输入数据,当单个按钮时,标签Label1中显示运算的结果。程序的功能是计算,n!+(n+1)!+(n+2)!+…+(n+m)!。 请在【 】处填入适当的内容,将程序补充完整。 Private Sub Command1_Click() Dim a,b,c,d As Double Dim i,n,m As Integer n=Val(Text1.Text):m=Val(【 】) a=0: b=1: c=0: d=1 For i=1 TO m b=b*i a=a+b Next i For i=1 To n d=d*i C=c+d Next i Label1.Caption=a-c End Sub

点击查看答案

第6题

窗体上有名称分别为Text1、Text2的2个文本框,要求文本框Text1中输入的数据小于500,文本框T
ext2中输入的数据小于1000,否则重新输入。为了实现上述功能,在以下程序中问号()处应填入的内容是。

Private Sub Text1_LostFocus()

Call CheckInput(Text1,500)

End Sub

Private Sub Text2_LostFocus()

Call CheckInput(Text2,1000)

End Sub

Sub CheckInput(t As ?,x As Integer)

If Val(t.Text)>x Then

MsgBox"请重新输入!"

End If

End Sub

A.Text

B.SelText

C.Control

D.Form

点击查看答案

第7题

在文本框中,【 】属性指定在一个文本框中如何输入和显示数据,利用PasswordChar 属性指定文本框内
显示占位符。

点击查看答案

第8题

编写一个GUI程序,通过文本框输入一个URL地址。读出其连接到的资源内容并在文本区中显示。

点击查看答案

第9题

下面关于文本框和编辑框的叙述中,错误的是( )。

A.文本框和编辑框的Value属性类型都可以是C、N、D、L

B.按【Enter】键,对于文本框是结束输入,对于编辑框则是另起一段

C.文本框和编辑框的数据源都由ControlSource属性控制

D.文本框和编辑框都可以作为M型字段的数据绑定控件

点击查看答案

第10题

下面是用户程序对Applet类中方法action()的重新定义,功能为从单行文本编辑区input中输入数据赋给

下面是用户程序对Applet类中方法action()的重新定义,功能为从单行文本编辑区input中输入数据赋给k。Text Field类的对象input和int型变量k已在类体中正确说明。 Public ______ action(Evente,Object o) {if(e.target==input) k=Integer.parseInt(______ .get Text()): repaint(); return true; }

点击查看答案
下载APP
关注公众号
TOP
重置密码
账号:
旧密码:
新密码:
确认密码:
确认修改
购买搜题卡查看答案 购买前请仔细阅读《购买须知》
请选择支付方式
  • 微信支付
  • 支付宝支付
点击支付即表示同意并接受了《服务协议》《购买须知》
立即支付 系统将自动为您注册账号
已付款,但不能查看答案,请点这里登录即可>>>
请使用微信扫码支付(元)

订单号:

遇到问题请联系在线客服

请不要关闭本页面,支付完成后请点击【支付完成】按钮
遇到问题请联系在线客服
恭喜您,购买搜题卡成功 系统为您生成的账号密码如下:
重要提示:请勿将账号共享给其他人使用,违者账号将被封禁。
发送账号到微信 保存账号查看答案
怕账号密码记不住?建议关注微信公众号绑定微信,开通微信扫码登录功能
请用微信扫码测试
优题宝