vb答案.docx
- 文档编号:26927829
- 上传时间:2023-06-24
- 格式:DOCX
- 页数:31
- 大小:18.52KB
vb答案.docx
《vb答案.docx》由会员分享,可在线阅读,更多相关《vb答案.docx(31页珍藏版)》请在冰豆网上搜索。
vb答案
第四章
4.5
PrivateSubCommand1_Click()
a=Val(Text1)
IfaMod3=0AndaMod5=0AndaMod7=0Then
Label1.Caption="能同时被3.5.7整除"
Else
Label1.Caption="不能同时被3.5.7整除"
EndIf
EndSub
4.6
PrivateSubCommand1_Click()
a=Val(Text1)
b=Val(Text2)
c=Val(Text3)
p=0.5*(a+b+c)
Ifa+b>cAndAbs(a-b) MsgBox"面积是: "&Sqr(p*(p-a)*(p-b)*(p-c)) Else MsgBox"不能构成三角形" EndIf EndSub 4.8 PrivateSubForm_Click() a=Val(InputBox("请输入: a")) b=Val(InputBox("请输入: b")) c=Val(InputBox("请输入: c")) Max=a IfMax Max=b EndIf IfMax Max=c EndIf Print"最大数是: ";Max Min=a IfMin>bThen Max=b EndIf IfMin>cThen Max=c EndIf Print"最小数是: ";Min EndSub 4.9 PrivateSubCommand1_Click() x=Val(Text1) b=xMod3 SelectCaseb Case0 MsgBoxStr(x)&"整除3" Case1 MsgBoxStr(x)&"整除3余1" Case2 MsgBoxStr(x)&"整除以3余2" EndSelect EndSub 4.13 PrivateSubText1_Change() a=Right(Text1,1) SelectCasea Case"a"To"z" Label1.Caption=UCase(a) CaseChr(65)ToChr(97) Label1.Caption=LCase(a) CaseElse Label1.Caption=a EndSelect EndSub 4.14 PrivateSubCommand1_Click() a=Val(Text1) Ifa<=4Then Text2.Text="10" ElseIfa>4Anda<=15Then Text2.Text=10+1.2*(a-4) ElseIfa>15Then Text2.Text=1.8*(a-15) EndIf EndSub 4.16 PrivateSubForm_Click() DimsAsSingle e=1 s=1 While1/s>=0.00001 i=i+1 s=s*i e=e+1/s Wend Printe EndSub 4.17 PrivateSubCommand1_Click() Fori=100To200 IfiMod7<>0Then Text1.Text=Text1&Str(i) EndIf Nexti EndSub 4.18 PrivateSubForm_Click() n=Val(Text1) Forx=1Ton c=c+x s=s+c Next Text2=s EndSub 4.19 PrivateSubCommand1_Click() s=1 Whiles<=400000 i=i+1 s=s*(2*i-1) Wend Printi-2 EndSub 4.20 PrivateSubCommand1_Click() Fora=0To9 Forb=0To9 Forc=1To9 t=100*a+b*10+c Ifa*a*a+b*b*b+c*c*c=tThen Printt EndIf Nextc Nextb Nexta EndSub 4.21 PrivateSubForm_Click() f1=0 f2=1 Printf1;f2; Fori=3To20 f3=f1+f2 f1=f2 f2=f3 Printf3; Nexti EndSub 4.22 平行四边形 PrivateSubCommand1_Click() Fori=1To5 Picture1.PrintTab(10-i);String(5,"*") Next EndSub 正三角形 PrivateSubCommand2_Click() Picture1.Cls Fori=1To5 Picture1.PrintTab(10-i);String(2*i-1,"*") Next EndSub 倒三角形 PrivateSubCommand3_Click() Picture1.Cls Fori=5To1Step-1 Picture1.PrintTab(10-i);String(2*i-1,"*") Next EndSub 菱形 PrivateSubCommand4_Click() Picture1.Cls Fori=1To4 Picture1.PrintTab(10-i);String(2*i-1,"*") Next Fori=4To1Step-1 Picture1.PrintTab(10-i);String(2*i-1,"*") Next EndSub 4.23 PrivateSubForm_Click() Fori=101To200Step2 Forj=2ToSqr(i) IfiModj=0ThenExitFor Nextj Ifj>=Sqr(i)Then Text1.Text=Text1&i&Space (1) EndIf Nexti EndSub 例题4-13 PrivateSubCommand1_Click() m=Val(Text1): n=Val(Text2) a=m: b=n r=mModn Whiler<>0 m=n n=r r=mModn Wend Text3.Text=Str(n) Text4.Text=Str(a*b/n) EndSub 4.15 方法1 PrivateSubCommand1_Click() DimkAsSingle t=1 i=1 s=0 Do k=t/i s=s+k t=-1*t i=i+2 LoopWhileAbs(k)>=0.000001 pi=4*s Text1.Text=Str(pi) EndSub 练习题1 PrivateSubCommand1_Click() Randomize Text1.Text=Int(41*Rnd+10) Text2.Text=Int(41*Rnd+10) EndSub PrivateSubCommand2_Click() Text3.Text=Val(Text1)*Val(Text2) EndSub 练习3 PrivateSubCommand1_Click() Text1.Text="" Text2.Text="" n=Val(InputBox("体重")) Text1.Visible=True Text1.Text=n m=Val(InputBox("身高")) Text2.Visible=True Text2.Text=m b=Format(m/(n*n),"0.0") MsgBox"您的体重指数为: "&b EndSub 练习4.9 PrivateSubCommand1_Click() StaticsAsInteger IfText1.Text="123456"Then Text1.PasswordChar="" Text1="口令正确" Else Ifs=0Ors=1Then Text2=2-s MsgBox"第"&(s+1)&"次口令错误,请重新输入" s=s+1 Else End EndIf EndIf EndSub L练习题4.12 PrivateSubForm_Click() a=Val(InputBox("请输入数字a: ")) b=Val(InputBox("请输入数字b: ")) c=Val(InputBox("请输入数字c: ")) PrintTab (2);"输入的数据为" PrintTab(3);a;b;c Print Ifa t=a a=b b=t EndIf Ifa t=a a=c c=t EndIf Ifb t=b b=c c=t EndIf PrintTab (2);"降序排序后" PrintTab(4);a;b;c Print PrintTab (2);"其中最大值为";a PrintTab (2);"其中最小值是";c EndSub .练习题4.15 PrivateSubCommand1_Click() s=1 n=Val(Text1) Fori=1Ton s=s*i Nexti Text2=s EndSub PrivateSubCommand2_Click() s=1 n=Val(Text1) Fori=1To(n+2) s=s*i Nexti Text3=s EndSub 练习题4.16 PrivateSubForm_Click() s=1: i=1 Whiles<=100000 s=s*i*2 i=i+1 Wend Text1.Text=s EndSub 练习4.23 PrivateSubCommand1_Click() Text1=Int(Rnd*100+1) Text2=Int(Rnd*100+1) m=Val(Text1) n=Val(Text2) r=mModn p=m*n Whiler<>0 m=n n=r r=mModn Wend Label1.Caption="最大公约数是: "&n Label2.Caption="最小公倍数是: "&p/n EndSub 练习4.。 24 PrivateSubPicture1_Click() Picture1.PrintTab(50);"九九乘法表" Fori=1To9 Forj=1To9 Picture1.PrintTab((j-1)*15);i;"*";j;"=";i*j; Nextj Picture1.Print Nexti Line1.Visible=True Line2.Visible=True EndSub 练习4.25 PrivateSubText4_Change() EndSub PrivateSubCommand1_Click() Picture1.Cls p="FEDCBA" Fori=1To6 Picture1.PrintRight(p,i) Nexti EndSub PrivateSubCommand2_Click() Picture2.Cls Fori=6To1Step-1 Picture1.PrintTab(7-i); Forj=1Toi Picture2.PrintChr(64+j); Nextj Picture2.Print Nexti EndSub PrivateSubCommand3_Click() Fori=1To6 Picture1.PrintTab(7-i); Forj=iTo1Step-1 Picture3.PrintChr(71-j); Nextj Picture3.Print Nexti EndSub PrivateSubCommand4_Click() Fori=6To1Step-1 Forj=1Toi Picture4.PrintChr(64+(i-j+1)); Nextj Picture4.Print Nexti EndSub 练习4.27 PrivateSubCommand1_Click() m=Int(Rnd*101) Text1.Text=m EndSub PrivateSubCommand2_Click() DimnAsLong,iAsInteger n=Val(Text1.Text) Fori=2ToSqr(n) IfnModi=0ThenExitFor NextI Ifi>Sqr(n)Then Text2.Text="是素数" Else Text2.Text="不是素数" EndIf EndSub 第五章 5.7 PrivateSubForm_Click() IfOption1.Value=TrueThenLabel3.FontSize=10 IfOption2.Value=TrueThenLabel3.FontSize=13 IfOption3.Value=TrueThenLabel3.FontSize=15 IfCheck1.Value=1ThenLabel3.FontItalic=True IfCheck2.Value=1ThenLabel3.FontUnderline=True IfCheck1.Value=0ThenLabel3.FontItalic=false IfCheck1.Value=0ThenLabel3.FontItalic=false EndSub 5.8 PrivateSubOption1_Click() Shape1.Shape=3 EndSub PrivateSubOption2_Click() Shape1.Shape=1 EndSub PrivateSubOption3_Click() Shape1.Shape=0 EndSub PrivateSubOption4_Click() Shape1.Shape=2 EndSub 5.9 PrivateSubCommand1_Click() List1.AddItemText1.Text EndSub PrivateSubCommand2_Click() IfList1.SelCount>0Then List1.RemoveItemList1.ListIndex Else MsgBox"请选择要删除的列表项" EndIf EndSub PrivateSubCommand3_Click() List1.Clear EndSub 5.10 PrivateSubCombo1_Click() SelectCaseCombo1.ListIndex Case0 Text1.ForeColor=vbWhite Case1 Text1.ForeColor=vbBlack Case2 Text1.ForeColor=vbRed Case3 Text1.ForeColor=vbGreen Case4 Text1.ForeColor=vbBlue Case5 Text1.ForeColor=vbYellow EndSelect EndSub PrivateSubCombo2_Click() SelectCaseCombo2.ListIndex Case0 Text1.BackColor=vbWhite Case1 Text1.BackColor=vbBlack Case2 Text1.BackColor=vbRed Case3 Text1.BackColor=vbGreen Case4 Text1.BackColor=vbBlue Case5 Text1.BackColor=vbYellow EndSelect EndSub PrivateSubCombo3_Click() SelectCaseCombo3.ListIndex Case0 Text1.Alignment=0 Case1 Text1.Alignment=2 Case2 Text1.Alignment=1 EndSelect EndSub 5.11 PrivateSubVScroll1_Change() Label6.Caption=VScroll1.Value Label5.Caption=(VScroll1.Value)*9/5+32 EndSub 5-14(注意要将计时器的interval属性设为1000) PrivateSubTimer1_Timer() StaticiAsInteger SelectCaseiMod2 Case0 Text1.BackColor=vbRed Case1 Text1.BackColor=vbGreen EndSelect i=i+1 EndSub 练习5.6 PrivateSubCommand1_Click() Picture1.Picture=LoadPicture("c: \99ksw\ksm3\house.jpg") EndSub PrivateSubCommand2_Click() Picture1.Picture=LoadPicture("") EndSub 练习5.8 (在属性窗口将定时器的interval的值改为500) DimsAsInteger PrivateSubCommand1_Click() Timer1.Enabled=True EndSub PrivateSubCommand2_Click() Timer1.Enabled=False EndSub PrivateSubForm_Load() Timer1.Enabled=False EndSub PrivateSubTimer1_Timer() StaticaAsInteger SelectCases Case0 Text1.BackColor=vbRed Case1 Text1.BackColor=vbGreen Case2 Text1.BackColor=vbBlue EndSelect s=s+1 Ifs>2Thens=0 SelectCasea Case0 Label1.Left=Label1.Left+1000 IfLabel1.Left>=(Form1.Width-Label1.Width)Then a=1 EndIf Case1 Label1.Left=Label1.Left-1000 IfLabel1.Left<=0Then a=0 EndIf EndSelect EndSub 练习5.11 PrivateSubList1_DblClick() Fori=0ToList1.ListCount-1 s=s+Val(List1.List(i)) Nexti List1.AddItems EndSub 第六章 6.1 OptionBase1 PrivateSubCommand1_Click() Cls ReDima(10) Fori=1To10 a(i)=Int(90*Rnd+10) s=s+a(i) Picture1.Printa(i); Nexti Forj=1To10 Fork=jTo10
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 答案
![提示](https://static.bdocx.com/images/bang_tan.gif)