vb实验答案.docx
- 文档编号:3877495
- 上传时间:2023-05-06
- 格式:DOCX
- 页数:30
- 大小:18.56KB
vb实验答案.docx
《vb实验答案.docx》由会员分享,可在线阅读,更多相关《vb实验答案.docx(30页珍藏版)》请在冰点文库上搜索。
vb实验答案
实验2\实验二做一做2
PrivateSubCommand1_Click()
Label1.FontSize=26
EndSub
PrivateSubCommand2_Click()
Label1.FontBold=True
EndSub
PrivateSubCommand3_Click()
Label1.FontUnderline=True
EndSub
PrivateSubCommand4_Click()
Label1.FontSize=10
Label1.FontBold=False
Label1.FontUnderline=False
Label1.Move3480
EndSub
PrivateSubCommand5_Click()
Label1.Move0
EndSub
实验2\实验二做一做3
PrivateSubCommand1_Click()
Command1.Move0
Command1.Top=0
Command1.Width=1507
Command1.Height=607
EndSub
实验2\实验二做一做4
PrivateSubText1_Click()
Text1.Top=0
Text1.Left=0
Text1.Height=Screen.Height
Text1.Width=Screen.Width
EndSub
实验2\实验二做一做5
PrivateSubCommand1_Click()
DimsumAsDouble
sum=Val(Text2.Text)*Val(Text3.Text)*Val(Text1.Text)/100
Text4.Text=sum+Val(Text1)
EndSub
PrivateSubCommand2_Click()
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
EndSub
PrivateSubCommand3_Click()
End
EndSub
实验3\实验三做一做
PrivateSubText1_Click()
Dimsample$,x%,y%
FontSize=Val(Text1)
FontBold=True
ForeColor=vbBlue
Cls
sample$="MicrosoftVisualBasic程序设计"
CurrentX=(Form1.Width-TextWidth(sample$))/2
CurrentY=(Form1.Height-TextHeight(sample$))/2
Printsample$
EndSub
实验5\实验五做一做2
PrivateSubCommand1_Click()
Text3.Text=Val(Text1)+Val(Text2)
Label1.Caption="+"
EndSub
PrivateSubCommand2_Click()
Text3.Text=Val(Text1)-Val(Text2)
Label1.Caption="-"
EndSub
PrivateSubCommand3_Click()
Text3.Text=Val(Text1)*Val(Text2)
Label1.Caption="*"
EndSub
PrivateSubCommand4_Click()
Text3.Text=Val(Text1)/Val(Text2)
Label1.Caption="/"
EndSub
PrivateSubCommand5_Click()
Text1.Text=""
Text2.Text=""
Text3.Text=""
Label1=""
EndSub
实验5\实验五做一做3
PrivateSubCommand1_Click()
EndSub
PrivateSubForm_Click()
Dima(8)AsInteger
Dimi%
Forj=1To8
a(j)=InputBox("请输入数据:
")
Nextj
Print"str1=";
Forj=1To8
Printa(j);
Nextj
Print"str2=";
Forj=1To4
Printa(j);
Printa(9-j);
Nextj
EndSub
实验5\实验五做一做4
PrivateSubForm_Click()
Dimi%,j%,d%
Fori=1To4
PrintTab(36-6*i);
Forj=1Toi*2-1
Printi;
Nextj
Nexti
PrintTab(9);
Fori=1To8
Print5;
Next
EndSub
实验5\实验五做一做5
PrivateSubForm_Click()
DimiAsInteger,j%,kAsInteger,d%
d=0
Randomize
i=Int(900*Rnd+100)
Print"输出的是:
"
Printi;
Forj=1To3
k=iMod10
d=d*10+k
i=i\10
Nextj
Printd
EndSub
实验5\实验五做一做6
PrivateSubCommand1_Click()
Text1.FontSize=48
EndSub
PrivateSubCommand2_Click()
Text1.FontSize=8
EndSub
PrivateSubCommand3_Click()
Text1.FontSize=12
EndSub
实验6\实验六做一做2
PrivateSubText1_Change()
x=Val(Text1.Text)
Ifx<1Then
y=1-x
ElseIf1<=xAndx<=2Then
y=(1-x)*(2-x)
Else:
y=x-2
EndIf
Label1.Caption="Y="&y
EndSub
实验6\实验六做一做3
PrivateSubText1_Change()
Dimstr1AsString,s$
Dimi%,j%,x%,l%,k%
str1=Text1.Text
x=Len(str1)
i=0
j=0
Forl=1Tox
s=Mid(str1,l,1)
Ifs="("Then
i=i+1
ElseIfs=")"Then
j=j+1
EndIf
Nextl
Ifi>jThen
k=i-j
Print"左括号多余右括号";k
ElseIfi=jThen
Print""
Else:
k=j-i
Print"右括号多余左括号:
";k
EndIf
EndSub
实验6\实验六做一做5
PrivateSubForm_Click()
Dims$,w$
Dimi%,j%,k%,l%
l=0
j=0
s=Text1.Text
k=Len(s)
Fori=1Tok
w=Mid(s,i,1)
Ifw="a"Orw="e"Orw="i"Orw="o"Orw="u"Then
j=j+1
ElseIfw=""Then
j=j
l=l
Else:
l=l+1
EndIf
Nexti
Print"元音字母的数目:
";j
Print"其他字母的数目为:
";l
EndSub
实验7\实验七做一做1
PrivateSubForm_Click()
Dimi%,m%
m=1
i=0
While(i<5)
m=m+1
IfmMod3=1AndmMod5=1AndmMod7=1Then
Printm;
i=i+1
EndIf
Wend
EndSub
实验7\实验七做一做2
PrivateSubForm_Click()
Dima%(7),m%,t%
Fori=1To7
a(i)=Val(InputBox("请输入第"&i&"个评委打的分数","请输入数据"))
Next
Fori=1To6
Forj=1To6
Ifa(j)>a(j+1)Then
m=a(j)
a(j)=a(j+1)
a(j+1)=m
EndIf
Next
Next
t=0
Fori=2To6
t=t+a(i)
Next
Print"这个参赛者的得分为";
Printt
EndSub
实验7\实验七做一做3
PrivateSubForm_Click()
Dimm%,n%
Fori=1000To9999
m=iMod1000
n=m\10
Ifi=n^2Then
Printi
EndIf
Next
EndSub
实验7\实验七做一做4
PrivateSubForm_Click()
Dima%(5,5),b%(25),n%,m%,k%
k=1
Print"生成的5阶两位数矩阵:
"
Fori=1To5
Forj=1To5
Randomize
a(i,j)=Int(Rnd*89+10)
Printa(i,j);
Next
Next
n=0
Fori=1To5
Forj=1To5
n=n+1
b(n)=a(i,j)
Next
Next
Forj=1To24
Fori=1To24
Ifb(i)>b(i+1)Then
m=b(i)
b(i)=b(i+1)
b(i+1)=m
EndIf
Next
Next
Print"排序后的矩阵:
"
Forj=1To25
Printb(j);
Ifk>4Then
k=0
EndIf
k=k+1
Next
EndSub
实验7\实验七做一做6
PrivateSubForm_Click()
Dima%(11,11)
a(6,6)=6
Fori=1To11
a(5,i)=5
a(7,i)=5
a(i,5)=5
a(i,7)=5
Next
Fori=1To11
a(4,i)=4
a(8,i)=4
a(i,4)=4
a(i,8)=4
Next
Fori=1To11
a(3,i)=3
a(9,i)=3
a(i,3)=3
a(i,9)=3
Next
Fori=1To11
a(2,i)=2
a(10,i)=2
a(i,2)=2
a(i,10)=2
Next
Fori=1To11
a(1,i)=1
a(11,i)=1
a(i,1)=1
a(i,11)=1
Next
Fori=1To11
Forj=1To11
Printa(i,j);
Next
Next
EndSub
实验7\实验七做一做7
PrivateSubForm_Click()
Dimm(1To8)AsString
m
(1)="A"
m
(2)="B"
m(3)="C"
m(4)="D"
m(5)="E"
m(6)="F"
m(7)="G"
m(8)="H"
Fori=1To8
Printm(i);
Next
Forj=2To8
Fori=jTo1Step-1
Printm(i);
Next
Fork=1To8-j
Printm(k);
Next
Next
EndSub
实验8\实验八做一做2
PublicSubmovestr(s$(),k%,wAsBoolean)
Dimi%,x%,str$(),L%
L=1
x=UBound(s)
ReDimstr$(x)
Ifw=FalseThen
Fori=1Tox-k
str(i+k)=s(i)
Nexti
Fori=x-k+1Tox
str(L)=s(i):
L=L+1
Nexti
Else
Fori=kTox
str(i-k+1)=s(i)
Nexti
Fori=1Tok
str(x-k+1)=s(i)
Nexti
EndIf
Fori=1Tox
s(i)=str(i)
Nexti
EndSub
PrivateSubCommand1_Click()
DimsAsString,a$(),m%,n%
DimtagAsBoolean
s=Text1.Text
m=Len(Text1.Text)
ReDima(m)AsString
Forj=1Tom
a(j)=Mid(s,j,1)
Nextj
IfText3.Text=rThen
tag=False
ElseIfText3.Text=LThen
tag=True
EndIf
n=Val(Text2.Text)
Callmovestr(a,n,tag)
Forj=1Tom
Text4.Text=Text4.Text&""&a(j)
Nextj
EndSub
实验8\实验八做一做3
PublicSubshanchu(a%(),b%())
Dimj%
j=1
Print"数组A:
"
Fori=1ToUBound(a)
Printa(i);
Next
Print"数组B:
"
Forj=1ToUBound(b)
Printb(j);
Next
Print"删除后的数组X"
Fori=1ToUBound(b)
Forj=1ToUBound(b)
Ifa(i)=b(j)Then
a(i)=0
EndIf
Nextj
Nexti
Fori=1ToUBound(a)
Ifa(i)<>0Then
Printa(i);
EndIf
Next
EndSub
PrivateSubCommand1_Click()
Cls
EndSub
PrivateSubForm_Click()
Dima%(10),b%(10)
Fori=1To10
Randomize
a(i)=Int(Rnd*31+40)
b(i)=Int(Rnd*31+40)
Nexti
Callshanchu(a,b)
EndSub
实验8\实验八做一做4
PublicSubDelestr(a$,b$)
Dimw1$,w2$
Dimi%,j%,n%,m%
n=Len(a)
m=Len(b)
Whilem i=InStr(1,a,b) Ifi<>0Then w1=Mid(a,1,i-1) w2=Mid(a,i+m,n) Text3.Text=Text3.Text&w1 a=w2 EndIf n=Len(a) Wend Text3.Text=Text3.Text&w2 EndSub PrivateSubCommand1_Click() Dims1$,s2$' s1=Text1.Text s2=Text2.Text CallDelestr(s1,s2) EndSub 实验9\实验九做一做3 PublicFunctionzhuan(n%,m$) Dima%(),j%,k% k=0 j=Len(m) ReDima(j) Fori=1Toj a(i)=Mid(m,i,1) Nexti Fori=1Toj k=n*k+a(i) Nexti Text3.Text=k EndFunction PrivateSubCommand1_Click() Dimm$,n% n=Text1.Text m=Text2.Text Callzhuan(n,m) EndSub 实验9\实验九做一做4 PrivateSubCommand1_Click() Dima%,namx% Dimb$,c$,maxs$ b=RTrim(Text1.Text) DoWhileLen(b)>0 a=InStr(b,"") Ifa=0Then c=b b="" Else c=Left(b,a-1) b=Mid(b,a+1) EndIf Ifnmax nmax=Len(c) maxs=c EndIf b=RTrim(b) Loop Text2.Text=maxs EndSub 实验10\实验十2 PrivateSubCheck1_Click() Caption="复选框举例" IfCheck1.Value=1Then Check1.Caption="选中" ElseIfCheck1.Value=0Then Check1.Caption="未选中" EndIf EndSub PrivateSubForm_Load() Form1.Caption="列表框控件" List1.AddItem"张三" List1.AddItem"李四" List1.AddItem"王五" List1.AddItem"赵六" List1.AddItem"孙琦" List1.AddItem"张雨绮" List1.AddItem"刘永乐" List1.AddItem"丁几敢都很美开的的ekfijfko9wek就覅减肥法" List1.AddItem"李平" List1.AddItem"可以呀" List1.AddItem"欧阳克" List1.AddItem"王克" EndSub 实验10\实验十3 PrivateSubCommand1_Click() Dimi% Fori=List1.ListCount-1To0Step-1 IfList1.Selected(i)Then List2.AddItemList1.List(i) List1.RemoveItem(i) EndIf Nexti EndSub PrivateSubCommand2_Click() Dimi% Fori=List2.ListCount-1To0Step-1 IfList2.Selected(i)Then List1.AddItemList2.List(i) List2.RemoveItem(i) EndIf Nexti EndSub PrivateSubList1_DblClick() Dimi% Fori=List1.ListCount-1To0Step-1 IfList1.Selected(i)Then List2.AddItemList1.List(i) List1.RemoveItem(i) EndIf Nexti EndSub PrivateSubList2_DblClick() Dimi% Fori=List2.ListCount-1To0Step-1 IfList2.Selected(i)Then List1.AddItemList2.List(i) List2.RemoveItem(i) EndIf Nexti EndSub 实验10\实验十4 PrivateSubForm_Load() Combo2.Text="9" Combo1.Text="新宋体" Frame1.Caption="示例" Combo1.AddItem"宋体" Combo1.AddItem"楷体" Combo1.AddItem"仿宋" Combo1.AddItem"黑体" Combo2.AddItem"2" Combo2.AddItem"3" Combo2.AddItem"4" Combo2.AddItem"4" Combo2.AddItem"5" Combo2.AddItem"6" Combo2.AddItem"7" Combo2.AddItem"8" Combo2.AddItem"9" Combo2.AddItem"10" Combo2.AddItem"11" Combo2.AddItem"12" Combo2.AddItem"13" Combo2.AddItem"14" Combo2.AddItem"15" Combo2.AddItem"16" Combo2.AddItem"17" Combo2.AddIt
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 实验 答案