首页 > 计算机等级考试

题目内容（请给出正确答案）

[主观题]

设在窗体上有一个名称为Command1的命令按钮，并有以下事件过程：Private Sub Command1_Click（) St

设在窗体上有一个名称为Command1的命令按钮，并有以下事件过程： Private Sub Command1_Click() Static b As Variant b=Array(1，3，5，7，9) …… End Sub 此过程的功能是把数组b中的5个数逆序存放(即排列为9，7，5，3，1)。为实现此功能，省略号处的程序段应该是

A．Fori=0 T0 5-1\2 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp Next

B．Fori=0 To 5 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp Next

C．Fori=0 T0 5\2 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp Next

D．For i=l To 5\2 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp Next

查看答案

如果结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装优题宝APP，拍照搜题省时又省心！

更多“设在窗体上有一个名称为Command1的命令按钮，并有以下事…”相关的问题

第1题

窗体Form1上有一个名称为Command1的命令按钮，以下对应窗体单击事件的事件过程是（）。A.Private S

窗体Form1上有一个名称为Command1的命令按钮，以下对应窗体单击事件的事件过程是（）。

A.Private Sub Form1 Click（） End Sub···

B.Private Sub Form. Cliok（） End Sub···

C.Private Sub Command1 click（） End Sub···

D.Private Sub Command Click（） End Sub···

点击查看答案

第2题

设在窗体中有一个名称为List1的列表框，其中有若干个项目（如图)。要求选中某一项后单击Command1按

设在窗体中有一个名称为List1的列表框，其中有若干个项目(如图)。要求选中某一项后单击Command1按钮，就删除选中的项，则正确的事件过程是（）。

设在窗体中有一个名称为List1的列表框，其中有若干个项目（如图)。要求选中某一项后单击Comman

A.Private Sub Command1 Click（）

List1，Clear

End Sub

B.Private Sub Command1 Click（）

List1．Clear List1．ListIndex

End Sub

C.Private Sub Command1 Click（）

List1 Removeltem List1．ListIndex

End Sub

D.Private Sub Command1 Click（）

List1．Removeltem

End Sub

点击查看答案

第3题

在窗体上有一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框。程序运行后， Com

mand1 为禁用（灰色），此时如果在文本框中输入字符，则命令按钮 Command1 变为可用。请填空。

Private Sub Form_Load（）

Command1  Enabled=False

End Sub

Private Sub Text1_ ________ （）

Command1  Enabled=True

End Sub

点击查看答案

第4题

窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序如下：Private Ty

窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序如下： Private Type x a As Integer b As Integer End Type Private Sub Command1_Click() Dim y As x y.a=InputBox("") If y.a\2=y.a/2 Then y.b=y.a * y.a Else y.b=Fix(y.a/2) End If Text1.Text=y.b End Sub 对以上程序，下列叙述中错误的是()。

A．x是用户定义的类型

B．InputBox函数弹出的对话框中没有提示信息

C．若输入的是偶数，y.b的值为该偶数的平方

D．Fix(y.a/2)把y.a/2的小数部分四舍五入，转换为整数返回

点击查看答案

第5题

窗体上有一个名称为Command1的命令按钮，其单击事件过程代码如下：Private Sub Command1 Click（）

窗体上有一个名称为Command1的命令按钮，其单击事件过程代码如下：

Private Sub Command1 Click（）

Static x As Variant

n=0

x=Array(1，2，3，4，5，6，7，8，9，10)

While n＜=4

x(n)=x(n+5)

Print x(n)：

n=n+1

Wend

End Sub

运行程序，单击命令按钮Command1，窗体上显示的是（）。

A.1 2 3 4 5

B.6 7 8 9 10

C.2 3 4 5 6

D.6 2 3 4 5

点击查看答案

第6题

在窗体上有一个名称为Command1的命令按钮，并编写有如下事件过程：记录类型定义如下：下列叙述

在窗体上有一个名称为Command1的命令按钮，并编写有如下事件过程：记录类型定义如下：下列叙述中正确的是（）。

A. 记录类型animal不能在Form1中定义，必须在标准模块中定义

B. 如果文件c：\vbTest．dat不存在，则Open命令执行失败

C. 由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾

D. 语句“Put#1,,rec”将animal类型的两个数据元素写到文件中

点击查看答案

第7题

（8 ）设窗体上有一个名称为 CD1 的通用对话框，一个名称为 Text1 的文本框和一个名称为 Comman

d1 的命令按钮。程序执行时，单击 Command1 按钮，则显示打开文件对话框，操作者从中选择一个文本文件，并单击对话框上的 “ 打开 ” 按钮后，则可打开该文本文件，并读入一行文本，显示在 Text1 中。下面是实现此功能的事件过程，请填空。

Private Sub Command1_Click()

CD1.Filter =" 文本文件 1*.txt(Word 文档 )*.doc"

CD1.Filterinder = 1

CD1.ShowOpen

If CD1.FileName＜＞""Then

Open [9] For Input As #1

Line Input #1,ch$

Close #1

Text1.Text = [10]

End If

End Sub

点击查看答案

第8题

设在窗体上有一个名称为Commandl的命令按扭和一个名称为Textl的文本框。要求单击Commandl按钮时可

把光标移到文本框中。下面正确的事件过程是。 A．Private Sub Commandl_Click B．Private Sub Commandl_Click Textl．GotFocus Commandl．GotFocus End Sub End Sub C．Private Sub Commandl_Click D．Private Sub Commandl_Click Textl．SetFocus Commandl．SetFocus End Sub End sub

点击查看答案

第9题

在名称为Form1的窗体上画一个名称为Text1的文本框，通过属性窗口设置文本框属性，在文本框中显

示“AAAA”(如图2—1所示)；再建立一个名称为Cmd1，标题为“清除”的命令按钮，编写适当的事件过程。要求程序运行后，如果单击“清除”命令按钮，则清除文本框中所显示的信息。

注意：保存时必须存放在考生文件夹下，窗体文件名为sjt3.frm，工程文件名为sit3.vbp。

2．在考生文件夹中有工程文件sit4.vbp，它包含一个窗体文件form1。在窗体上有一个列表框，名称为List1，一个文本框，名称为Text1，和一个命令按钮，名称为Command1，标题为“复制”。要求程序运行后，在列表框中自动建立四个列表项，分别为“项目1”、“项目2”、“项目3”、“项目4”。如果选择列表框中的一项，则单击“复制”按钮时，可以把该项复制到文本框中(程序运行结果如图2—2)。

要求：编写程序，以实现试题要求的功能。

注意：存盘时必须放在考生文件夹下，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。

在名称为Form1的窗体上画一个名称为Text1的文本框，通过属性窗口设置文本框属性，在文本框中显示

点击查看答案

第10题

（19 ）窗体上有名称为 Command1 的命令按钮和名称为 Text1 的文本框Private Sub Command1_Click（

（19 ）窗体上有名称为 Command1 的命令按钮和名称为 Text1 的文本框

Private Sub Command1_Click()

Text1.Text= ” 程序设计 ”

Text1.SetFocus

End Sub

Private Sub Text1_GotFocus()

Text1.Text= ” 等级考试 ”

End Sub

运行以上程序，单击命令按钮后

A ）文本框中显示的是 “ 程序设计 ” ，且焦点在文本框中

B ）文本框中显示的是 “ 等级考试 ” ，且焦点在文本框中

C ）文本框中显示的是 “ 程序设计 ” ，且焦点在命令按钮上

D ）文本框中显示的是 “ 等级考试 ” ，且焦点在命令按钮上

点击查看答案

长沙正则教育科技有限公司版权所有 ©2024

湘ICP备20014704号-1 营业执照

违法和不良信息举报电话：400-118-7898

举报/反馈/投诉邮箱：deng＃ujigu.com（请将＃替换成@）