下面程序段的作用是从文本框中输入数据，如果该数据满足条件：除以6余2，除以5余3，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。请填空。 Private Sub Commandl Click() num=Val(Textl．Tex

admin2012-12-08 23

问题下面程序段的作用是从文本框中输入数据，如果该数据满足条件：除以6余2，除以5余3，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。请填空。
Private Sub Commandl Click()
num=Val(Textl．Text)
If Then
Print num
Else
Textl．Text=""
End If
End Sub

选项

答案num Mod 6=2And num Mod 5=3或num Mod 5=3 And num Mod 6=2 Textl．SetFocus

解析

转载请注明原文地址:https://kaotiyun.com/show/Akhp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类

二级VB

NCRE全国计算机二级

相关试题推荐

在VisualBasic中，要将一个窗体加载到内存进行预处理但不显示，应使用的语句是
文件根据数据性质，可分为【】文件和【】文件。
数据库系统的三级模式分别为【】模式、内部级模式与外部级模式。
下列事件过程的功能是：通过Form_Load事件给数组赋初值为35、48、15、22、67，Form_Click事件找出可以被3整除的数组元素并打印出来。请在空白处填人适当的内容，将程序补充完整。　　Dim　Arr()　　Private　Su
在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：PrivateSubCommand1_Click()DimArr1(10)AsInteger，arr2(10)AsInteger
设有如下通用过程：PublicSubFun(a()AsInteger,xAsInteger)Fori=1To5x=x+a(i)NextEndSub在窗体上画一个名称为Text1的文本
用树形结构表示实体之间联系的模型是______。
在下面程序的执行过程中，将要进行【】次循环，而在第3次循环输出的数据是【】。PrivateSubCommand1Click()Dimb(-1To3)Fori=LBound(b，1)ToUBound(b，1)
可通过“字体”对话框的()属性获得用户选定的字体。

随机试题

肺结核干酪样坏死转向愈合发生肾病综合征
在总图制图中，下列表示建筑物某点城市测量坐标的标注中()正确。
乙方能否就上述每项事件向甲方提出工期补偿和费用补偿要求?试简述其理由。该工程的实际施工天数为多少天?可得到的工期补偿为多少天?工期奖罚天数为多少天?
某混凝土工程，9月份计划工作量为5000m3，计划单价为400元/m3；而9月份已完成工作量为4000m3，实际单价为410元/m3，则该工程9月份的进度偏差为()万元。
根据现行消费税政策，关于消费税征税范围的说法，不正确的是()。
假设今天你参加招警面试时碰巧有一位考官曾是你的老师，并且他对你的评价一直不是很好，这对你的面试会有影响吗?
下列关于行政机关委托的组织的说法中正确的有()。
Writeanessayof160-200wordsbasedonthefollowingdrawing.Inyouressay,youshould1)describethedrawingbriefly,2)expl
Almosteveryfamilybuysatleastonecopyofanewspapereveryday.Somepeoplesubscribe(订阅)toasmanyastwoorthreenewspap
Intechnologymarkets,playingcatch-upisabruising,costlyandoften【B1】______game,evenforcorporategiants.Inamemo

最新回复(0)

下面程序段的作用是从文本框中输入数据，如果该数据满足条件：除以6余2，除以5余3，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。请填空。 Private Sub Commandl Click() num=Val(Textl．Tex

二级VB

NCRE全国计算机二级

在VisualBasic中，要将一个窗体加载到内存进行预处理但不显示，应使用的语句是

文件根据数据性质，可分为【】文件和【】文件。

数据库系统的三级模式分别为【】模式、内部级模式与外部级模式。

下列事件过程的功能是：通过Form_Load事件给数组赋初值为35、48、15、22、67，Form_Click事件找出可以被3整除的数组元素并打印出来。请在空白处填人适当的内容，将程序补充完整。 Dim Arr() Private Su

在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：PrivateSubCommand1_Click()DimArr1(10)AsInteger，arr2(10)AsInteger

设有如下通用过程：PublicSubFun(a()AsInteger,xAsInteger)Fori=1To5x=x+a(i)NextEndSub在窗体上画一个名称为Text1的文本

用树形结构表示实体之间联系的模型是______。

在下面程序的执行过程中，将要进行【】次循环，而在第3次循环输出的数据是【】。PrivateSubCommand1Click()Dimb(-1To3)Fori=LBound(b，1)ToUBound(b，1)

可通过“字体”对话框的()属性获得用户选定的字体。

肺结核干酪样坏死转向愈合发生肾病综合征

在总图制图中，下列表示建筑物某点城市测量坐标的标注中()正确。

乙方能否就上述每项事件向甲方提出工期补偿和费用补偿要求?试简述其理由。该工程的实际施工天数为多少天?可得到的工期补偿为多少天?工期奖罚天数为多少天?

某混凝土工程，9月份计划工作量为5000m3，计划单价为400元/m3；而9月份已完成工作量为4000m3，实际单价为410元/m3，则该工程9月份的进度偏差为()万元。

根据现行消费税政策，关于消费税征税范围的说法，不正确的是()。

假设今天你参加招警面试时碰巧有一位考官曾是你的老师，并且他对你的评价一直不是很好，这对你的面试会有影响吗?

下列关于行政机关委托的组织的说法中正确的有()。

Writeanessayof160-200wordsbasedonthefollowingdrawing.Inyouressay,youshould1)describethedrawingbriefly,2)expl

Almosteveryfamilybuysatleastonecopyofanewspapereveryday.Somepeoplesubscribe(订阅)toasmanyastwoorthreenewspap

Intechnologymarkets,playingcatch-upisabruising,costlyandoften【B1】______game,evenforcorporategiants.Inamemo

下列事件过程的功能是：通过Form_Load事件给数组赋初值为35、48、15、22、67，Form_Click事件找出可以被3整除的数组元素并打印出来。请在空白处填人适当的内容，将程序补充完整。　　Dim　Arr()　　Private　Su