VB 课后非选择填空部分没有Word格式文档下载.docx
- 文档编号:16634631
- 上传时间:2022-11-25
- 格式:DOCX
- 页数:16
- 大小:21.77KB
VB 课后非选择填空部分没有Word格式文档下载.docx
《VB 课后非选择填空部分没有Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《VB 课后非选择填空部分没有Word格式文档下载.docx(16页珍藏版)》请在冰豆网上搜索。
1.
文本框、标签和命令按钮的名称分别为Text1、Label1、Command1
代码如下:
PrivateSubCommand1_Click()
Label1.Caption=Text1.Text
Command1.Caption=Text1.Text
EndSub
2.
单价、数量、折扣和应付款对应的文本框的名称分别为:
Text1、Text2、Text3和Text4,“计算”和“清除”命令按钮的名称分别为:
Command1和Command2,将Command1的Default属性值设置为True:
,将Command2的Cancel属性值设置为:
True。
Text4=Val(Text1)*Val(Text2)*Val(Text3)
PrivateSubCommand2_Click()
Text1="
"
:
Text2="
Text3="
Text4="
3.
文本框、“转大写”命令按钮、“转大写”命令按钮、“退出”命令按钮的名称分别为Text1、Command1、Command2和Command3。
Text1=UCase(Text1)
Text1=LCase(Text1)
PrivateSubCommand3_Click()
End
第5章(P116~P121)
1.代码如下:
PrivateSubForm_Click()
DimiAsInteger,numAsInteger,sumAsInteger
num=0:
sum=0
Print"
100~200之间(包括100和200)不能被3整除的奇数为:
Fori=101To200Step2
IfiMod3<
>
0Then
num=num+1'
统计奇数的个数
sum=sum+i
Printi,'
输出不能被3整除的奇数
IfnumMod5=0ThenPrint'
每输出5个数就换行
EndIf
Nexti
Print'
在下一行输出各个奇数的和
100~200之间(包括100和200)不能被3整除的奇数的和为:
;
sum
2.代码如下:
DimnAsInteger,SAsLong
n=0:
S=1
WhileS<
=400000
n=n+1
S=S*n
Wend
IfS>
400000Thenn=n-1
Printn
PrintS
3.代码如下:
Dimmax%,min%,average%,i%,R%,num%
max=50:
min=100:
average=0:
num=0
Fori=1To20
R=Int(Rnd*51+50)
IfR>
maxThenmax=R
IfR<
minThenmin=R
average=average+R
PrintR,
num=num+1
IfnumMod5=0ThenPrint
average=average/20
max="
max,"
min="
min,"
average="
average
作业:
2.利用随机函数产生10个100~200之间的随机整数,在窗体上显示它们的最大值、最小值和平均值。
Dimmax%,min%,average%,i%,R%
max=100:
min=200:
average=0
Fori=1To10
R=Int(Rnd*101+100)
PrintR;
average=average/10
PrintvbCrLf;
"
3.我国古代数学家张丘建在《算经》一书中提出了“百鸡问题”:
鸡翁一值钱五,鸡母一值钱三,鸡雏三值钱一。
百钱买百鸡,问鸡翁、鸡母、鸡雏各几何?
现要求使用VB编程在窗体中列举出所有可能的购鸡方案。
Dimx%,y%,z%,n%
n=0
Forx=1To19
Fory=1To31
z=100-x-y
If5*x+3*y+z/3=100Then
第"
n;
种方案:
鸡翁"
x;
只"
;
鸡母"
y;
鸡雏"
z;
vbCrLf
Nexty
Nextx
第6章(P156~P161)
第七章习题参考答案
1.PrivateSubC1_click()
IfOP1(0).Value=TrueThenP1.Print“选择了椭圆形”
IfOP1
(1).Value=TrueThenP1.Print“选择了圆形”
IfOP1
(2).Value=TrueThenP1.Print“选择了正方形”
EndSub
2.统计按钮名为Command1,输入框名为text1,输出框为text2(MultLine设为True),两个文本框内容要清除
PrivateSubCommand1_click()
DimX(1to26)ASInteger,IAsInteger
DimSAsString,LAsInteger
L=Len(Text1.text)
Fori=1ToL
S=Mid(Text1,I,1)
S=Ucase(S)
="
A"
AndS<
Z"
Then
x(Asc(S)-65+1)=x(Asc(S)-65+1)+1
Nexti
Fori=1To26
Text2=text2&
Chr(64+i)&
“=”&
x(i)&
““
IfIMod7=0thenText2=text2&
chr(13)+chr(10)
EndSub
3.
PrivateSubCommand1_click()
Dimi%,j%,t%,s$
Dimmark(10)AsInteger
Dimname1(10)AsString
name1(i)=InputBox("
请输入第"
&
i&
个学生的名字"
"
mark(i)=Val(InputBox("
个学生的成绩"
))
NextI
Fori=1To9
Forj=i+1To10
Ifmark(i)<
mark(j)Then
t=mark(i):
mark(i)=mark(j):
mark(j)=t
s=name1(i):
name1(i)=name1(j):
name1(j)=s
Nextj
Printname1(i),mark(i)
第八章习题参考答案
1.子过程
SubP1(xAsSingle,espAsSingle)
Dimp!
S!
F!
i%
P=1:
S=1:
i=1:
F=x
Do
P=P*i
S=S+F/p
LoopUntilAbs(F/p)<
esp
Prints
子函数
FunctionP2(xAsSingle,espAsSingle)Assingle
P2=s
EndFunction
2.Swap2能实现数据交换。
因为地址传递方式形参和实参有共同的地址,那么形参的变化,会引起实参的变化(即形参将值回传给实参),故可实现两数交换。
3.FunctionLF(ByValxAsSingle)AsSingle
LF=X*X*X
SubCommand1_Click()
DimI%
Fori=1To20
PrintI,LF(i)
4.FunctionWeekDay(ByValxAsInteger)AsString
SelectCasex
Case0
WeekDay=”星期日”
Case1
WeekDay=”星期一”
Case2
WeekDay=”星期二”
Case3
WeekDay=”星期三”
Case4
WeekDay=”星期四”
Case5
WeekDay=”星期五”
Case6
WeekDay=”星期六”
EndSelect
5.FunctionRand30(ByValXAs`Integer)AsInteger
Randomize
Rand30=Int(Rnd*X+1)
Fori=1To30
PrintRand30(100)
6.FunctionF1(ByValXAs`Single,ByValYAs`Single)AsInteger
IfX>
YThen
F1=X
Else
F1=Y
7.
FunctionGDBH(ByValx%)AsString
Dimi%
Fori=3Tox-3Step2
Ifisp(i)Andisp(x-i)Then
GDBH=i&
+"
(x-i)&
="
x
ExitFunction
Next
Functionisp(y%)AsBoolean
i=2:
k=Int(y/2)
DoWhilei<
=k
IfyModi=0ThenExitDo
i=i+1
Loop
Ifi>
kThen
isp=True
isp=False
PrivateSubForm_Click()
Fori=6To40Step2
PrintGDBH(i)
8.FunctionisQO(ByValxAsInteger)AsString
IfxMod2=0Then
isQO=”偶数”
isQO=”奇数”
9.FunctionF1(ByValxAsInteger)AsBoolean
IfxMod17=0andxMod37=0Then
F1=True
F1=False
Fori=1000To2000
IfF1(i)Then
Printi
Endif
10.SubF1(a()AsInteger,ByValL1AsInteger,ByValL2As
Integer)
DimL%,U%,x%,i%
L=LBound(a):
U=UBound(a)
IfL1>
UOrL2>
UThen
位置输入错误!
ExitSub
L2Then
x=a(L1)
Fori=L1ToL2+1Step-1
a(i)=a(i-1)
a(L2)=x
ElseIfL2>
L1Then
Fori=L1ToL2-1
a(i)=a(i+1)
第9章习题参考答案
第10章习题参考答案
三、编程题
1.‘在标准模块中定义
Typestu
IDAsString*12
nameAsString*8
z1AsString*12
z2AsString*12
sexAsString*2
jcAsBoolean
scoolAsString*20
sxAsInteger
ywAsInteger
yyAsInteger
wlAsInteger
zfAsInteger
EndType
DimpAsstu‘在通用中定义
PrivateSubCmdAppend_Click()
p.ID=Text1
p.name=Text2
p.z1=Text3
p.z2=Text4
p.scool=Text5
IfOption1.Value=TrueThenp.sex="
男"
IfOption2.Value=TrueThenp.sex="
女"
IfCheck1.Value=1Thenp.jc=TrueElsep.jc=False
p.sx=Val(Text6):
p.yw=Val(Text7)
p.yy=Val(Text8):
p.wl=Val(Text9)
p.zf=Val(Text10)
Put#1,,p
PrivateSubCmdDisplay_Click()
Get#1,Val(txtRecord_No),p
Text1=p.ID:
Text2=p.name
Text3=p.z1:
Text4=p.z2
Text5=p.scool
Ifp.sex="
ThenOption1.Value=TrueElseOption2.Value=True
Ifp.jc=TrueThenCheck1.Value=1ElseCheck1.Value=0
Text6=p.sx:
Text7=p.yw
Text8=p.yy:
Text9=p.wl
Text10=p.zf
PrivateSubCommand3_Click()
Text1="
:
Text2="
Text3="
Text4="
Text5="
Text6="
Text7="
Text8="
Text9="
Text10="
PrivateSubForm_Load()
OpenApp.Path&
\stu.dat"
ForRandomAs#1Len=Len(p)
PrivateSubForm_Unload(CancelAsInteger)
Close#1
PrivateSubText10_GotFocus()
Text10=Val(Text6)+Val(Text7)+Val(Text8)+Val(Text9)
2.3.4.
PrivateTypebooks
idAsString*10
mathAsInteger
engAsInteger
eleAsInteger
EndType
‘成绩输入
PrivateSubCommand1_Click()
DimbAsbooks
Open"
c:
ForAppendAs#1
b.id=InputBox("
请输入学号"
b.name=InputBox("
请输入姓名"
b.sex=InputBox("
请输入性别"
b.math=InputBox("
请输入数学成绩"
b.eng=InputBox("
请输入英语成绩"
b.ele=InputBox("
请输入电子成绩"
Write#1,b.id,b.name,b.sex,b.math,b.eng,b.ele
‘不及格人员输出
PrivateSubCommand2_Click()
Dima,b,c
\stuo.dat"
ForInputAs#1
WhileNotEOF
(1)
Input#1,a,b,c
Ifc="
数学"
ThenList1.AddItemb
英语"
ThenList2.AddItemb
电子"
ThenList3.AddItemb
‘将不及格人选出存入stuo.dat
Dima,b,c,d,e,f
Dimk%
ForOutputAs#2
Input#1,a,b,c,d,e,f
Ifd<
60ThenWrite#2,a,b,"
Ife<
Iff<
Close#2
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 课后非选择填空部分没有 课后 选择 填空 部分 没有