VB Visual Basic 复习例题

改错
1.第六行，until改为while 第十一行，1w5改为1mod5
2.第四行，p=0改为p=1 第五行，m=input（”请输入m 的值”）改为m=inputbox（”请输入m的值”）第十二行msgbox”1/1!+1/2!+…+1/m!=”+t改为msgbox”1/1!+1/2!+…+1/m!=”&t
简单应用
1.private sub command1.cickl()
from1.caption=text1.text
end sub
2. Option explicit
Private sub c1＿click()
P1.picture=loadpicture(App.Path+”Wpicl.gif”
)
end sub
p1.picture=loadpicture()
end sub
3.
Private sub v1＿change()
L1.fontsize=v1.Value
End sub
Private sub v1＿scroll()
L1.fontsize=v1.value
End sub
4.private sub from＿click()
Label1.left=label1.left+200
Label1.top=label1.top-200
End sub
5.private sub c1＿click()
L1.Additem text1.text
text1.text=””
text1.setfocus
end sub
private sub L1＿click()
L1.RemoveItem L1.Listindex
text1.setfocus
end sub
综合
1.option explicit
private sub command1＿click()
text1.text=””
text2.text=””
end sub
private sub command2＿click()
end
end sub
private sub text1. ＿keypress(keyAscll as Integer)
Dim aa as string•1
Aa=chr(keyAacil)
Select case aa
Case “A”To”Z”
aa=chr(keyAscii+32)
Case”a”To”z”
aa=chr(keyAscii-32)
case””
aa=””
case else
aa=”•”
end select
text2.text=text2.text & aa
end sub
2.Dim a(1 To 10)As Integer
Private sub command1＿click()
Randomize
Text1.text=””
For i=1 to 10
a(i)=Int(Rnd•90+10)
text1.text=text1.text+str(a(i))
If i＜10 then text1.text=text1.text+”.”
Next
End sub
Private sub command2＿click()
Dim maxValue As Integer
maxValue=0
for i=1 To 10
if maxValue ＜a(i) then maxValue=a(i) next
Msgbox”最大值”:” & str(maxValue) End sub
Private sub command3＿click()
Dim sum As Integer.avg As Integer
Sum=0
For i=1 To 10
Sum=sum+a(i)
Next
avg=sum/10
msgbox”平均值:” & str(avg)
End sub
Private sub command4＿click()
End End sub（转行，格式同上）。