首页 > 计算机等级考试

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

[主观题]

以下程序运行后的窗体如图所示。其中组合框的名称是Combol，已有列表项如图所示；命令按钮的名称是C

ommandl。

以下程序运行后的窗体如图所示。其中组合框的名称是Combol，已有列表项如图所示；命令按钮的名称是C

Private Sub Commandl Click()

If Not Check(Comb01．Text)Then

MsgBox(”输入错误”)

Exit Sub

End If

For k=0 TO Comb01．ListCount一1

If Comb01．Text=Comb01．List(k)Then

MsgBox(”添加项目失败”)

Exit Sub

End If

Next k

． Comb01．AddItem Comb01．Text

MsgBox(”添加项目成功”)

End Sub

Private Function Check(ch As String)As Boolean

n=Len(ch)

For k=1 Ton

c$=UCase(Mid(ch，k，1))

If c＜“A”Or c＞”Z”Then

Cbeck=False

Exit Function

End If

Next k

Check—True

End Function

程序运行时，如果在组合框的编辑区中输入“Java”，则单击命令按钮后产生的结果是

A．显示“输入错误”

B．显示“添加项目失败”

C．显示“添加项目成功”

D．没有任何显示

查看答案

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

您可能会需要：

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

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

更多“以下程序运行后的窗体如图所示。其中组合框的名称是Combol…”相关的问题

第1题

在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分

别为0和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图所示。以下能实现上述操作的程序段是（）。

A．Private Sub Hscroll1_Change（）

Text1.Text=HScroll1.Value

End Sub

B．Private Sub Hscroll1_Click（）

Text1.Text=HScroll1.Value

End Sub

C．Private Sub Hscroll1_Change（）

Text1.Text=Hscroll1.Caption

End Sub

D．Private Sub Hscroll1_Click（）

Text1.Text=Hscroll1.Caption

End Sub

点击查看答案

第2题

窗体上有一个名称为Cb1的组合框，程序运行后，为了输出选中的列表项，应使用的语句是（）。A.Print C

窗体上有一个名称为Cb1的组合框，程序运行后，为了输出选中的列表项，应使用的语句是（）。

A.Print Cb1．Selected

B.Print Cb1．List(Cbl．LisfIndex)

C.Print Cb1．Selected．Text

D.Print Cb1．List(ListIndex)

点击查看答案

第3题

在名称为Form1的窗体上添加一个名称为Com．mandl的命令按钮，标题为“打开文件”，再添加一个名称为CD

l的通用对话框。程序运行后，如果单击命令按钮，则弹出打开文件对话框，请按下列要求设置属性和编写代码：

①设置适当属性，使对话框的标题为“打开文件”；

②设置适当属性，使对话框的“文件类型”下拉式组合框中有两项可供选择：“文本文件”、“所有文件”（如图所示），默认的类型是“所有文件”；

③编写命令按钮的事件过程，使得单击按钮可以弹出“打开文件”对话框。

要求：程序中不得使用变量，事件过程中只能写入一条语句。

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

在名称为Form1的窗体上添加一个名称为Com．mandl的命令按钮，标题为“打开文件”，再添加一个

点击查看答案

第4题

窗体上有一个名称为Cbl的组合框，程序运行后，为了输出选中的列表项，应使用的语句是A．Print Cbl．Se

窗体上有一个名称为Cbl的组合框，程序运行后，为了输出选中的列表项，应使用的语句是

A．Print Cbl．Selected

B．Print Cbl．List(Cbl．ListIndex)

C．Print Cbl．Selected．Text

D．Print Cbl．List(ListIndex)

点击查看答案

第5题

●试题五阅读以下应用说明及Visual Basic部分程序代码，将应填入（n)处的字句写在答题纸的对应栏

●试题五

阅读以下应用说明及Visual Basic部分程序代码，将应填入(n)处的字句写在答题纸的对应栏内。

【说明】

在窗体上画一个名称为Combo1的组合框，画两个名称分别Label1、Label2及Caption属性分别为"城市名称"和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示"已成功添加输入项"；如果存在，则在Label2中给出提示"输入项已在组合框中"。

【程序】

Private Sub Combo1_ (1) (KeyAscii As Integer)

If KeyAscii= (2) Then

For i=0 To (3)

If Combo1．Text= (4) Then

Label2．Caption="输入项已在组合框中"

Exit Sub

End If

Next i

Label2．Caption="已成功添加输入项"

Combo1． (5) Combo1．Text

End If

End Sub

点击查看答案

第6题

（7 ）设窗体上有一个名称为 Combol 的组合框，并有以下程序：Private Sub Combol_KeyPress（KeyAsci

（7 ）设窗体上有一个名称为 Combol 的组合框，并有以下程序：

Private Sub Combol_KeyPress(KeyAscii As Integer)

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

For k=0 To Combol.ListCount-1

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

Combol.Text= ” ”

Exit For

End If

Next k

If Combol.Text ＜＞ “” Then

Combol.AddItem 【 10 】

End If

End If

End Sub

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

点击查看答案

第7题

设窗体上有—个名称为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

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

点击查看答案

第8题

在名为Form1的窗体上绘制一个列表框，其名称为List1；一个水平滚动条，其名称为 HS1，smallChange属

性为2，LargeChange属性为10，Min属性为0，Max属性为100。编写适当的事件过程，使程序运行后，若把滚动框滚到某个位置，然后单击窗体，则在列表框中添加一个项目，其内容是“××”，其中××是滚动框所在的位置，如下图所示。

在名为Form1的窗体上绘制一个列表框，其名称为List1；一个水平滚动条，其名称为 HS1，sma

注意：

程序中不要使用变量：文件必须存放在考生文件夹中，工程文件名为execise97.vbp，窗体文件名为execise97.frm。

点击查看答案

第9题

在名为Form1的窗体上绘制一个图像框，名为Image1，其高、宽分别为2000、1800，通过属性窗口把考生文件

夹下的图像文件Pic1.bmp装入图像框；再绘制两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“放大”和“缩小”，如下图所示。

在名为Form1的窗体上绘制一个图像框，名为Image1，其高、宽分别为2000、1800，通过属性

要求：

(1)请编写适当的事件过程，使程序运行后，若单击“放大”按钮，则把图像框的高度、宽度均增加100；单击“缩小”按钮，则把图像框的高度、宽度均减少100。该程序中不得使用任何变量。

(2)通过属性窗口设置图像框的适当属性，使得在放大、缩小图像框时，其中的图像也自动放大、缩小。

注意：

文件必须存放在考，生文件夹中，工程文件名为execise24.vbp，窗体文件名为 execise24.frm。

点击查看答案

第10题

（6 ）窗体上有一个组合框，其中已输入了若干个项目。程序运行时，单击其中一项，即可把该项与最

上面的一项交换。例如：单击图 1 中的 “ 重庆 ” ，则与 “ 北京 ” 交换，得到图2 的结果。下面是可实现此功能的程序，请填空。

（6 ）窗体上有一个组合框，其中已输入了若干个项目。程序运行时，单击其中一项，即可把该项与最

Private Sub Combo1_Click()

Dim temp

temp = Combo1.Text

[6] = Combo1.List(0)

Combo1.List(0) = temp

End Sub

点击查看答案

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

湘ICP备20014704号-1 营业执照

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

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