首页 > 计算机等级考试

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

[主观题]

（29 ）在窗体上有 1 个名称为 CommonDialog1 的通用对话框和 1 个名称为 Command1 的命令按钮，以

及其

他一些控件。要求在程序运行时，单击 Command1 按钮，则显示打开文件对话框，并在选择或输入了 1 个

文件名后，就可以打开该文件。以下是 Command1_Click 事件过程的两种算法

算法 1 ：

Private Sub Command1_Click （）

CommonDialog1.ShowOpen

Open CommonDialog1.FileName For Input As#1

End Sub

算法 2 ：

Private Sub Command1_Click （）

CommonDialog1.ShowOpen

IfCommonDialog1.FileName＜＞ ”” Then

Open CommonDialog1.FileName For Input As#1

End If

End Sub

下面关于这两种算法的叙述中正确的是（）

A ）显示打开文件对话框后若未选择或输入任何文件名，则算法 2 会出错，算法 1 不会

B ）显示打开文件对话框后若未选择或输入任何文件名，则算法 1 会出错，算法 2 不会

C ）两种算法的执行结果完全一样

D ）算法 1 允许输入的文件名中含有空格，而算法 2 不允许

查看答案

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

您可能会需要：

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

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

更多“（29 ）在窗体上有 1 个名称为 CommonDialog…”相关的问题

第1题

在窗体上画一个名称为Op1的单选按钮控件数组，其包含4个单选按钮，Index值从0到 3，标题分别为“

答案1”、“答案2”、“答案3”和“答案4”；再画一个命令按钮，名称为C1，标题为“选择”；再画一个文本框Text1，名称为Text1，内容为空白。编写适当的程序。程序运行时，单击“选择”按钮，只有选择“答案1”单选按钮时，在Text1文本框中显示“选择正确”，否则显示“选择错误”。程序运行结果如图2—1所示。

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

2．在考生文件夹中有工程文件sjt4.vbp，其中包含窗体Form1，该程序是不完整的。请在有？号的地方填入正确内容，然后删除？及所有注释符(即'号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：

在窗体上有三个名称分别为Text1、Text2、Text3的文本框，一个名称为Command1，标题

在窗体上画一个名称为Op1的单选按钮控件数组，其包含4个单选按钮，Index值从0到 3，标题分别为

为“计算”的命令按钮(如图2—2所示)。要求程序运行后，在Text1和Text2中分别输入两个整数，单击“计算”按钮后，可把两个整数之间的所有整数(含着两个整数)累加起来并在Text3中显示出来。注意：保存时必须放在考生文件夹下，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。

在窗体上画一个名称为Op1的单选按钮控件数组，其包含4个单选按钮，Index值从0到 3，标题分别为

点击查看答案

第2题

设在窗体上有—个名称为Combol的组合框，含有5个项目，要删除最后一项，正确的语句是 ______。

A.Combo1.RemoveItem Combo1.Text

B.Combo1.Removeltem4

C.Combo1.RemoveItem Combo1.ListCount

D.Combo1.RemoveItem5

点击查看答案

第3题

在窗体上有一个名称为Check1的复选框数组（含4个复选框)，还有一个名称为Text1的文本哐，初始内容为

在窗体上有一个名称为Check1的复选框数组(含4个复选框)，还有一个名称为Text1的文本哐，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的文字罗列在文本框中(如图1所示)。下面能实现此功能的事件过程是（）。在窗体上有一个名称为Check1的复选框数组（含4个复选框)，还有一个名称为Text1的文本哐，初始

A.21

B.19

C.17

D.34

点击查看答案

第4题

设窗体上有—个名称为Combo1的组合框，并有以下程序：Privale Sub Combol_ KeyPress（KeyAscii As In

设窗体上有—个名称为Combo1的组合框，并有以下程序：

Privale Sub Combol_ KeyPress(KeyAscii As Integer)

If【】 =13 Then 回车符的ASCII码是13

For k=0 To Combo1. ListCount-1

If Combo1.Text=Combol. List(k)Then

Combo1.Text=" "

Exit For

End If

Next k

If Combo1. Text＜＞" "Then

Combo1. AddItem 【】

End If

End If

End Sub

程序的功能是：在组合框的编辑区中输入文本后按回车键，则检查列表中有无与此文本相同的项目，若有，则把编辑区中的文本删除，否则把编辑区中文本添加到列表的尾部。请填空。

点击查看答案

第5题

（12 ）在窗体上有一个文本框控件，名称为 Text1 。同时，窗体加载时设置其计时器间隔为 1 秒、计时器

触发事件过程则实现在 Text1 文本框中动态显示当前日期和时间。请补充完整。

Private Sub Form_Load()

Me.TimerInterval =1000

End Sub

Private Sub 【 12 】

Me!text1 = Now()

End Sub

点击查看答案

第6题

在窗体中添加～个名称为Commandl的命令按钮，然后编写如下事件代码：窗体打开运行后，单击命令按

在窗体中添加～个名称为Commandl的命令按钮，然后编写如下事件代码：窗体打开运行后，单击命令按钮，则消息框的输出结果是（）。

A. 1

B. 2

C. 3

D. 4

点击查看答案

第7题

（23 ）在窗体上画 1 个名称为 Command1 的命令按钮，然后编写下列事件过程：Private Sub Command1_

（23 ）在窗体上画 1 个名称为 Command1 的命令按钮，然后编写下列事件过程：

Private Sub Command1_Click()

a=0

For i=1 To 2

For j=1 To 4

If j Mod 2＜＞0 Then

a=a-1

End If

a=a+1

Next j

Next i

Print a

End Sub

程序运行后，单击命令按钮，输出结果是（）。

A ） 0

B ） 2

C ） 3

D ） 4

点击查看答案

第8题

在名称为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的文本框，通过属性窗口设置文本框属性，在文本框中显示

点击查看答案

第9题

在窗体上画—个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_click（) Di

在窗体上画—个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_click() Dim a As Integer,s As Integer a=8 s=1 Do s=s+a a=a-1 Loop While a＜=0 Print s；a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容，是 ______。

A．79

B．340

C．97

D．死循环

点击查看答案

第10题

在窗体上有一个名称为Check1的复选框数组（含4个复选框)，还有一个名称为Textl的文本框，初始内容为

在窗体上有一个名称为Check1的复选框数组(含4个复选框)，还有一个名称为Textl的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的文字罗列在文本框中(见图)。下面能实现此功能的事件过程是？ A． Private Sub Check1_click(Index As Integer) Text1.Text = "" For k = 0 To 3 If Check1(k).Value = 1 Then Text1.Text = Text1.Text & Check1(k).Caption & " "？'双引号中是空格 End If Next k End Sub B． Private Sub Check1_Click(Index As Integer) For k = 0 To 3 If Check1(k).Value = 1 Then Text1.Text = Text1.Text & Check1(k).Caption & " " '双引号中是空格 End If Next k End Sub C． Private Sub Check1_Click(Index As Integer) Text1.Text = "" For k = 0 To 3 If Check1(Index).Value = 1 Then Text1.Text = Text1.Text & Check1(Index).Caption & " " '双引号中是空格 End If Next k End Sub D． Private Sub Check1_Click(Index As Integer) Text1.Text = "" For k = 0 To 3 If Check1(k).Value = 1 Then Text1.Text = Text1.Text & Check1(k).Caption & " " '双引号中是空格 Exit For End If Next k End Sub？

点击查看答案

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

湘ICP备20014704号-1 营业执照

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

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