VB实验指导书测试题参考答案.docx
- 文档编号:8826053
- 上传时间:2023-02-02
- 格式:DOCX
- 页数:15
- 大小:30.53KB
VB实验指导书测试题参考答案.docx
《VB实验指导书测试题参考答案.docx》由会员分享,可在线阅读,更多相关《VB实验指导书测试题参考答案.docx(15页珍藏版)》请在冰豆网上搜索。
VB实验指导书测试题参考答案
第1章测试题答案一、选择题AABD
第2章测试题答案一、选择题BCDACACC二、填空题
1.Gotfocus2.Lostfocus3.Setfocus4.Style,15.S(165)6.Vbp7.18.ScrollBars
三、编程题
1.答:
PrivateSubForm_Click()
Form1.BackColor=vbBlue
EndSub
PrivateSubForm_DblClick()
Form1.BackColor=vbRed
EndSub2.答:
(1)若在设计状态完成:
在窗体上放一标签框,各对象属性按下表进行设置即可。
对象
属性
属性值
Form1
Caption
示例
BackColor
白色
StartUpPosition
2
Label1
Caption
欢迎使用VB6.0!
BackColor
蓝色
ForeColor
黄色
Font
黑体斜体20号
(2)若在运行状态完成:
编写窗体的Load事件过程如下:
PrivateSubForm_Load()
Form1.BackColor=vbWhite
Label1.Caption="欢迎使用VB6.0!
"
Label1.ForeColor=vbYellow
Label1.BackColor=vbBlue
Label1.FontName="黑体"
Label1.FontItalic=True
Label1.FontSize=20
EndSub
第3章测试题答案一、选择题BBDBCADA
二、填空题1.False”cde”2.”bcd”-123.True”abc123xy”
4.A*exp(-2*t)*sin(50*t+3)5.4/3*3.1416*r^36.Long&
7.Double#8.关系逻辑
第4章测试题答案一、选择题BBBACADCDAD
二、填空题1.判断奇偶数
InputBox("输入一个整数",”4-奇偶数”)
IfaMod2=1Then
Else
MsgBoxa&"是偶数"
2.计算Y值Val(Text1.Text)
x>100Then
x>0Then
Else
3.购物优惠x
Is>5000
Is>3000
Is>2000
Is>1000
CaseElse
4.1+2+3+。
。
。
+N>1000的最小N值
Untils>1000
s=s+n
5.输出图形
i=1To6
j=1To2*i-1
Print"*";
Nextj
三、编程题1.判断任意一个三位正整数是否为水仙花数。
PrivateSubCommand1_Click()
k=InputBox("输入3位正整数")
s1=Val(Mid(k,1,1))
s2=Val(Mid(k,2,1))
s3=Val(Mid(k,3,1))
Ifs1^3+s2^3+s3^3=Val(k)Then
MsgBoxk+"是水仙花数"
Else
MsgBoxk+"不是水仙花数"
EndIf
EndSub
2.找出不大于1000的最大素数。
PrivateSubCommand1_Click()
DimIAsInteger,JAsInteger
ForI=1000To1Step-1
K="I是素数"'先假设I是素数
'以下判断I是否是素数
ForJ=2ToI-1
IfIModJ=0ThenK="I不是素数"
NextJ
IfK="I是素数"ThenPrintI:
ExitFor
NextI
EndSub
3.用近似公式计算ex值:
PrivateSubCommand1_Click()
DimxAsInteger,iAsInteger,kAsDouble
DimexAsDouble,tAsDouble
x=Val(Text1.Text)
ex=1:
i=0:
k=1:
t=1
DoWhileAbs(t)>=0.000001
i=i+1
k=k*i
t=x^i/k
ex=ex+t
Loop
Text2.Text=ex
EndSub
4.求
的值。
PrivateSubForm_Click()
DimiAsInteger,sAsDouble
s=0
Fori=1To100
s=s+(-1)^(i-1)/i
Nexti
Print"s=";s
EndSub
5.求
的值。
PrivateSubCommand1_Click()
Dimx,n,s,i,j,k,m
s=1
x=Val(Text1.Text)
n=Val(Text2.Text)
m=1
Fori=1Ton
m=m*x*x
k=1
Forj=2To2*n
k=k*j
Nextj
s=s+(-1)^n*m/k
Nexti
Text3.Text=s
EndSub
第5章测试题及答案一、选择题AACBCCCCDBBABCCB
二、程序填空1.找最大数组元素:
Explicit
Option
A(4,5)
Randomize
i=1To4
j=1To5
Int(90*Rnd)+10
Nexti
A(1,1)
i=1To4
j=1To5
A(i,j)
A(i,j)
i
j
2.互不相同的数组元素:
Whilen<6
Int(((9-1+1)*Rnd)+1)
k
"不是重复数"
n=n+1
A(n)
Text1.Text+Str(A(i))
3.插入数组元素:
A()
Val(Text1.Text)
Val(Text2.Text)
插入的下标+1
A(i-1)
插入的数组元素
"A("&i&")="&A(i)
4.4个数排序:
Ifk1 k1=k3: k3=t'到此时,k1是三个数中最大数 Ifk2 k2=k3: k3=t'到此时,k3是三个数中最小数 Text2.Text Val(Text3.Text) d=Val(Text4.Text) a,b,d 三个数排序b,c,d ""+CStr(b)+""+CStr(c)+""+CStr(d) 5.判断完全数: k+1 A(k) i Sum+i 完全数 完全数(N) A(k) N;"不是完全数" 6.升序数: Mid(s,2,1) k3=Mid(s,3,1) k1<=k2Andk2<=k3 True 升序数 Randomize Int((999-100+1)*Rnd)+100 A(i); i/5=INT(i/5) i=1To10 A(i) 三、编程题1.找最小数组元素: '在(通用)处: 要求强制显式声明变量,定义数组的默认下界为1 OptionExplicit OptionBase1 '在窗体模块的(通用)处定义数组A,该数组可被本窗体的所有过程调用 DimA(3,4)AsInteger '“产生数组”按钮 PrivateSubCommand1_Click() DimiAsInteger,jAsInteger Randomize'初始化随机数发生器 '生成一个3行4列的数组,并输出到图片框中 Fori=1To3'i是行号,i从1循环到3 Forj=1To4'j是列号,j从1循环到4 A(i,j)=Int((999-100+1)*Rnd)+100'用随机函数产生一个3位正整数赋给数组元素A(i,j) Picture1.PrintA(i,j);'在图片框中输出A(i,j),不换行 Nextj'列号增加1 Picture1.Print'当1行结束后(行号要增加1时)再换行 Nexti'行号增加1 EndSub '“开始查找”按钮 PrivateSubCommand2_Click() DimiAsInteger,jAsInteger Dim最小值AsInteger Dim最小值行下标AsInteger,最小值列下标AsInteger 最小值=A(1,1)'先假设A(1,1)是最小值 '用穷举法将所有的数组元素与最小值比较 Fori=1To3'i是行号,i从1循环到3 Forj=1To4'j是列号,j从1循环到4 IfA(i,j)<最小值Then'如果有更小的数组元素A(i,j),那么 最小值=A(i,j)'最小值等于A(i,j) 最小值行下标=i'记录最小值的行下标 最小值列下标=j'记录最小值的列下标 EndIf Nextj Nexti Picture1.Print'在图片框中输出一个空行 '输出最小数组元素及下标位置 Picture1.Print"最小元素A("&最小值行下标&","&最小值列下标&")="&最小值 EndSub 2.找自然数对: OptionExplicit OptionBase1 PrivateSubCommand1_Click() DimmAsInteger,nAsInteger,kAsInteger,iAsInteger DimA(30)AsInteger,B(30)AsInteger k=0'用k来记录数组元素的个数,也是数组下标,k的初值为0 Form=1To30 Forn=m+1To30 IfSqr(m+n)=Int(Sqr(m+n))AndSqr(n-m)=Int(Sqr(n-m))Then k=k+1 A(k)=m B(k)=n EndIf Nextn Nextm Fori=1Tok PrintTab(5);A(i),Tab(15);B(i) Nexti EndSub 3.求算式: Sub阶乘(nAsInteger,pAsInteger) DimiAsInteger p=1 Fori=1Ton p=p*i Nexti EndSub PrivateSubCommand1_Click() DimmAsInteger,nAsInteger Dimp1AsInteger,p2AsInteger,p3AsInteger m=Val(Text1.Text) n=Val(Text2.Text) Call阶乘(m,p1) Call阶乘(n,p2) Call阶乘(m-n,p3) Text3.Text=p1/(p2*p3) EndSub 4.求最小公倍数: OptionExplicit '自定义函数"最小公倍数",参数M>N,求出M和N的最小公倍数 Function最小公倍数(MAsInteger,NAsInteger)AsInteger DimKAsInteger ForK=MToM*N IfK\M=K/MAndK\N=K/NThen 最小公倍数=K ExitFor EndIf NextK EndFunction PrivateSubCommand1_Click() DimMAsInteger,NAsInteger,RAsInteger M=Val(Text1.Text) N=Val(Text2.Text) '让N中保存小数 IfM M=N: N=R '调用函数“最小公倍数(M,N)”求出M和N的最小公倍数 Text3.Text=最小公倍数(M,N) EndSub 第6章测试题答案一选择题1A2A3B4C5D6D7C8B9B10C 11B12B13C14B15B16A 二、填空题 1.AddItem2.ListCount3.选中状态4.框架5.LoadPicture6.SmallChange 7.Scroll8.False9.毫秒 10.Pict1.Picture=loadPicture(“c: \abc.jpg”)11.选中12.不可以 13114True1510016Enabeld17BorderStyle18选中19Timer 20Scroll21clear 220 List1.ListIndex List1.ListCount 23Change AddItem 24单击了窗体空白处 文本框的文字已改变 25True 第7章测试题答案 1c: \ab\cd\ab.txt,ab.txt2a)OpenFileb)Word文档(*.Doc)C)所有文件(*.*) Word文档(*.Doc)文本文件(*.Txt) 3cdlCFBothOrcdlCFEffects4“MicrosoftCommonDialogContral6.0” 5CommonDialog1.ShowSave6D7C8D 第8章测试题答案1D2C3C4D5A6D7A8MouseDown(MouseUp),PopupMenu 第9章测试题答案一、选择题ABBDDB 二、编程题‘首先要自定义用户类型,写在窗体的通用部分 PrivateTypestud 姓名AsString*8 性别AsString*4 年龄AsInteger 名次AsIntegerEndType DimtAsstud PrivateSubCommand1_Click() '向随机文件中写记录 Open"out.txt"ForRandomAs#1Len=Len(t)'打开随机文件,注意要有Len=Len(t) ForI=1To3'用FOR循环写入三条记录 t..姓名=InputBox("请输入学生姓名") t..性别=InputBox("请输入学生性别") t..年龄=InputBox("请输入学生年龄") t..名次=InputBox("请输入学生名次") Put#1,I,t'随机文件记录写入的命令 NextI Close#1 EndSub PrivateSubCommand2_Click() ‘从随机文件中读记录,并从文本框text1中输出 Open"out.txt"ForRandomAs#1Len=Len(t)‘打开随机文件,注意要有Len=Len(t) DoWhileNotEOF (1)‘此处也可用用FOR结构 i=i+1 Get#1,i,t‘随机文件记录读取的命令 Text1.Text=Text1.Text&t.姓名&t.性别&t.年龄&t.名次&vbCrLf Loop EndSub 第10章测试题答案DABAABBCAD 16.1综合练习一答案一、选择题(每小题1分,共30题30分) ACABBAAAADBABAAABADABDACDCDADBCCADDC 二、根据程序写运行结果(每小题4分,共24分) 1.822.123.t=6 4.-505.06.1 三、填空题(每空1分,共10分) (1)0 (2)True(3)5000(4)End(5)Caption(6)Click(7)C3.SetFocus(8)Action (9)CommonDialog1.Color(10)2 四、判断题(每题1分,共10分,对的打√,错的打╳) 1 2 3 4 5 6 7 8 9 10 × ∨ ∨ ∨ × × × ∨ ∨ × 五、程序填空(每空2分,共10分) 1.AsInteger2.Y3.CaseElse(或Is>5) 4.EndSelect5.Z 六、编程题(每题10分,共10分) DimA(6)AsInteger PrivateSubCommand1_Click() Randomize'初始化随机发生器 Text1.Text=""'清空第一个文本框 Fori=1To6 A(i)=Int((999-100+1)*Rnd+100)'随机产生2位正整数 Text1.Text=Text1.Text+Str(A(i))'在文本框输出数组 Nexti EndSub PrivateSubCommand2_Click() '选择排序 Text2.Text=""'清空第二个文本框 Fori=1To5 Forj=i+1To6 IfA(i)>A(j)Thent=A(i): A(i)=A(j): A(j)=t Nextj Nexti '输出排序结果 Fori=1To6 Text2.Text=Text2.Text&""&A(i)'在第二个文本框输出排序结果 Nexti EndSub 16.2综合练习二答案 一、选择题(每小题1分,共30题30分) CDBBBCDBDBCAABC BCBCCCBDBDAACAA 二、填空题(每空1分,共10分) (1)Exe (2)Form1.Hide(3)分号或;(4)Print或Form1.Print (5)Form1.Caption=“计算机程序”(6)Command2.SetFocus (7)Text1.PasswordChar=”#”(8)Change(9)DimXAsSingle(10)False 三、判断题(每题1分,共10分,对的打√,错的打╳) 1 2 3 4 5 6 7 8 9 10 × ∨ ∨ ∨ ∨ × × × × ∨ 四、读程序,写运行结果(共5题,每题4分,共20分) 1.221343.14.50785.中国韩国香港 五、程序填空(每空2分,共12分) [1]100+Int(899*Rnd)[2]Put#1,i,k[3]Close#1[4]DimiAsInteger[5]iMod10 [6]x1^3+x2^3+x3^3=i 六、编程题(每题9分,共18分),说明: 程序答案并不唯一 1. (1)、进行部分对象的属性设置,共3分,每个空1分。 ①True②ScrollBars③Text (2)、事件代码设计,共6分。 PrivateSubCheck1_Click() IfCheck1.Value=1Then Text1.FontBold=True Else Text1.FontBold=False EndIf EndSub PrivateSubCheck2_Click() IfCheck2.Value=1Then Text1.FontItalic=True Else Text1.FontItalic=False EndIf EndSub PrivateSubCheck3_Click() IfCheck3.Value=1Then Text1.FontUnderline=True Else Text1.FontUnderline=False EndIf EndSub 2、事件代码设计,共9分 PrivateSubCommand1_Click() X=Val(Text1.Text) Text2.Text=“是素数” Fori=2toX-1 Ifx/i=int(x/i)Then Text2.Text=“不是素数” ExitFor Endif Nexti EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 实验 指导书 测试 参考答案