首页 > 软考

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

[主观题]

阅读下列说明和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

查看答案

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

您可能会需要：

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

安装优题宝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题

阅读以下关于某绘图系统的技术说明、部分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

点击查看答案

第4题

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

点击查看答案

第5题

阅读以下说明及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

点击查看答案

第6题

阅读下列程序说明和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

点击查看答案

第7题

阅读以下说明和Visual Basic代码，将应填入（n)处的字句写在对应栏内。【说明】以下代码实现了当用户

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

【说明】

以下代码实现了当用户退出界面时，判断TextEdit中的文字是否发生改变，弹出对话框判断，让用户选择是否保存文件或取消退出界面操作。阅读下面的代码，将其补充完整。

【代码7-1】

Begin VB.Form. Forml

//...窗体描述(略)

Begin VB.TextBox TextEdit

Height = 1830

Left = 180

Tablndex = 0

Text = "TextEdit"

Top = 360

Width = 3885

End

//...窗体描述(略)

End

【代码7-2】

Dim txtchange As Boolean

Dim myval As String

Private Sub Form. Load ()

TextEdit.Text: "CIU, 中国软考联盟!"

txtchange = False

End Sub

【代码7-3】

Private Sub TextEdit_Change ()

Static notchange As Boolean

(1)

notchange = Tree

End Sub

Private Sub Form_Unload (Cancel As Integer )

Dim myval As String

If (2) Then

myval = MsgBox ("保存文件的更改吗？", vbYesNoCancel, "提示信息" )

If (3) Then

MsgBox "保存成功"

End

End If

If (4) Then End

If (5) Then Cancel = 1

End If

End Sub

点击查看答案

第8题

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

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

【说明】

已知窗体上有两个名为cmdGene和cmdSort的命令按钮。单击cmdCene按钮时，随机产生10个[1,100]范围内的整数并将它们放在数组intA中；单击cmdSort按钮时，用选择法排序这10个数并输出。

【程序代码】

Dim intA(1 To 10)As integer

Private Sub cmdGene_Click()

Dim intl As Integer

Randomize

For intl = 1 To 10

intA(intl) =(1)

Next intl

End Sub

Private Sub cmdSort_Click()

Dim intl, intJ,intMin, intTemp As Integer

For intl = 1 To 9

intMin = intA(intl)

For intJ=(2) To 10

If intA(intJ) ＜ intMin Then

Temp = intA(intJ)

intA(intJ)=(3)

intMin = intTemp

End If

Next intJ

(4)

(5)

For intl = 1 To 10

Print Str(intA(intl))+" ";

Next intl

Next lntl

Print

End Sub

点击查看答案

第9题

阅读以下说明及Visual Basic程序代码，高尔夫球应填入（n)处的字句写在对应栏内。[说明] 设某单位Ac

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

[说明]

设某单位Acess数据库中有一张员工信息表，其中记录了员工编号、姓名、性别等基本信息。下面的应用程序利用数据控件(Data)实现了对这张表中记录的增加、删除和修改操作。其运行界面如下：

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

在开发过程中，数据控件Data1与员工数据表相连接，各文本框、“性别”组合列表框Combo1、“政治面貌”组合列表框Combo2都分别与数据表的相应字段绑定，界面上从左到右各操作按钮分别取名为CmdAdd、CmdDel、CmdUpdate和CmdExit。

[Visual Basic代码]

Private Sub Form_Load() ' 加载窗体

Combo1. (1) "男"

Combo1. (1) "女"

Combo2. (1) "党员"

Combo2. (1) "团员"

Combo2. (1) "群众"

End Sub

Private Sub CmdAdd_Cliek() '增加记录

Datal. Recordset. AddNew

End Sub

Private Sub CmdDel_Click() '删除记录

Datal. Recordset. (2)

Datal. Recordset. MoveNext

End Sub

Private Sub CmdUpdate_Click() '修改记录

If Datal. ReadOnly = (3) And Datal. Recordset. Updatable Then

Datal. Recordset. Edit

Datal. Recordset. (4)

Else

MsgBox "数据表不允许修改!"

End If

End Sub

Private Sub CmdExit_Click () '退出程序

Dim ret As Long

ret : MsgBox("真的要退出吗？", vbQuestion + vbYesNo, "退出" )

If (5) Then

Datal. Reeordset. Close

End

End ff

End Sub

点击查看答案

第10题

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

●试题七

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

【说明】

已知窗体上有两个名为cmdGene和cmdSort的命令按钮。单击cmdGene按钮时，随机产生10个［1，100］范围内的整数并将它们放在数组intA中；单击cmdSort按钮时，用选择法排序这10个数并输出。

【程序代码】

Dim intA(1 To 10)As Integer

Private Sub cmdGene_Click()

Dim intI As Integer

Randomize

For intI=1 To 10

intA(intI)= (1)

Next intI

End Sub

Private Sub cmdSort_Click()

Dim intI，intJ，intMin，intTemp As Integer

For intI=1 To 9

intMin=intA(intI)

For intJ= (2) To 10

If intA(intJ)＜intMin Then

Temp=intA(intJ)

intA(intJ)= (3)

intMin=intTemp

End If

Next intJ

(4)

(5)

For intI=1 To 10

Print Str(intA(intI))+" "；

Next intI

Next IntI

Print

End Sub

点击查看答案

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

湘ICP备20014704号-1 营业执照

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

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