在窗体上画一个名称为Commana1的命令按钮，然后编写如下程序： Dim SW As Boolean Function func(X As Integer)As Integer If X＜20 Then

admin2013-04-11 33

问题在窗体上画一个名称为Commana1的命令按钮，然后编写如下程序： Dim SW As Boolean Function func(X As Integer)As Integer If X＜20 Then Y=X Else Y=20+X End If func = Y End Function Private Sub Form MouseDown(Button As Integer,_ Shift As Integer,X As Single, Y As Single) SW = False End Sub Private Sub Form_MouseUp( Button As Integer,_ Shift As Integer ,X As Single, Y As Single) SW = True End Sub Private Sub Commandl_Click( ) Dim intNum As Integer intNum = InputBox(" ") If SW Then Print func(intNum) End If End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果为

选项 A、输出0
B、输出25
C、输出45
D、无任何输出

答案4

解析本题考查的是鼠标事件，当压下鼠标左键(发生MouseDown时)SW的值为False，当松开鼠标左键(触发MouseUp时)SW的值为True。

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

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

二级VB

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)

在窗体上画一个名称为Commana1的命令按钮，然后编写如下程序： Dim SW As Boolean Function func(X As Integer)As Integer If X＜20 Then

二级VB

NCRE全国计算机二级

注意：下面出现的“考生文件夹”均为c：\wexam\25160001。(1)在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即’号)，但不能修改其他部分。

注意：下面出现的“考生文件夹”均为c：\wexam\25160001。请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在Form1的窗体上画一个名称为Text1的文本框，然后建立一个主菜单，标题为“操作

注意：下面出现的“考生文件夹”均为c：\wexam\25160001。请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上添加一个计时器控件，名称为Timer1。请利用“属性”窗

注意：下面出现的“考生文件夹”均为c：\wexam\25160001。请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上放置两个列表框，名称分别为List1和List2。在Lis

下面出现的“考生文件夹”均为c：\wexam\25160001。在考生文件夹中有工程文件sjt5.vbp及其窗体文件sjt5.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即’号)但不能修改其他部分。存盘时不得改变

注意：下面出现的“考生文件夹”均为c:\wexam\25160001。(1)在名称为Form1的窗体上建立两个主菜单，其标题分别为“文件”和“帮助”，名称分别为vbFile和vbHelp，在“文件”菜单下有3个子菜单项，标题分别为“新建”、“打开”

设在工程中有一个标准模块，其中定义了如下记录类型TypeBooksNameAsString10TelNumAsString20EndType在窗

用Write和Print语句向文件中写入多个数据的差别在于______。

有以下程序：#include＜stdio．h＞main(){inty=9；for(；y＞0；y--)if(y％3==0)printf("％d"，--y)；}程序运行后的输出结果是()。

丰富：贫乏

女性，54岁。缓起发热，咳嗽，痰呈脓性，伴腥臭味，每日约150ml。病程已10天，多种抗生素治疗不见改善。X线示右下肺叶后基底段团块状影，伴空洞和液平。2周前曾有拔牙史。为了解有无气道阻塞，宜选择下列哪项检查

某项工作有三项紧后工作，其持续时间分别为4d、5d、6d；其最迟完成时间分别为18d、16d、14d，本工作的最迟完成时间是()d。

某公司采用集权与分权相结合的财务管理体制，根据我国企业的实践，公司总部一般应该集权的有()。

根据支付结算法律制度的规定，下列账户中，需要在开户后5个工作日内到中国人民银行当地分支行备案的是()。

集体奖励的条件大体包括：(　　)。

下列各句中，没有语病的一项是()。

A、Shethinksnothingcanbedoneaboutit.B、Shethinksthemanshoulduseperfume.C、Shewilltalktotheownersverysoon.D、S

在窗体上画一个名称为Commana1的命令按钮，然后编写如下程序： Dim SW As Boolean Function func(X As Integer)As Integer If X＜20 Then

二级VB

NCRE全国计算机二级

注意：下面出现的“考生文件夹”均为c：\wexam\25160001。(1)在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即’号)，但不能修改其他部分。

注意：下面出现的“考生文件夹”均为c：\wexam\25160001。请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在Form1的窗体上画一个名称为Text1的文本框，然后建立一个主菜单，标题为“操作

注意：下面出现的“考生文件夹”均为c：\wexam\25160001。请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上添加一个计时器控件，名称为Timer1。请利用“属性”窗

注意：下面出现的“考生文件夹”均为c：\wexam\25160001。请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上放置两个列表框，名称分别为List1和List2。在Lis

注意：下面出现的“考生文件夹”均为c:\wexam\25160001。(1)在名称为Form1的窗体上建立两个主菜单，其标题分别为“文件”和“帮助”，名称分别为vbFile和vbHelp，在“文件”菜单下有3个子菜单项，标题分别为“新建”、“打开”

设在工程中有一个标准模块，其中定义了如下记录类型TypeBooksNameAsString*10TelNumAsString*20EndType在窗

用Write和Print语句向文件中写入多个数据的差别在于______。

有以下程序：#include＜stdio．h＞main(){inty=9；for(；y＞0；y--)if(y％3==0)printf("％d"，--y)；}程序运行后的输出结果是()。

丰富：贫乏

女性，54岁。缓起发热，咳嗽，痰呈脓性，伴腥臭味，每日约150ml。病程已10天，多种抗生素治疗不见改善。X线示右下肺叶后基底段团块状影，伴空洞和液平。2周前曾有拔牙史。为了解有无气道阻塞，宜选择下列哪项检查

某项工作有三项紧后工作，其持续时间分别为4d、5d、6d；其最迟完成时间分别为18d、16d、14d，本工作的最迟完成时间是()d。

某公司采用集权与分权相结合的财务管理体制，根据我国企业的实践，公司总部一般应该集权的有()。

根据支付结算法律制度的规定，下列账户中，需要在开户后5个工作日内到中国人民银行当地分支行备案的是()。

集体奖励的条件大体包括：( )。

下列各句中，没有语病的一项是()。

A、Shethinksnothingcanbedoneaboutit.B、Shethinksthemanshoulduseperfume.C、Shewilltalktotheownersverysoon.D、S

设在工程中有一个标准模块，其中定义了如下记录类型TypeBooksNameAsString10TelNumAsString20EndType在窗

集体奖励的条件大体包括：(　　)。