新电VisualBasic程序设计形考作业务0106网考试题答案
100通
考试说明：VisualBasic程序设计形考6务务1务2客观题观题务1务6需考试中次抽取试卷直出现01务_000102务_000103务_000104务_000405务_000106务_0001试卷该套试卷答案答题做考题时利文档中查找工具考题中关键字输查找工具查找容框迅速查找该题答案文库教学考体化答案敬请查
01务
01务_0001
单项选择题（25道试题50分）
1启动VB意味着建立新（）
A窗体
B程序
C文件
D工程
2应程序包包文件缀（）
Aexe
Bcab
Ctxt
Docx
3工程中含窗体时中启动窗体（）
A启动VB时创建第窗体
B第添加窗体
C添加窗体
D工程属性话框中指定窗体
4列说法中错误（）
A应程序界面窗体
B应程序界面象
C应程序生成工程
D应程序干VisualBasic文件组成
5建立窗体工程理器窗口中会增加（）
A工程文件
B窗体文件
C标准模块文件
D类模块文件
6运行程序时系统动执行启动窗体（）事件程
ALoad
BClick
CUnload
DGotFocus
7VB集成开发环境中提供控件窗口（）
A工具栏
B工具箱
C属性窗口
D工程理器
8确定窗体控件属性（）
ATopLoft
BTopLoft
CWidthHeight
DWidthHeight
9列关窗体说法正确（）
A窗体标题Caption属性确定
B窗体Name属性Caption属性相
C窗体背景图片Picture属性设定
D通设置Icon属性窗体获花时图标
10VB中想快速获某相关控件语句帮助信息般首先选中该控件语句然键（）
AHelp
BF1
CF10
DEnter
11列关属性设置叙述错误（）
A控件具什属性VisualBasic预先设计户改变
B控件具什属性VisualBasic预先设计户改变
C控件属性属性窗口中设置程序代码设置
D控件属性属性窗口中设置利程序代码设置新值
12界面设计时双击窗体中象VisualBasic显示窗口（）
A立窗口
B属性窗口
C代码窗口
D工程资源理器窗口
13文相关帮助时选择帮助容然（）键出现MSDN窗口直接显示需帮助信息
AHelp
BF10
CEsc
DF1
14果想文框中容运行时编辑需文框（）属性设置True
ALocked
BMultiLine
CTabStop
DVisible
15VB60集成开发环境中（）
A编辑调试运行程序生成执行文件
B编辑生成执行文件运行程序调试程序
C编辑调试生成执行文件运行程序
D编辑调试运行程序生成执行文件
16VisualBasic应程序处执行模式时时（）
A设计界面编写代码
B编辑代码设计界面
C设计界面编辑代码
D设计界面编写代码
17改变控件宽度应该修改控件（）属性
ATop
BLeft
CWidth
DHeight
18Timer控件事件该事件名称（）
ALoad
BTimer
CClick
DRun
19命令纽显示图形应首先设置属性（）
AEnabled
BStyle
CCaption
DIcon
20缀frm文件表示VB（ ）
A窗体文件
B类模块文件
C工程文件
D标准类模块文件
21种控件具属性（ ）
AText
BName
CCaption
DForeColor
22窗体程序窗体组成缺省情况VB应程序执行时总（）指定启动窗体
A包含控件窗体
B设计时第窗体
C包含控件窗体
D命名Frm1窗体
23改变控件高度应该修改控件（）属性
ATop
BLeft
CWidth
DHeight
24VisualBasic种面象程序设计语言构成象三素（）
A属性控件方法
B属性事件方法
C窗体控件程
D控件程模块
25定时器（Timer）控件设置定时否开启属性（）
AIndex
BTag
CEnabled
DLeft
二作品题（2道试题50分）
1
设计简单倒计时程序求：
（1）文框中输入倒计时分钟数单击开始纽开始倒计时倒计时结束时弹出时间信息框程序运行界面图5示：
（2）应程序包安装运行
注意：存盘时保存学号姓名命名文件夹工程文件名vbxk105vbp窗体文件名vbxk105frm文件夹名vbxk105
参考答案：
程序代码：
DimttAsInteger
PrivateSubCommand1_Click()
Label1Caption现开始倒计时
Command1VisibleFalse
Timer1EnabledTrue
ttVal(Text1)*60
EndSub
PrivateSubTimer1_Timer()
tttt1
Text1tt
Iftt0Then
aMsgBox(时间vbOKOnly倒计时)
Command1VisibleTrue
Timer1EnabledFalse
EndIf
EndSub
2
名称Form1窗体画两文框名称分Text1Text2高宽分300240012002400窗体标题窗口请通属性窗口设置适属性满足求：
1）Text2显示行文垂直水两滚动条
2）运行时Text1中输入字符显示*
运行窗体图1示
注意：存盘时保存学号姓名命名文件夹工程文件名vbxk101vbp窗体文件名vbxk101frm文件夹名vbxk101
参考答案：
程序代码：
PrivateSubText1_MouseDown(ButtonAsIntegerShiftAsIntegerXAsSingleYAsSingle)
IfButton2Then
PopupMenuFormat
EndIf
EndSub
PrivateSubM1_Click()
Text1FontBoldTrue
EndSub
PrivateSubM2_Click()
Text1FontItalicTrue
EndSub
PrivateSubM3_Click()
Text1FontUnderlineTrue
EndSub
02务
02务_0001
单项选择题（25道试题50分）
1够实现窗体总前端界面效果API函数（ ）
ASetWindowPos
BSetWindowAPI
CSetWindowShape
DDeclareAPI
2窗体画两文框（Name属性分Text1Tex12）命令钮（Name属性Command1）然编写事件程：
PrivateSubCommand1_Click()
x1n0
DoWhilex<100
xx*10
nn+1
Loop
Text1TextStr(n)
Text2TextStr(x)
EndSub
程序运行单击命令钮两文框中显示值分（）
A100
B2100
C350
D4168
3面程序段循环结构执行i输出结果（）
Fori1To10Step2
yy+i
Nexti
Printi
A25
B10
C11
Dy初值知道确定
4字符串型转换数值型需函数（）
AVal
BStr
CAsc
DChr
5作VisualBasic变量名（）
ASIN
BCO1
CCOS（X）
DX（1）
6通设置普通窗体种属性转变成MDI子窗体（ ）
AMDIChildTrue
BWindowStateNormal
CMDIChildFalse
DWindowStateMaximized
7列关程叙述正确（）
A程传值调实参具体值传递形参
B程传址调实参存址传递形参
C程传值调参数单传递程传址调参数双传递
D程传值调程传址调参数传递双
8数学式子Sin30°写成VB表达式（）
ASin30
BSin（30）
CSIN（30°）
DSin（30*314180）
9x80非负数VB表达式表示正确（）
A0£x<80
B0C0D010面正确赋值语句（）
Ax+y30
Byp*r*r
Cyx+30
D3yx
11事件名称（）
A户定义
B户定义系统定义
C系统预先定义
D固定
12果窗体代码编辑器通部分定义私Sub程正确语句（ ）
APublicSub
BPrivateSub
CPublicFunction
DPrivateFunction
13果仅需前系统时间函数（ ）
ATime
BYear
CNow
DDate
14赋值语句：a123+MID(12345632)执行a变量中值（）
A123
B34
C12334
D157
15DimA(1To66)AsString定义数组包含元素数（）
A36
B49
C42
D50
16VB提供结构化程序设计3种基结构3种基结构（）
A递结构选择结构循环结构
B选择结构程结构序结构
C程结构输入输出结构转结构
D选择结构循环结构序结构
17退出Do…Loop循环语句（）语句
AExit
BExitFor
CEndDo
DExitDo
18果希模态方式显示窗体Form1列正确语句（）
AForm1Show0
BForm1Show
CForm1Show1
DForm1Show01
19表达式6+10Mod4*2+1值（）
A9
B11
C1
D3
20列4项中合法变量名（）
A45xyz
BSingle
Cxyz
Dx_yz
21窗体鼠标左键时产生事件（）
AKeyDown
BMouseUp
CMouseMove
DMouseDown
22关语句行列说法正确（）
A行写条语句
B条语句分行书写
C行首字符必须写
D长度超255字符
23通种属性判断List列表框控件项目总数目（）
AListIndex
BListCount
CListText
DLisItem
24
程序段输出结果（）
x1
y4
DoUntily>4
xx*y
yy+1
Loop
Printx
A1
B4
C8
D20
25数值型转换字符串型需函数（）
AVal
BStr
CAsc
DChr
二作品题（2道试题50分）
1
创建功计算器程序程序运算界面图26示
求：
(1)控件数组设计数字钮
（2）API函数实现总前面效果
注意：存盘时保存学号姓名命名文件夹工程文件名vbxk203vbp窗体文件名vbxk203frm文件夹名vbxk203
参考答案：
程序代码：
OptionExplicit
Dimi(1To100)AsInteger
PrivateSubCmd1_Click()
DimjAsInteger
OpenAppPath&＼intxtForInputAs#1
Forj1To100
Input#1i(j)
Text1TextText1Text&i(j)&Space(5)
Next
Close#1
EndSub
PrivateSubCmd2_Click()
DimjAsInteger
DimkAsInteger
DimtempAsInteger
DimflagAsBoolean
Forj1To100
flagFalse
Fork1To100j
Ifi(k)tempi(k)
i(k)i(k+1)
i(k+1)temp
flagTrue
EndIf
Next
IfNotflagThen
ExitFor
EndIf
Next
Text1Text
Forj1To100
Text1TextText1Text&i(j)&Space(5)
Next
putdatai100
EndSub
2
编写某市公电话收费程序程序运行界面图210示收费标准：通话时间3分钟收费05元3分钟超分钟加收015元700～1900间通话述收费标准全价收费时间通话者律收费标准半价收费
求程序运行点击开始通话钮文框text1中hhmmss形式显示通话开始时间点击结束通话钮文框text2中hhmmss形式显示通话结束时间点击计费钮text3中显示通话分钟数text4中显示通话费点击清楚钮清楚全部数
注意：存盘时保存学号姓名命名文件夹工程文件名vbxk207vbp窗体文件名vbxk207frm文件夹名vbxk207
参考答案：
程序代码：
PrivateSubOption1_Click()
Text1Alignment0
EndSub
PrivateSubOption2_Click()
Text1Alignment2
EndSub
PrivateSubOption3_Click()
Text1Alignment1
EndSub
PrivateSubOption4_Click()
Text1FontName宋体
EndSub
PrivateSubOption5_Click()
Text1FontName黑体
EndSub
03务
03务_0001
1窗体建立驱动器列表框目录列表框文件列表框图片框文框求程序运行驱动器列表框Drive1默认驱动器设置D盘选择File1中列图片文件（*bmp*gif*jpg）相应图片显示图片框Picture1中文件路径显示文框中程序运行结果图31示
注意：存盘时保存学号姓名命名文件夹工程文件名vbxk301vbp窗体文件名vbxk301frm文件夹名vbxk301
参考答案：
程序代码：
PrivateSubFile1_Click()
IfFile1ListCount>0Then
＇Command1EnabledTrue
Text1TextFile1Path+File1FileName
DimobjPicAsPicture
SetobjPicLoadPicture(Text1Text)
Picture1PictureobjPic
EndIf
EndSub
PrivateSubForm_Load()
Drive1Drived
Dir1Pathd＼＇Drive1Drive
Dir1Refresh
File1Pattern*jpg*bmp*gif|(*bmp*gif*jpg)
File1PathDir1Path
EndSub
PrivateSubDrive1_Change()
Dir1PathDrive1Drive
EndSub
PrivateSubDir1_Change()
File1PathDir1Path
EndSub
2利文件系统控件编写Word文件查找显示程序程序运行界面图32示
求：
（1）文件列表框中显示缀doc文件
（2）新创建标准工程通常工程－部件菜单项引入MicrosoftRichTextBoxControl60RichTextBox控件添加工具箱中控件显示RTF格式Word文件
（3）单击开钮文框中显示RTF格式Word文件
注意：存盘时保存学号姓名命名文件夹工程文件名vbxk302vbp窗体文件名vbxk302frm文件夹名vbxk302
参考答案：
程序代码：
PrivateSubCommand1_Click()
DimwdAppAsNewWordApplication
DimwdDocAsWordDocument
DimstrFileNameAsString
wdAppVisibleFalse
strFileNameFile1Path+＼+File1FileName
SetwdDocwdAppDocumentsOpen(strFileName)
wdDocSaveAsC＼时文件rtf6
wdDocClose
wdAppQuit
RichTextBox1FileNameC＼时文件rtf
Killc＼时文件rtf
EndSub
PrivateSubDir1_Change()
File1PathDir1Path
EndSub
PrivateSubDrive1_Change()
Dir1PathDrive1Drive
EndSub
04务
04务_0004
作品题（1道试题100分）
1开发图41示指针式时钟程序
求：
（1）求Shap控件Line控件Label控件设计表盘图形方法动态生成指针时钟控件控制时钟转动
（2）圆形表盘窗体中央直径求窗体高度宽度相等
注意：存盘时保存学号姓名命名文件夹工程文件名vbxk401vbp窗体文件名vbxk402frm文件夹名vbxk401
参考答案：
程序代码：
Constpi3141592653
PrivateSubForm_Load()
Form1Scale(1414)(1414)
EndSub
PrivateSubTimer1_Timer()
DimxAsInteger
DimyAsInteger
DimsecminhrAsInteger
secSecond(Time)
minMinute(Time)
hrHour(Time)
Form1Cls
Form1DrawWidth2
x9*Sin(sec*pi30)
y9*Cos(sec*pi30)
Form1Line(00)(xy)vbRed
Form1DrawWidth3
x7*Sin(min*pi30)
y7*Cos(min*pi30)
Form1Line(00)(xy)
Form1DrawWidth4
hrhr+min60
x6*Sin(hr*pi6)
y6*Cos(hr*pi6)
Form1Line(00)(xy)
EndSub
05务
05务_0001
作品题（1道试题100分）
1
开发成绩查询数库应程序具数增加（Insert）修改（Update）删（Delete）查询（Select）功
开发步骤求：
１．准备工作
建立名称vbxk5－成绩查询文件夹该文件夹建立图标文件夹中存入界面设计时图标开发程中全部文件存放vbxk5－成绩查询文件夹中
２．建立成绩查询数库
MicrosoftAccessSQLServer创建名称成绩数库中包含三张数表学生成绩表学生情况表课程情况表表5－3表5－4表5－5表5－6
参考答案：
程序代码：
创建数库createdatabasestudentgo数数库usestudentgo创建成绩表createtablestudentScore(stuidvarchar(10)primarykey学号cidvarchar(10)课程号socrevarchar(20)成绩)go创建学生情况表createtablestudentStatus(stuidvarchar(10)primarykeystuNamevarchar(20))go创建课程情况表createtablecurriculum(cidvarchar(10)cNamevarchar(50))go添加记录insertintostudentStatusvalues(＇001＇＇张红＇)goinsertintostudentStatusvalues(＇002＇＇李强＇)goinsertintostudentStatusvalues(＇003＇＇王丽＇)goinsertintocurriculumvalues(＇001＇＇数库原理＇)goinsertintocurriculum
06务
06务_0001
作品题（1道试题100分）
1程序调试
参考答案：
程序代码：
（1）根程序代码进行程序调试
PrivateSubCommand1_Click()
List1AddItemTextText
EndSub
排序钮Click事件
PrivateSubCommand2_Click()
DimijAsInteger
＇定义数组List1项目数数组维数
DimstrList(List1ListCount)AsInteger
＇定义中间时变量数交换
DimstrTmpAsInteger
＇List1中项目导入strList数组中
Fori0ToList1ListCount
strList(i)List1List(i)
Nexti
＇泡算法完成排序工作
Fori0ToUBound(strList)
Forji+1ToUBound(strList)
IfstrList(i)>strList(j)Then
strTmpstrList(i)
strList(i)strList(j)
strList(j)strTmp
EndIf
Nextj
Nexti
＇排序结果输出List2中
Fori0ToUBound(strList)
List2AddItemstrList(i)
Nexti
EndSub
（2）运行程序Text1文框中输入整数1然点击添加钮时会出现图6－5示错误提示
（3）点击调试钮进入中断模式VB编译器动标识出引发错误语句行
（4）分析错误原容易发现该行语句正确写法应该：
List1AddItemText1Text
（5）修改错误F5键继续执行程序
（6）述界面次输入整数序列21986
（7）点击排序钮出现图6－9示运行错误
（8）点击确定钮次进入中断模式编译器加重形式指出引发错误位置图6－10示
（9）分析图6－9示错误提示求常数表达式发现引错误原变量作数组标列数组声明语句符合VB语法约定：
DimstrList(List1ListCount)AsInteger
做选择采动态数组声明方法
DimstrList()AsInteger
ReDimstrList(List1ListCount)AsInteger
（10）点击调试钮
（11）分析错误原发现数组strList()声明Integer数类型List1List()表示字符型数VB法进行动类型转换通Val函数进行转换：
strList(i)Val(List1List(i))
（12）F5键继续程序成功运行说明语法错误已基排观查运行结果发现排序结果序列中出数值0种结果期
（13）关闭程序重新运行说明程序中存逻辑问题需进步调试
（14）设置断点分析逻辑错误鼠标点击图6－12示位置设置断点
（15）F5键运行程序输入组整数5432点击排序钮程序进入中断模式出现图6－13示界面
（16）VB集成环境立窗口中？印strList数组界相关值图6－14示然PrintDebugPrint命令等效？
（17）仔细分析难发现List1ListCount值4说明数字序列中4数5432List1List()标0开始标值应该3
List1ListCount–1
需选择strList()数组界循环次数
＇性数组声明
ReDimstrList(List1ListCount1)AsInteger
＇修改循环次数
Fori0ToList1ListCount1
strList(i)Val(List1List(i))
Nexti
文档香网(httpswwwxiangdangnet)户传
《香当网》用户分享的内容，不代表《香当网》观点或立场，请自行判断内容的真实性和可靠性！
该内容是文档的文本内容，更好的格式请下载文档
100通
考试说明：VisualBasic程序设计形考6务务1务2客观题观题务1务6需考试中次抽取试卷直出现01务_000102务_000103务_000104务_000405务_000106务_0001试卷该套试卷答案答题做考题时利文档中查找工具考题中关键字输查找工具查找容框迅速查找该题答案文库教学考体化答案敬请查
01务
01务_0001
单项选择题（25道试题50分）
1启动VB意味着建立新（）
A窗体
B程序
C文件
D工程
2应程序包包文件缀（）
Aexe
Bcab
Ctxt
Docx
3工程中含窗体时中启动窗体（）
A启动VB时创建第窗体
B第添加窗体
C添加窗体
D工程属性话框中指定窗体
4列说法中错误（）
A应程序界面窗体
B应程序界面象
C应程序生成工程
D应程序干VisualBasic文件组成
5建立窗体工程理器窗口中会增加（）
A工程文件
B窗体文件
C标准模块文件
D类模块文件
6运行程序时系统动执行启动窗体（）事件程
ALoad
BClick
CUnload
DGotFocus
7VB集成开发环境中提供控件窗口（）
A工具栏
B工具箱
C属性窗口
D工程理器
8确定窗体控件属性（）
ATopLoft
BTopLoft
CWidthHeight
DWidthHeight
9列关窗体说法正确（）
A窗体标题Caption属性确定
B窗体Name属性Caption属性相
C窗体背景图片Picture属性设定
D通设置Icon属性窗体获花时图标
10VB中想快速获某相关控件语句帮助信息般首先选中该控件语句然键（）
AHelp
BF1
CF10
DEnter
11列关属性设置叙述错误（）
A控件具什属性VisualBasic预先设计户改变
B控件具什属性VisualBasic预先设计户改变
C控件属性属性窗口中设置程序代码设置
D控件属性属性窗口中设置利程序代码设置新值
12界面设计时双击窗体中象VisualBasic显示窗口（）
A立窗口
B属性窗口
C代码窗口
D工程资源理器窗口
13文相关帮助时选择帮助容然（）键出现MSDN窗口直接显示需帮助信息
AHelp
BF10
CEsc
DF1
14果想文框中容运行时编辑需文框（）属性设置True
ALocked
BMultiLine
CTabStop
DVisible
15VB60集成开发环境中（）
A编辑调试运行程序生成执行文件
B编辑生成执行文件运行程序调试程序
C编辑调试生成执行文件运行程序
D编辑调试运行程序生成执行文件
16VisualBasic应程序处执行模式时时（）
A设计界面编写代码
B编辑代码设计界面
C设计界面编辑代码
D设计界面编写代码
17改变控件宽度应该修改控件（）属性
ATop
BLeft
CWidth
DHeight
18Timer控件事件该事件名称（）
ALoad
BTimer
CClick
DRun
19命令纽显示图形应首先设置属性（）
AEnabled
BStyle
CCaption
DIcon
20缀frm文件表示VB（ ）
A窗体文件
B类模块文件
C工程文件
D标准类模块文件
21种控件具属性（ ）
AText
BName
CCaption
DForeColor
22窗体程序窗体组成缺省情况VB应程序执行时总（）指定启动窗体
A包含控件窗体
B设计时第窗体
C包含控件窗体
D命名Frm1窗体
23改变控件高度应该修改控件（）属性
ATop
BLeft
CWidth
DHeight
24VisualBasic种面象程序设计语言构成象三素（）
A属性控件方法
B属性事件方法
C窗体控件程
D控件程模块
25定时器（Timer）控件设置定时否开启属性（）
AIndex
BTag
CEnabled
DLeft
二作品题（2道试题50分）
1
设计简单倒计时程序求：
（1）文框中输入倒计时分钟数单击开始纽开始倒计时倒计时结束时弹出时间信息框程序运行界面图5示：
（2）应程序包安装运行
注意：存盘时保存学号姓名命名文件夹工程文件名vbxk105vbp窗体文件名vbxk105frm文件夹名vbxk105
参考答案：
程序代码：
DimttAsInteger
PrivateSubCommand1_Click()
Label1Caption现开始倒计时
Command1VisibleFalse
Timer1EnabledTrue
ttVal(Text1)*60
EndSub
PrivateSubTimer1_Timer()
tttt1
Text1tt
Iftt0Then
aMsgBox(时间vbOKOnly倒计时)
Command1VisibleTrue
Timer1EnabledFalse
EndIf
EndSub
2
名称Form1窗体画两文框名称分Text1Text2高宽分300240012002400窗体标题窗口请通属性窗口设置适属性满足求：
1）Text2显示行文垂直水两滚动条
2）运行时Text1中输入字符显示*
运行窗体图1示
注意：存盘时保存学号姓名命名文件夹工程文件名vbxk101vbp窗体文件名vbxk101frm文件夹名vbxk101
参考答案：
程序代码：
PrivateSubText1_MouseDown(ButtonAsIntegerShiftAsIntegerXAsSingleYAsSingle)
IfButton2Then
PopupMenuFormat
EndIf
EndSub
PrivateSubM1_Click()
Text1FontBoldTrue
EndSub
PrivateSubM2_Click()
Text1FontItalicTrue
EndSub
PrivateSubM3_Click()
Text1FontUnderlineTrue
EndSub
02务
02务_0001
单项选择题（25道试题50分）
1够实现窗体总前端界面效果API函数（ ）
ASetWindowPos
BSetWindowAPI
CSetWindowShape
DDeclareAPI
2窗体画两文框（Name属性分Text1Tex12）命令钮（Name属性Command1）然编写事件程：
PrivateSubCommand1_Click()
x1n0
DoWhilex<100
xx*10
nn+1
Loop
Text1TextStr(n)
Text2TextStr(x)
EndSub
程序运行单击命令钮两文框中显示值分（）
A100
B2100
C350
D4168
3面程序段循环结构执行i输出结果（）
Fori1To10Step2
yy+i
Nexti
Printi
A25
B10
C11
Dy初值知道确定
4字符串型转换数值型需函数（）
AVal
BStr
CAsc
DChr
5作VisualBasic变量名（）
ASIN
BCO1
CCOS（X）
DX（1）
6通设置普通窗体种属性转变成MDI子窗体（ ）
AMDIChildTrue
BWindowStateNormal
CMDIChildFalse
DWindowStateMaximized
7列关程叙述正确（）
A程传值调实参具体值传递形参
B程传址调实参存址传递形参
C程传值调参数单传递程传址调参数双传递
D程传值调程传址调参数传递双
8数学式子Sin30°写成VB表达式（）
ASin30
BSin（30）
CSIN（30°）
DSin（30*314180）
9x80非负数VB表达式表示正确（）
A0£x<80
B0
Ax+y30
Byp*r*r
Cyx+30
D3yx
11事件名称（）
A户定义
B户定义系统定义
C系统预先定义
D固定
12果窗体代码编辑器通部分定义私Sub程正确语句（ ）
APublicSub
BPrivateSub
CPublicFunction
DPrivateFunction
13果仅需前系统时间函数（ ）
ATime
BYear
CNow
DDate
14赋值语句：a123+MID(12345632)执行a变量中值（）
A123
B34
C12334
D157
15DimA(1To66)AsString定义数组包含元素数（）
A36
B49
C42
D50
16VB提供结构化程序设计3种基结构3种基结构（）
A递结构选择结构循环结构
B选择结构程结构序结构
C程结构输入输出结构转结构
D选择结构循环结构序结构
17退出Do…Loop循环语句（）语句
AExit
BExitFor
CEndDo
DExitDo
18果希模态方式显示窗体Form1列正确语句（）
AForm1Show0
BForm1Show
CForm1Show1
DForm1Show01
19表达式6+10Mod4*2+1值（）
A9
B11
C1
D3
20列4项中合法变量名（）
A45xyz
BSingle
Cxyz
Dx_yz
21窗体鼠标左键时产生事件（）
AKeyDown
BMouseUp
CMouseMove
DMouseDown
22关语句行列说法正确（）
A行写条语句
B条语句分行书写
C行首字符必须写
D长度超255字符
23通种属性判断List列表框控件项目总数目（）
AListIndex
BListCount
CListText
DLisItem
24
程序段输出结果（）
x1
y4
DoUntily>4
xx*y
yy+1
Loop
Printx
A1
B4
C8
D20
25数值型转换字符串型需函数（）
AVal
BStr
CAsc
DChr
二作品题（2道试题50分）
1
创建功计算器程序程序运算界面图26示
求：
(1)控件数组设计数字钮
（2）API函数实现总前面效果
注意：存盘时保存学号姓名命名文件夹工程文件名vbxk203vbp窗体文件名vbxk203frm文件夹名vbxk203
参考答案：
程序代码：
OptionExplicit
Dimi(1To100)AsInteger
PrivateSubCmd1_Click()
DimjAsInteger
OpenAppPath&＼intxtForInputAs#1
Forj1To100
Input#1i(j)
Text1TextText1Text&i(j)&Space(5)
Next
Close#1
EndSub
PrivateSubCmd2_Click()
DimjAsInteger
DimkAsInteger
DimtempAsInteger
DimflagAsBoolean
Forj1To100
flagFalse
Fork1To100j
Ifi(k)
i(k)i(k+1)
i(k+1)temp
flagTrue
EndIf
Next
IfNotflagThen
ExitFor
EndIf
Next
Text1Text
Forj1To100
Text1TextText1Text&i(j)&Space(5)
Next
putdatai100
EndSub
2
编写某市公电话收费程序程序运行界面图210示收费标准：通话时间3分钟收费05元3分钟超分钟加收015元700～1900间通话述收费标准全价收费时间通话者律收费标准半价收费
求程序运行点击开始通话钮文框text1中hhmmss形式显示通话开始时间点击结束通话钮文框text2中hhmmss形式显示通话结束时间点击计费钮text3中显示通话分钟数text4中显示通话费点击清楚钮清楚全部数
注意：存盘时保存学号姓名命名文件夹工程文件名vbxk207vbp窗体文件名vbxk207frm文件夹名vbxk207
参考答案：
程序代码：
PrivateSubOption1_Click()
Text1Alignment0
EndSub
PrivateSubOption2_Click()
Text1Alignment2
EndSub
PrivateSubOption3_Click()
Text1Alignment1
EndSub
PrivateSubOption4_Click()
Text1FontName宋体
EndSub
PrivateSubOption5_Click()
Text1FontName黑体
EndSub
03务
03务_0001
1窗体建立驱动器列表框目录列表框文件列表框图片框文框求程序运行驱动器列表框Drive1默认驱动器设置D盘选择File1中列图片文件（*bmp*gif*jpg）相应图片显示图片框Picture1中文件路径显示文框中程序运行结果图31示
注意：存盘时保存学号姓名命名文件夹工程文件名vbxk301vbp窗体文件名vbxk301frm文件夹名vbxk301
参考答案：
程序代码：
PrivateSubFile1_Click()
IfFile1ListCount>0Then
＇Command1EnabledTrue
Text1TextFile1Path+File1FileName
DimobjPicAsPicture
SetobjPicLoadPicture(Text1Text)
Picture1PictureobjPic
EndIf
EndSub
PrivateSubForm_Load()
Drive1Drived
Dir1Pathd＼＇Drive1Drive
Dir1Refresh
File1Pattern*jpg*bmp*gif|(*bmp*gif*jpg)
File1PathDir1Path
EndSub
PrivateSubDrive1_Change()
Dir1PathDrive1Drive
EndSub
PrivateSubDir1_Change()
File1PathDir1Path
EndSub
2利文件系统控件编写Word文件查找显示程序程序运行界面图32示
求：
（1）文件列表框中显示缀doc文件
（2）新创建标准工程通常工程－部件菜单项引入MicrosoftRichTextBoxControl60RichTextBox控件添加工具箱中控件显示RTF格式Word文件
（3）单击开钮文框中显示RTF格式Word文件
注意：存盘时保存学号姓名命名文件夹工程文件名vbxk302vbp窗体文件名vbxk302frm文件夹名vbxk302
参考答案：
程序代码：
PrivateSubCommand1_Click()
DimwdAppAsNewWordApplication
DimwdDocAsWordDocument
DimstrFileNameAsString
wdAppVisibleFalse
strFileNameFile1Path+＼+File1FileName
SetwdDocwdAppDocumentsOpen(strFileName)
wdDocSaveAsC＼时文件rtf6
wdDocClose
wdAppQuit
RichTextBox1FileNameC＼时文件rtf
Killc＼时文件rtf
EndSub
PrivateSubDir1_Change()
File1PathDir1Path
EndSub
PrivateSubDrive1_Change()
Dir1PathDrive1Drive
EndSub
04务
04务_0004
作品题（1道试题100分）
1开发图41示指针式时钟程序
求：
（1）求Shap控件Line控件Label控件设计表盘图形方法动态生成指针时钟控件控制时钟转动
（2）圆形表盘窗体中央直径求窗体高度宽度相等
注意：存盘时保存学号姓名命名文件夹工程文件名vbxk401vbp窗体文件名vbxk402frm文件夹名vbxk401
参考答案：
程序代码：
Constpi3141592653
PrivateSubForm_Load()
Form1Scale(1414)(1414)
EndSub
PrivateSubTimer1_Timer()
DimxAsInteger
DimyAsInteger
DimsecminhrAsInteger
secSecond(Time)
minMinute(Time)
hrHour(Time)
Form1Cls
Form1DrawWidth2
x9*Sin(sec*pi30)
y9*Cos(sec*pi30)
Form1Line(00)(xy)vbRed
Form1DrawWidth3
x7*Sin(min*pi30)
y7*Cos(min*pi30)
Form1Line(00)(xy)
Form1DrawWidth4
hrhr+min60
x6*Sin(hr*pi6)
y6*Cos(hr*pi6)
Form1Line(00)(xy)
EndSub
05务
05务_0001
作品题（1道试题100分）
1
开发成绩查询数库应程序具数增加（Insert）修改（Update）删（Delete）查询（Select）功
开发步骤求：
１．准备工作
建立名称vbxk5－成绩查询文件夹该文件夹建立图标文件夹中存入界面设计时图标开发程中全部文件存放vbxk5－成绩查询文件夹中
２．建立成绩查询数库
MicrosoftAccessSQLServer创建名称成绩数库中包含三张数表学生成绩表学生情况表课程情况表表5－3表5－4表5－5表5－6
参考答案：
程序代码：
创建数库createdatabasestudentgo数数库usestudentgo创建成绩表createtablestudentScore(stuidvarchar(10)primarykey学号cidvarchar(10)课程号socrevarchar(20)成绩)go创建学生情况表createtablestudentStatus(stuidvarchar(10)primarykeystuNamevarchar(20))go创建课程情况表createtablecurriculum(cidvarchar(10)cNamevarchar(50))go添加记录insertintostudentStatusvalues(＇001＇＇张红＇)goinsertintostudentStatusvalues(＇002＇＇李强＇)goinsertintostudentStatusvalues(＇003＇＇王丽＇)goinsertintocurriculumvalues(＇001＇＇数库原理＇)goinsertintocurriculum
06务
06务_0001
作品题（1道试题100分）
1程序调试
参考答案：
程序代码：
（1）根程序代码进行程序调试
PrivateSubCommand1_Click()
List1AddItemTextText
EndSub
排序钮Click事件
PrivateSubCommand2_Click()
DimijAsInteger
＇定义数组List1项目数数组维数
DimstrList(List1ListCount)AsInteger
＇定义中间时变量数交换
DimstrTmpAsInteger
＇List1中项目导入strList数组中
Fori0ToList1ListCount
strList(i)List1List(i)
Nexti
＇泡算法完成排序工作
Fori0ToUBound(strList)
Forji+1ToUBound(strList)
IfstrList(i)>strList(j)Then
strTmpstrList(i)
strList(i)strList(j)
strList(j)strTmp
EndIf
Nextj
Nexti
＇排序结果输出List2中
Fori0ToUBound(strList)
List2AddItemstrList(i)
Nexti
EndSub
（2）运行程序Text1文框中输入整数1然点击添加钮时会出现图6－5示错误提示
（3）点击调试钮进入中断模式VB编译器动标识出引发错误语句行
（4）分析错误原容易发现该行语句正确写法应该：
List1AddItemText1Text
（5）修改错误F5键继续执行程序
（6）述界面次输入整数序列21986
（7）点击排序钮出现图6－9示运行错误
（8）点击确定钮次进入中断模式编译器加重形式指出引发错误位置图6－10示
（9）分析图6－9示错误提示求常数表达式发现引错误原变量作数组标列数组声明语句符合VB语法约定：
DimstrList(List1ListCount)AsInteger
做选择采动态数组声明方法
DimstrList()AsInteger
ReDimstrList(List1ListCount)AsInteger
（10）点击调试钮
（11）分析错误原发现数组strList()声明Integer数类型List1List()表示字符型数VB法进行动类型转换通Val函数进行转换：
strList(i)Val(List1List(i))
（12）F5键继续程序成功运行说明语法错误已基排观查运行结果发现排序结果序列中出数值0种结果期
（13）关闭程序重新运行说明程序中存逻辑问题需进步调试
（14）设置断点分析逻辑错误鼠标点击图6－12示位置设置断点
（15）F5键运行程序输入组整数5432点击排序钮程序进入中断模式出现图6－13示界面
（16）VB集成环境立窗口中？印strList数组界相关值图6－14示然PrintDebugPrint命令等效？
（17）仔细分析难发现List1ListCount值4说明数字序列中4数5432List1List()标0开始标值应该3
List1ListCount–1
需选择strList()数组界循环次数
＇性数组声明
ReDimstrList(List1ListCount1)AsInteger
＇修改循环次数
Fori0ToList1ListCount1
strList(i)Val(List1List(i))
Nexti
文档香网(httpswwwxiangdangnet)户传
《香当网》用户分享的内容，不代表《香当网》观点或立场，请自行判断内容的真实性和可靠性！
该内容是文档的文本内容，更好的格式请下载文档