首页 > 软考

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

[主观题]

以下是与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，“提示”)，请简要描述程序运行时弹出的消息框的主要特征。

查看答案

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

您可能会需要：

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

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

更多“以下是与Visual Basic开发应用有关的5个问题。对每…”相关的问题

第1题

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

点击查看答案

第2题

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

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

【应用说明】

某交通灯演示程序启动后，其运行窗口中包括红绿灯标志以及当前红绿灯状态剩余秒数的动态显示(如下图)。红灯与绿灯持续的时间分别为30秒与40秒。持续时间结束时，立即变更红绿灯，并重新显示剩余秒数。

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

【Visual Basic开发说明】

在开发过程中，先在窗体内制作形状“红绿灯框架”(长方形，透明)，在该框架中，上部制作形状“红灯”(ShpRed，圆形)，默认属性为透明；下部制作形状“绿灯” (ShpGreen，圆形)，初始设置其填充方式属性FillStyle为实心，填充颜色属性FillColor为绿色。

再设置两个图像框(Image1在左，Image2在右)，使其能分别装入数字图像文件，以显示当前红绿灯状态剩余的秒数。10个数字图像文件N0.bmp～N9.bmp分别用于显示数字0、1、…、9，这些文件存放在该应用程序所在目录中，以便在程序运行时按需要选择装入这两个图像框。为使图像文件装入图像框时能自动改变大小以适应图像框，这些图像框的Stretch属性都应设置成(1)。为使这些数字能每秒变化一次，开发窗体中设置了计时器Timcr1，其Enable属性设置成True，其Interval属性设置成1000。

程序中，全局变量Light用以标志当前红灯(0)或绿灯状态(1)，RedT和GreenT分别表示红灯或绿灯状态剩余的秒数。

计时器Timer1的定时过程是在该程序启动1秒后首次执行的，以后每隔1秒执行1次。开发者应考虑对以下四种情况的处理：绿灯持续、绿灯转红灯、红灯持续、红灯转绿灯。

过程LoadNumber的功能是：将红绿灯剩余秒数N(2位整数)分离出两个一位数i与i，再将其变换成字符，删除前面可能产生的空格，再将数字图像文件Ni.bmp与Nj.bmp装入两个图像框(其中i与j应以相应的数字字符代替)。

【Visual Basic程序代码】

Public Light AS Integer, RedT As Integer, GreenT As Integer

Private Sub Form_Load()

Light = 1 : GreenT = 40 : RedT - 0 '初始化设置

End Sub

Private Sub Timer1_Timer() '计时器定时过程

If Light = 1 Then '绿灯状态时

(2)

If GreenT ＞ 0 Then '绿灯持续时

Call LoadNumber (GreenT) '调用过程，显示数字GreenT

Else '绿灯转红灯时

ShpRed.FillStyle. = 0 '置红灯形状实心

ShpRed.FillColor = vbRed '为红灯形状填充红色

ShpGreen.FillStyle. = 1 '置绿灯形状透明

Call LoadNumber(30)

Light = 0 : RedT = 30

End If

Else '红灯状态时

RedT = RedT - 1

If RedT ＞ 0 Then '红灯持续时

Call LoadNumber(RedT)

Else '红灯转绿灯时

ShpRed.FillStyle. = 1

ShpGreen.FillStyle. = 0

ShpGreen.FillColor = vbGreen

(3)

Light = 1 : GreenT = 40

End If

End If

End Sub

Sub LoadXumber (N As Integer) '根据剩余秒数N将数字图象装入图像框

Dim i As Integer, j As Integer

i = Int((4) )

j = (5)

Image1.Picture = LoadPicture("N"&Trim(Str(i))&".bmp") '显示十位上的数字

Image2.Picture = LoadPicture("N"&Trim(Str(j))&".bmp") '显示个位上的数字

End Sub

点击查看答案

第3题

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

点击查看答案

第4题

阅读以下应用说明以及用Visual Basic开发过程中所编写的程序代码。 [应用说明] 某应用程序在运行

阅读以下应用说明以及用Visual Basic开发过程中所编写的程序代码。

[应用说明]

某应用程序在运行过程中的一个界面如下图所示：

阅读以下应用说明以及用Visual Basic开发过程中所编写的程序代码。 [应用说明] 某应用程序

在“供选课程”列表框(名为Listl)中选择某个课程后，再单击“，”按钮(名称为cmdSelect)，就能将该课程复制到“所选课程”列表框(名称为List2)中(但要注意不要出现重复项)：如果单击“＞＞”按钮(名称为cmdSelAll)，就能将全部供选课程名复制到列表框List2中(注意应先删除List2中的已选项)；如果在“所选课程”列表框中选中某个课程，再单击“＜”按钮(名称为emdDelete)，就会从List2中删除该课程(未选课程时应不做处理)；如果单击“＜＜”按钮(名称为cmdDelAll)，就会从List2中删除所有已选课程。

[Vsual Basic 程序代码]

Private Sub CmdSelect_Cliek()

For i = O To List2.ListCount - 1

If Listl.Text = List2.List(i) Then Exit Sub '不要重复选择

Next i

List2.Addltem (1) '在List2中增添List1中所选的项

End Sub

Private Sub CrndSelAll_Click()

List2.Clear '先删除List2中的已有项

For i = 0 To (2) '对List1中所有各项做循环处理

List2.Addltem (3) '将该项增添到 List2中

Next i

End Sub

Private Sub CmdDelete_Cliek()

If List2.Listlndex ＞= O Then '如果List2中有选中的项,

List2.Removeltem (4) '则删除所选的项

End If

End Sub

Private Sub CmdDelAll_Cliek()

(5)

End Sub

点击查看答案

第5题

与传统的程序设计语言相比，Visual Basic最突出的特点是（)。A．结构化程序设计B．程序开发环境C．程序

与传统的程序设计语言相比，Visual Basic最突出的特点是()。

A．结构化程序设计

B．程序开发环境

C．程序调试技术

D．事件驱动编程机制

点击查看答案

第6题

阅读以下应用说明及Visual Basic程序代码，根据要求回答问题1至问题4。[说明] 某文件管理系统的图

阅读以下应用说明及Visual Basic程序代码，根据要求回答问题1至问题4。

[说明]

某文件管理系统的图片浏览器如图3-19所示。运行程序时，用户只要通过驱动器列表框、目录列表框和文件列表框，选择文本文件所在的驱动器、文件夹及相应的文件名后，在图像框中将显示出相应的文件图像。

在开发过程中，假设驱动器列表框名为drvFile，目录列表框名为 dirFile，文件列表框名为filFile，选择文件类型组合框名为cboFile，图像框名为IMG nClick=over(this) title=放大Show。

阅读以下应用说明及Visual Basic程序代码，根据要求回答问题1至问题4。[说明] 某文件管理

图3-19 图片浏览器

[Visual Basic程序]

Private Sub Form_Load ()

IMG nClick=over(this) title=放大Show.Stretch=True

cboFile.Addltem "位图文件(*.bmp)"

cboFile.Addltem "图标文件(*.ico)"

cboFile.Addltem "图元文件(*.wmf)"

cboFile.Addltem "JPEG文件(*.jpg)"

cboFile.Addltem "GIF文件(*.gif)"

cboFile.ListIndex = 0

(1)

End Sub

Private Sub drvFile_Change ()

(2)

End Sub

Private Sub dirFile_Change ()

(3)

End Sub

Private Sub cboFile_Click ()

(4)

Case 0

filFile. Pattern= "*.bmp"

Case 1

filFile. Pattern= "*.ico"

Case 2

filFile. Pattern= "*.wmf"

Case 3

filFile. Pattern= "*.jpg.

Case 4

filFile. Pattern= "*.gif"

End Select

End Sub

Private Sub filFile_Click()

If (5) Then

IMG nClick=over(this) title=放大Show. Picture= LoadPieture(filFile. Path+ filFile.FileName)

Else

IMG nClick=over(this) title=放大Show. Picture= LoadPicture((6) + "\" + (7) )

End If

End Sub

请根据[说明]和图3-19的显示结果，从以下备选答案中为程序(1)～(7)空缺处选择正确的答案。

[备选答案]

A. filFile.path B. dirFile.Path=drvFile.Drive

C．Right(filFile.Path，1) = "\" D．filFile.Pattern ="*.bmp"

E．filFile.Path = dirFile.Path F．filFile.FileName

G．Select Case cboFile.ListIndex

点击查看答案

第7题

与传统的程序设计语言相比，Visual Basic最突出的特点是（)

A.结构化程序设计

B.可视化、面向对象、事件驱动编程机制

C.程序开发环境

D.程序调试技术

点击查看答案

第8题

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

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

【应用说明】

某应用程序可选择打开用户指定的文本文件，将其内容显示在指定的文本框内供用户编辑，并将编辑后的结果保存在用户指定的文件中。运行时的窗口如图6-1所示，其中有6个标签、一个驱动器列表框、一个目录列表框、一个文件列表框、一个文件类型组合框、一个文件编辑文本框、一个文件名文本框以及两个命令按钮。

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

该程序的开发要求如下。

(1)通过驱动器列表框(Drivel)、目录列表框(Dirl)和文件列表框(Filel)，选择文件。

(2)文件类型组合框(Cmb_type)设置为下拉式列表框，其中有三个供选项，分别为“所有文件(*．*)”、“文本文件(*.txt)”和“可执行文件(*．exe)”。在文件列表框中列出的文件类型会自动与文件类型组合框中选择的文件类型相匹配。

(3)在文件列表框中单击一个文件名时，该文件名会显示在文件名文本框 (Txt filename)中。

(4)在文件列表框中双击一个文件名时，若是文本文件，则在文件编辑文本框 (Txt file)中显示该文件的内容并可进行编辑；若不是文本文件，则弹出一个对话框，提示“请选择文本文件!”。

(5)对于编辑后的文本文件，可在文件名文本框中输入新的文件名，并单击命令按钮(Cmd save)进行保存。

【Visual Basic程序代码】

Private Sub Form_Load()

Cmb_type．Addltem "所有文件(*.*)"

Cmb_type．Addltem "文本文件(*.txt)"

Cmb_type．Addltem "可执行文件(*.exe)"

Cmb_type．ListIndex＝0

Filel.Pattern＝"*．*"： Txt_filename.Text＝" "

Txt_file.Text＝ " "

End Sub

Private Sub Dirl Change()

Filel．Path＝(1)

End Sub

Private Sub Drivel Change()

Dirl．Path＝Drivel．Drive

End Sub

Private Sub Cmb_type_click()

Select Case Cmb_type.(2)

Case 0

Filel．Pattern＝"*.*"

Case 1

Filel.Pattern＝"*.txt"

Case 2

Filel.Pattern＝"*.exe"

End Select

End Sub

Private Sub Cmd_save_Click()

usrFile＝GetFileName() '函数GetFileName获得要保存的文件名

Open usrFile For Output As 1 '定义usrFile为1号输出文件

Print 1，Txt file．Text '输出到1号文件

Close 1

End Sub

Private Sub Filel_DblClick()

If right(Filel.FileName，3)＜＞(3)Then

MsgBox "请选择文本文件!"

Exit Sub

End If

usrFile＝GetFileName() '函数GetFileName获得要打开的文件名

Open usrFile For Input As 1 '定义usrFile为1号输入文件

Txt_file．Text＝" "

DO While (4) EOF(1)

Line Input l，fContext '从1号文件读入一行

Txt_file．Text；Txt file．Text +(5)+vbCrLf

Loop

Close 1

End Sub

'其他代码略

点击查看答案

第9题

在Visual Basic的集成开发环境中不能执行程序的方法是 ______。

A.按F8键

B.按F5键

C.按F9键

D.按Shift+F8

点击查看答案

第10题

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

点击查看答案

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

湘ICP备20014704号-1 营业执照

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

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