请输入或粘贴题目内容
搜题
拍照、语音搜题，请扫码下载APP
题目内容
（请给出正确答案）
为了保存一个Visual Basic应用程序，下列说法中正确的是
A．只保存窗体模块文件(.frm)
B．只保存工程文件(.vbp)
C．分别保存工程文件和标准模块文件(.bas)
D．分别保存工程文件、窗体文件和标准模块文件
答案
更多“为了保存一个Visual Basic应用程序，下列说法中正确的是A．只保存窗体模块文件（.frm)B．只保存工程”相关的问题
第1题
A.只保存窗体模块和标准模块文件
B.只保存窗体模块文件
C.分别保存窗体模块、标准模块和工程文件
D.只保存工程文件
第2题
以下是与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，“提示”)，请简要描述程序运行时弹出的消息框的主要特征。
第3题
阅读以下应用说明及Visual Basic程序代码，将应填入(n)处的字句写在对应栏内。
【应用说明】
某应用程序可选择打开用户指定的文本文件，将其内容显示在指定的文本框内供用户编辑，并将编辑后的结果保存在用户指定的文件中。运行时的窗口如图6-1所示，其中有6个标签、一个驱动器列表框、一个目录列表框、一个文件列表框、一个文件类型组合框、一个文件编辑文本框、一个文件名文本框以及两个命令按钮。
.jpg)
该程序的开发要求如下。
(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
'其他代码略
第4题
下面关于模块的说法中正确的是：()。
A．模块仅由Visual BASIC for Application声明、语句作为一个单元进行保存的集合，它们作为一个已命名的单元存储在一起，对Microsoft Visual BASIC代码进行组织
B．有两种基本模块，即一种是标准模块，另一种是类模块
C．在模块中可以执行宏，但是宏不能转换为模块
D．窗体模块和报表模块都是标准模块
第5题
A.Let x=6
B.nd
C.Rem 这是注释语句
D.Print 这是注释语句
第6题
以下叙述中错误的是______。
A．打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件
B．保存Visual Basic程序时，应分别保存窗体文件及工程文件
C．Visual Basic应用程序只能以解释方式执行
D．事件可以由用户引发，也可以由系统引发
第7题
试题七（共15分）
阅读以下应用说明以及用Visual Basic 编写的程序代码，将应填入（n） 处的字句写在答题纸的对应栏内。
[应用说明]
某应用程序用于监测某种设备的工作温度（20～200度），其运行窗口中，包括一个温度计（矩形形状shpMeter）以及其中指示当前设备温度的水银柱（矩形形状shpT）,文字标签标记了温度刻度；另有一个图片框picCurve，用于动态描述检测到的温度曲线（用户见到的曲线与水银柱等高变化）；命令按钮“开始测”（cmdStart）用于启动温度检测，命令按钮“暂停检测”（cmdStop）用于暂停检测。矩形形状 shpT(水银柱)属性visible 初始设置为不可见，属性Filltype 设置为solid（实心），FillColor设置为红色；图片框picCurve的属性AutoRedraw设置为True；再创建一个定时器TimT，属性Enabled初始设置为False（不起作用），属性Interval(定时间隔)设置为500 毫秒。为模拟设备温度的检测，程序中利用了（0，1）之间均匀分布的伪随机数获得[20,200]之间的随机温度T。为了便于在图片框picCurve 中绘制曲线，程序中对该图片框立了坐标系统，左上角为原点（0，0），水平向右方向为X 轴，垂直向下方向为Y 轴，右下角坐标为（50，180）。为了便于观察记录的温度值，图片框中从上到下创建了5 条水平线Ls(i),i=0,1,…4，并在程序中按等间隔排列进行位置设置。程序中每隔半秒算出曲线点（x,y），其中x=0,1,2,…，再用直线段连接各相邻曲线点形成温度曲线。
[Visual Basic程序代码]
Dim (1) As Integer '声明全局变量
Private Sub CmdStart_Click()
TimT.Enabled = True
ShpT.Visible = True
End Sub
Private Sub CmdStop_Click()
TimT.Enabled = False
End Sub
Private Sub Form_Load()
Dim i, H As Integer
PicCurve.Scale (0, 0)-(50, 180) '设置图片框坐标系：左上角-右下角
H = 30 'H 等于图片框高度的六分之一
For i = 0 To 4 '设置5条水平线Ls(i)的位置
Ls(i).X1 = 0 'Ls(i)起点横坐标
Ls(i).Y1 = H * (2) 'Ls(i)起点纵坐标
Ls(i).X2 = 50 'Ls(i)终点横坐标
Ls(i).Y2 = Ls(i).Y1 'Ls(i)终点纵坐标
Ls(i).BorderColor = &HC0C0C0 '设置水平线颜色
Next i
x = 0 '设置曲线坐标初值
End Sub
Private Sub timT_Timer()
Dim T, H As Integer 'T为即时温度，H 为图片框中温度点显示高度
T = Int(Rnd * 181) + 20 '模拟随机产生设备温度（20～200 度）
'按当前温度显示水银柱
H = ShpMeter.Height * (3) '算出水银柱的高度
ShpT.Top = (4) - H '设置水银柱顶部位置
ShpT.Height = H '设置水银柱的高度
'绘制温度曲线
y = (5) '算出曲线上当前点的纵坐标
If x = 51 Then '当超出图片框时
PicCurve.Cls '清除图片框内以前画的曲线
x = 0 '设置重画曲线的初值
ElseIf x ＞ 0 Then '除左边点外
PicCurve.Line (x-1,Lasty)-(x,y),vbRed '由前1 点到当前点画红色线段
End If
x = x + 1 '准备下一点坐标
Lasty =y '保存当前坐标供下次使用
End Sub
第8题
●试题六
阅读以下应用说明及Visual Basic部分程序代码，将应填入(n)处的字句写在答题纸的对应栏内。
【说明】
单击窗体上的"测试"(cmdTest)按钮，出现一个输入框，要求输入一串字符，将该字符串中的非字母字符删除后，显示在窗体中的一个文本框(txtShow)中。
【程序代码】
Private Sub cmdTest_Click()
Dim strT1，strT2 As String
Dim strCh As (1)
Dim intL As Integer
Dim intI As Integer
strT1= (2) ("请输入一串字符"，"字符串输入")
intL= (3)
strT2=″″
For intI=l To intL
strCh=Mid(strT1，intI，1)
If(strCh＞"A"And (4) ) Or (strCh＞"a" And suCh＜"z")Then
strT2=strT2+strCh
End If
Next intI
txtShow．Text= (5)
End sub
第9题
阅读以下应用说明及Visual Basic部分程序代码，将应填入(n)处的字句写在对应栏内。
【说明】
本应用程序是一个小写数字转换成大写格式的转换器，其运行窗口如图5所示。
.jpg)
窗口中有两个标签(lblNumber和lblChinese)、两个文本框(txtNnmber和txtChinese)和一个命令按钮(cmdChange)。当单击按钮cmdChange时，将文本框txtNumber中数字转换成中文大写，并显示在文本框txtChinese中。例如，在文本框txtNumber输入0076845，单击cmdChange按钮，将在文本框txtChinese中显示“柒万陆仟捌佰肆拾伍”。
程序中调用的函数CChinse(Strdigit As String)的功能是先删除字符串的所有前导0，再调用函数Change(Strdigit As String)，将数字字符串Strdigit转换成中文大写格式。
为了防止用户在文本框txtNumber输入非数字形式的字符，程序将以空字符代替所输入的非数字有形字符。
【程序】
Private Function Transfer(Strdigit As String)As String
′完成小写向大写的转换，这段代码省略
End Function
Private Function CChinese(Strdigit As String)As String
Dim intLen,intCounter As Integer
intLen = Len (Strdigit)
If intLen＞0 Then
intcounter = 0
Do '过滤数字串Strdigit的前导0
intcounter = intcounter + 1
Loop Until Mid(Strdigit,(1))
intLen =(2)
Strdigit =(3) (Strdigit,intLen)
CChinese = Transfer(Strdigit)
End If
End Function
Private Sub cmdChange_Click()
txtChinese.Text=CChinese((4)) '调用Cchinese函数
End Sub
Private Sub txtNumber_KeyPress(KeyAscii As Integer)
Select Case KeyAscii '根据输入字符的ASCII码的值进行判断
Case KeyAscii＜32 '保留输入的控制字符
Case 48 To 57 '保留输入的数字字符
Case Else '其他情况以空字符代替
(5)=0
End Select
End Sub
第10题
请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）在名称为Form1的窗体上建立一个垂直滚动条，请在属性窗口中把它的名称设置为VS1，Max属性设置为50，Min属性设置为0，Value属性设置为50。程序运行后，滚动块位于滚动条最下端，如图52-1所示，如果单击滚动条之外的窗体部分，则滚动块跳到最上端。
图52-1
注意：只能直接为相应的属性赋值，不得使用变量。保存时必须存放在考生文件夹下，窗体文件名为sj1.frm，工程文件名为sj1.vbp 。
（2）在名称为Form1的窗体中建立一个标签，名称为Lable1，在标签上显示"编程语言"并设置为四号宋体；再建立3个复选框，名称分别为Check1、Check2和Check3，标题分别为"C++"、"Basic"和"JAVA"，字体大小均为四号宋体，加粗，其中"JAVA"被禁用，如图52-2所示。
图52-2
注意：保存时必须存放在考生文件夹下，窗体文件名为sj2.frm，工程文件名为sj2.vbp。
