首页 > 软考

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

[主观题]

阅读以下说明Visual Basic代码，回答问题1～2，将解答填入对应的栏内。[说明] 本程序实现的功能是判

阅读以下说明Visual Basic代码，回答问题1～2，将解答填入对应的栏内。

[说明]

本程序实现的功能是判断指定的文本文件中是否包含指定的字符串，并且如果包含则返回其第一次出现的位置(行号、列号)。程序运行界面如下图所示，用户只要通过驱动器列表框、目录列表框选定文件夹，文件列表框会自动列出该文件夹下所有文本文件名称，选中其中某个文件，再输入目标字符串并且单击“查找”按钮，就能看到查找的结果。

阅读以下说明Visual Basic代码，回答问题1～2，将解答填入对应的栏内。[说明] 本程序实现

在开发过程中，驱动器列表框名为Drive1，目录列表框名为Dirl，文件列表框名为File1，目标字符串输入框名为Text1，“查找”按钮名为Command1。

[Visual Basic 代码]

Private Sub Drivel_Change()

Dirl. Path=(1) '更新目录列表框的路径

End Sub

Private Sub Dirl_Change()

(2)= Dirl. Path '更新文件列表框的路径 End Sub

Private Sub Commandl_Click()

Dim fso, a As Object

Dim i, j As Integer

If (3) = "" Then '判断是否已经选中某个文件

MsgBox "请选择一个文件文件!"

(4) '退出事件过程

End If

'创建文件系统对象以及文本流对象

Set fso = CreateOhjecl("Scripting. FileSystemOhject" )

Set a = fso. OpenTextFile(Dirl. Path & "/" &(3))

i=1

Do While (5)＜＞ True '逐行读取文件，直至文件末尾

strLine = a. ReadLine

j = InStr(1,(6))'返回目标字符串在文件这一行中的位置

If j ＞ 0 Then '如果目标字符串在这一行出现，则返回其位置

MsgBox "字符串第一次出现的位置是" & "(" & i & "," &j & "),,"

(4) '退出事件过程

End If

i:i+l

Loop

MsgBox "字符串在文件中不出现，"

End Sub

查看答案

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

您可能会需要：

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

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

更多“阅读以下说明Visual Basic代码，回答问题1～2，将…”相关的问题

第1题

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

点击查看答案

第2题

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

点击查看答案

第3题

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

点击查看答案

第4题

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

点击查看答案

第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)处的字句写在答题纸的对应栏内。

【说明】

某绘图系统定义了一个抽象类IShape，现有三个类CPoint、CLine和CCircle，它们都具有IShape界面。相应的类图关系如图7-1所示。

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

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

阅读以下说明和Visual Basic代码，将应填入（n)处的字句写在答题纸的对应栏内。【说明】某

【代码7-1】

Public Color As Long

Sub draw()

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

End Sub

Sub move(stepx As Single，stepy As Smgle)

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

End Sub

【代码7-2】

(1)

Private color As Long

… ‘其他定义省略

Private bridged 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 () '使用XCirele提供的显示功能

(6)

End Sub

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

… '省略描述

End Sub

点击查看答案

第7题

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

点击查看答案

第8题

阅读以下说明和Visual Basic代码，将应填入（n)处的字句写在对应栏内。【说明】在一些应用场合中，需

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

【说明】

在一些应用场合中，需要对用户的输入数据进行检查监控。以下VisualBasic程序实现了对新添加到 List列表的内容进行监控，拒绝向List列表添加重复信息。例如，在List列表中存在元素“a01001；a01002”，如果用户输入数据为“a01001”或“a01002”，系统则弹出提示信息，拒绝将新数据加入List列表；如果用户输入的数据不同于List列表中的任何一个元素，则作为新元素加入List中。VisualBasic界面显示如图所示。根据程序功能说明，完成程序代码。

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

【代码5-1】

Begin VB.Form. Forml

Caption = "List 列表拒绝添加重复信息"

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

Begin VB.CommandButton Command2

Caption = "退出"

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

End

Begin VB.CommandButton Commandl

Caption = "添加"

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

End

Begin VB.TextBox Text1

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

End

Begin VB.ListBox List1

Height = 1860

ItemData = "Form1.fix": 0000

Left = 1020

List = "Form1.fix": 0002

TabIndex = 0

Top = 525

Width = 2580

End

Begin VB.Labe1 Labe11

BackStyle = 0 'Transparent

Caption = "请输入编号"

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

End

End

【代码5-2】

Attribute VB Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB Creatable = False

Attribute VB PredeclaredId = True

Attribute VB_Exposed = False

Private Sub Form. Load ()

List1.AddItem "a01001"

List1.AddItem "a01002"

End Sub

Private Sub Cormnand1 Click ()

Dim Myval As Long

For i=0 To (1)

(2)

If (3) Then

MsgBox "系统不允许重复输入，请重新输入"

Exit Sub

End If

(4)

(5)

End Sub

点击查看答案

第9题

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

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

[说明]

以下是一账号和密码输入的检验程序。对输入的账号和密码规定如下所述。

(1)账号为不超过6位的数字，密码为4位字符，在本题中，密码假定为“Pass”。

(2)密码输入时在屏幕上不显示输入的字符，而以“*”代替。

(3)当输入不正确，如账号为非数字字符或密码不正确时，显示有关信息。

(4)当输入正确时，关闭密码窗口，显示记事本窗口。

按要求完成有关控件的其他属性的设置，编写确定按钮的单击事件过程。相关界面如下：

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

(可能要用到的单词：MultiLlne，ScrollBars，PasswordChar,MaxLength)密码窗口frmPass控件设置如下表所示。

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

记事本窗口frmNotepad 控件设置如下表所示。

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

在密码窗口的属性窗口，对密码文本框设置属性MuniLine 为False。

[Visual Basic 代码]

Private Sub cmd OK_ Click ()

If txtPas. Text= "Pass" Then

Load frmNotePad

frmNotePad. Show

frmPass.Hide

Else

MsgBox "密码错误! ", vbExclamation + vbRetryCancel, "重输入密码"

txtPas. Text= " "

txtPas. SetFocus

(1)

End Sub

Private Sub Form_ Load ()

txtPas.PasswordChar = "*"

xtNo.MaxLength = 6

End Sub

Private Sub txtNo LostFocus (

Dim i As Integer, s As String * 1

Fori= 1 To (2)

s = Mid (txtNo.Text, i, 1 )

If (3) Or (4) Then

MsgBox "账号有非数字符号! ", vbExclamation + vbRetryCancel, "1 输入账号"

(5)

txtNo. SetFocus

Exit Sub

End If

Next i

End Sub

点击查看答案

第10题

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

点击查看答案

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

湘ICP备20014704号-1 营业执照

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

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