首页 > 软考

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

[主观题]

阅读下列程序说明和Visual Basic代码，将应填入（n)处的字句写在对应栏内。[说明]本程序提供了查询

阅读下列程序说明和Visual Basic代码，将应填入(n)处的字句写在对应栏内。

[说明]

本程序提供了查询景点票价信息的功能，查询包括两种方式：按景点名称查询以及白定义查询。程序界面如下图所示：

阅读下列程序说明和Visual Basic代码，将应填入（n)处的字句写在对应栏内。[说明]本程序提

其中，选择景点名称的组合框(Comobox)名为Combo1，单旋钮“旺季”和“淡季”分别名为Op- tion1和Option2，用于输入票价上限的文本框名为Texi1，两种查询方式的“提交”按钮分别名为 Command1和Command2。已知Combol列表中第i个景点的旺季票价和淡季票价分别存放于数组元素P(i，0)和p(i，1)中。

[Visual Basic代码]

Dim p(20, 2) As Single '通用声明

Private Sub Form_Load()

For i = 0 To 9 '对p赋值

p(i, 0)=........ :p(i, 1)=.......

Next

End Sub

Private Sub Commandl_Click() '查询方式一：按景点名称查询

Dim cboTcxt As String

eboText =(1)

Fori = 0 To (2) -1 '对Combo1中各列表项循环

If (3)= cboText Then

MsgBox "景点名称" & cboText & "旺季票价" & p(i, 0) & _

",淡季票价" & p(i, 1)

Exit Sub

End If

Next i

End Sub

Private Sub Command2_Click() 查询方式二：自定义查询

Dim price As Single, result As String, flag As Boolean

price =Val((4) )

flag = False

result = ""

For i = 0 To (2) - 1'对Combo1中列表项循环，找出符合条件的景点

If(Optionl. Value And p(i, 0) ＜ = price) Or((5)) Then

(6)

result=result & "景点名称" &(3)& ",旺季票价:"&_

p(i, 0) & ",淡季票价:" & p(i, 1) & vbCrLf

End If

Next i

If flag Then

MagBox result

Else: Msgaox "没有找到符合条件的景点信息!"

End If

End Sub

查看答案

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

您可能会需要：

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

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

更多“阅读下列程序说明和Visual Basic代码，将应填入（n…”相关的问题

第1题

阅读以下说明及Visual Basic 程序代码，将应填入（n)处的字句写在对应栏内。[程序5.1说明] 下列程序

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

[程序5.1说明]

下列程序运行时，当单击窗体后，从键盘输入一个字符，判断该字符是字母字符、数字字符还是其他字符，并做相应的显示。窗体上无任何控件，并禁用Ase和Chr函数，Select Case语句中禁用枚举值。

[Visual Basic代码]

Private Sub Form. Load ()

Dim x As String*1

X=(1) (“请输入单个字符”，“字符”)

Select Case UCase ((2) )

Case (3)。

Print X+“是字母字符”

Case (4)

Print X+ “是数字字符”

Case Else

Print X+“是其他字符”

End Select

[程序5.2说明]

在窗体上画一个名称为Timer1的计时器和一个名称为Labe11的标签。当运行程序后，将在标签中显示当前时间的数字时钟(包括时：分：秒)。

[Visual Basic代码]

Private Sub Fom_Load ()

Timer1.Interval=1000

EndSub

Private Sub Timer1_ timer() (5)

EndSub

点击查看答案

第2题

阅读以下说明及Visual Basic程序代码，将应填入（n)处的字句写在对应栏内。【说明】以下程序为求行

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

【说明】

以下程序为求行列式X(5,5)的值S。

【Visual Basic代码】

Private Function col (byval x (5,5 ) as integer ) as long

dim fesult as long

dim temp as long

dim I as integer

dim j as integer

dim k as imeger

result = 0

for I = to 5

(1)

for j = 1 to 5

if I+j＞6 then

k= (1+j ) mod 5

else

k=1

endif

temp=temp*x (k,j )

(2)

result=(3)

(4)

(5)

End function

点击查看答案

第3题

阅读下列说明和Visual Basic代码，将应填入（n)处的字句写在对应栏内。[说明] 某小型家电超市开发了

阅读下列说明和Visual Basic代码，将应填入(n)处的字句写在对应栏内。

[说明]

某小型家电超市开发了下面的程序，用以实现商品提货信息的汇总和输出功能。程序的运行界面如下图所示：

阅读下列说明和Visual Basic代码，将应填入（n)处的字句写在对应栏内。[说明] 某小型家电

程序界面包含两个控件数组，分别是提货商品复选框控件数组Check1以及提货数量文本框控件数组Text1(相同下标的复选框和文本框相对应)，提货清单的显示由List控件实现，按钮“打印清单”和“清除”分别名为Command1和Command2。

[Visual Basic代码]

’提货商品复选框的单击事件响应代码

Private Sub Check1_Click(Index As Integer)

If Check1 (Index). Value = 1 Then (1). SetFocus

End Sub

’按钮“打印清单”的单击事件响应代码

Private Sub Command1_Click()

Dim i, n, price As Integer, sum As Long, title As String

sum = 0

For i = O To 4

Select Case i

Case 0: title ="电视机": price = 3580

Case 1: title ="微波炉": price = 660

Case 2: title ="电冰箱": price = 1850

Case 3: title ="DVD": price = 2880

Case 4: title ="空调": price = 2500

End Select

If (2)= 1 And Textl(i). Text ＜＞ " " Then

(3) title & Text1(i).Text & "台"

n = n + Val(Textl(i))

sum =(4)

End If

Next i

If sum ＜＞ 0 Then

(3) "共:" & n &"台," &"合计金额:"& sum &"元。"

End If

End Sub

’按钮“清除”的单击事件响应代码

Private Sub Command2_Click()

(5)

End Sub

点击查看答案

第4题

阅读以下关于某绘图系统的技术说明、部分UML类图及Visual Basic程序，将Visual Basic程序中（1)～（6)

阅读以下关于某绘图系统的技术说明、部分UML类图及Visual Basic程序，将Visual Basic程序中(1)～(6)空缺处的语句填写完整。

【说明】

某绘图系统定义了一个抽象类Ishape，现有3个类Cpoint，CLine和Ccircle，它们都具有IShape界面。相应的类图关系如图5-11所示。

阅读以下关于某绘图系统的技术说明、部分UML类图及Visual Basic程序，将Visual Ba

已知某第三方库已经提供了XCircle类，且完全满足CCircle图元显示时所需的功能。【Visual Basic代码6-1】是抽象类IShape类模块内容。【Visual Basic代码6-2】实现了类CCircle的IShape界面，并使用了XCircle提供的显示功能。

XCircle提供的显示功能方法接口为displayIt。

【Visual Basic代码6-1】

Publie Color As Long

Sub draw()

'方法体不包括可执行语句

End Sub

Sub move(stepx As Single, stepy As Single)

'方法体不包括可执行语句

End Sub

【Visual Basic代码6-2】

(1)

Private color As Long

… '其他定义省略

Private ridged As (2)

Private Sub Class_Initialize()

Set bridged=(3)

End Sub

Private Property (4) ()As Long

IShape_Color=color

End Property

Private Property (5) (ByVal newColor As Long)

Color=newColor

End Property

Private Sub IShape_draw() 使用XCircle提供的显示功能

(6)

End Sub

Private Sub IShape_move(stepx As Single, stepy As Single)

… '省略描述

End Sub

点击查看答案

第5题

以下是与Visual Basic开发应用有关的5个问题。对每一个问题，请将解答填入对应栏内。在Visual Basi

以下是与Visual Basic开发应用有关的5个问题。对每一个问题，请将解答填入对应栏内。

在Visual Basic中，标准模块文件、窗体文件和工程文件的扩展名是什么？请从下列选项中选择：

prg、prj、exe、vbp、form、frm、win、fra、std、bas、vbs、vbm

2．设某窗体上有一个命令按钮，其名称为Command Save，运行时该按钮上显示有“保存(S)”字样的信息。为使热键Alt+S与该命令按钮相关联，应该对按钮Command Save的Caption属性设置什么样的属性值？

3．设某窗口内有一个图像框Image Frame，以及两个命令按钮“放大”和“缩小”。单击“放大”按钮就会使该图像框的长和宽都放大20%；单击“缩小”按钮就会使该图像框的长和宽都缩小 20%(该图像框的左上角不动)。请分别写出这两个命令按钮的单击事件过程中的程序代码。

4．为使某个单选按钮初始时默认被选中，在开发时应怎样做？

5．若有语句Temp Value = Mag Box(“操作错误!”，vbOKCancel+vbCritical，“提示”)，请简要描述程序运行时弹出的消息框的主要特征。

点击查看答案

第6题

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

●试题五

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

【说明】

本应用程序的运行窗口如图2所示。

●试题五阅读以下应用说明、属性设置及Visual Basic程序代码，将应填入（n)处在字句写在答

只要用户单击"闪烁"按钮，文字"欢迎光临"就会以0．3秒消失、0．3秒显示反复进行闪烁；单击"停止"按钮时，闪烁停止，恢复图示的初态。

在开发过程中，需要设置的属性如表1所示。

●试题五阅读以下应用说明、属性设置及Visual Basic程序代码，将应填入（n)处在字句写在答

在开发过程中，需要编写的程序代码如下：

【程序】

Private Sub CmdF_Click()

Timer1． (3) =True

Labe1．Visible=False

End Sub

Private Sub Timer1_Timer()

(4) =not Label.Visible

End Sub

Private Sub CmdT_Click()

Timer1．Enabled= (5)

Labe1．Visible=true

End Sub

点击查看答案

第7题

阅读以下说明及Visual Basic程序代码，将应填入（n)上处的字句写在对应栏内。[说明] 字符组合：程序

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

[说明]

字符组合：程序界面如图示，在文本框Text1中输入若干个任意字符，单击“颠倒”按钮，将这些字符按相反的顺序显示在标签Lable1 中，并在标签Labs1 2处显示字符的个数。例如：输入abcabc2，显示为 2cbabca，组成字符数为4。

阅读以下说明及Visual Basic程序代码，将应填入（n)上处的字句写在对应栏内。[说明] 字符

[Visual Basic 代码]

Private Sub cmdshow_ Click (

Dim n As Integer

Dim I As Integer

Dim str1 As String

N=Len (Text1.Text )

For I=n To Step- 1

Str1=(1)

Next I

Labe11. Caption=Str1

End Sub

Private Sub cmdcount_ Click ()

Dim n As Integer

Dim in As Integer

Dim i As Integer

Dim j As Integer

Dim flag As Integer

Dim str1 As Integer

Dim str2 As Integer

N=(2)

Str1 =Mid＄ (Text1.Text, i. 1

For I =2 To n

Str2=mid＄ (Text1,Text,I,1

M=Len (str1)

(3)

For j=1 To m

If (4) Then flag= 1; Exit For

Next j

If flag＜＞1 then str1=str1& str2

Next I

Lable2.Caption=(5)

End Sub

点击查看答案

第8题

●试题五阅读以下应用说明及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

点击查看答案

第9题

阅读以下应用说明及Visual Basic程序代码，将应填入（n)处的字句写在对应栏内。【应用说明5.1】本应

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

【应用说明5.1】

本应用程序的窗体中有一个下拉式列表框(名称为Combo1)和两个文本框(名称分别为 Txt1和Txt2)。运行时，用户从Combo1的列表中进行选择，程序就会将选中条目的内容以及编号(从0开始)分别在文本框Txt1和Txt2中显示出来。

【程序代码5.1】

Private Sub Combo1_Click()

Txt1.Text = Combo1. (1)

Txt2.Text = Combo1. (2)

End Sub

(注：可供(2)处选择的选项：List, Index, Listlndex, ListCount, Number)

【应用说明5.2】

本应用程序的运行窗口如图2所示。

阅读以下应用说明及Visual Basic程序代码，将应填入（n)处的字句写在对应栏内。【应用说明5

开发该应用的部分程序代码如下：

【程序代码5.2】

Private Sub CmbOp_Click()

Dim Dataln As Double,DataOut as Double

Dataln=(3)

Select Case (4)

Case "取整数部分"

DataOut =Int(Dataln)

Case "求平方根"

If Dataln＜0 Then

MagBox "负数不能开平方!"

Else

DataOut = Sqr(Dataln)

End If

Case "取绝对值"

DataOut = Abs(Dataln)

(5)

TxtOut. Text = str $ (DataOut)

End Sub

点击查看答案

第10题

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

●试题八

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

【说明】

本程序是一个可进行数制转换的应用程序，图1所示是其运行界面。txtDec为TextBox控件名，Lblkes为转换结果labe1控件名。

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

【程序代码】

Option Explicit

Private Function convert(pintDec As Intege，pintS As Integer)As String

Dim intCt As Integer，intR As Integer

Dim strCov As String，strRes As String

intR=pintDec Mod pintS

Do While (1)

strCov=strCov ＆ Str(intR)

(2)

intR=pintDec Mod pintS

Loop

For intCt= (3) To 1 Step-1

strRes=strRes ＆ Mid(strCov，intCt，1)

Next intCt

convert=strRes

End Function

Private Sub cmdQuit_Click()′退出

Unload Me

End Sub

Private Sub optBin_Click()′二进制

lblRes．Caption="转换结果："＆ (4)

End Sub

Private Sub optHex_Click()′十六进制

lblRes．Caption="转换结果："＆ (5)

End Sub

Private Sub optOct_Click()′八进制

lblRes．Caption="转换结果："＆Oct(Val(txtDe

C．Text))

End Sub

点击查看答案

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

湘ICP备20014704号-1 营业执照

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

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