VB编程标准例子.docx
- 文档编号:30766442
- 上传时间:2023-08-23
- 格式:DOCX
- 页数:51
- 大小:886.24KB
VB编程标准例子.docx
《VB编程标准例子.docx》由会员分享,可在线阅读,更多相关《VB编程标准例子.docx(51页珍藏版)》请在冰豆网上搜索。
VB编程标准例子
1.求累计应收款
代码:
截图:
OptionExplicit
Dimysk!
PrivateSubCommand1_Click()
Dimdj!
sl%
dj=Val(Text1.Text)
sl=Val(Text2.Text)
ysk=ysk+dj*sl
Text3.Text=ysk
Text1.Text=0
Text2.Text=0
EndSub
PrivateSubCommand2_Click()
Text1.Text=0
Text2.Text=0
Text3.Text=0
EndSub
PrivateSubCommand3_Click()
End
EndSub
2.求一个数的平方数
代码:
截图:
PrivateSubCommand1_Click()
Dimsrs!
srs=Val(Text1.Text)
pfs=Val(Text2.Text)
pfs=srs^2
Text2.Text=pfs
EndSub
PrivateSubCommand2_Click()
End
EndSub
3.打印1~100两个随机数以及和
PrivateSubForm_click()
Dima%,b%,c%
a=Int(100*Rnd+1)
b=Int(100*Rnd+1)
c=a+b
Print"两个随机数:
";a,b
Print"和",c
EndSub
4.双击输入一个二位数,打印其反过来的数。
PrivateSubForm_DblClick()
x=InputBox("请输入一个二位数")
a=Left(x,1)
b=Right(x,1)
c=b&a
Print"生成后的结果";c
EndSub
5.点击form后输入***,打印***,并让命令空间不可见同时再打印***。
改变其背景及前景颜色。
PrivateSubForm_Click()
a=InputBox("这是我的窗口"+"请不要随意使用"+"实验")
Printa
Command1.Visible=False
Printa
EndSub
PrivateSubForm_Load()
BackColor=RGB(123,123,123)
ForeColor=RGB(255,0,0)
FontSize=42
FontName="楷体"
EndSub
6.输入一个分数,判断其成绩等级。
PrivateSubForm_click()
Dimx%
x=InputBox("请输入一个分数")
Ifx>=90Then
Print"优秀"
Else
Ifx>=80Then
Print"良好"
Else
Ifx>=60Then
Print"及格"
Else
Print"不及格"
EndIf
EndIf
EndIf
EndSub
7.同上。
PrivateSubCommand1_Click()
Dimscore%,tempAsString
score=Val(Text1.Text)
temp="成绩等级为:
"
SelectCasescore
Case1To59
Label1.Caption=temp+"不及格"
Case60To79
Label1.Caption=temp+"及格"
Case80To89
Label1.Caption=temp+"良好"
Case90To100
Label1.Caption=temp+"优秀"
EndSelect
EndSub
8.点击相应按钮改变其初始字幕。
(黑体,30号,随机颜色)
PrivateSubOption1_Click()
Text1.FontName="黑体"
EndSub
PrivateSubOption2_Click()
Text1.FontSize=30
EndSub
PrivateSubOption3_Click()
Text1.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)
EndSub
9.(先把time控件的interval属性值设为1000,)
每一秒字号变大6,时间变动。
PrivateSubTimer1_Timer()
Text1.Text=Time()
Text1.Width=Form1.Width
Text1.Height=Form1.Height
IfText1.FontSize<140Then
Text1.FontSize=Text1.FontSize+6
Else
Text1.FontSize=6
EndIf
EndSub
10.计算1~10中各奇数的叠乘之和并打印出来。
PrivateSubForm_click()
Dims!
t!
n%
s=0:
t=1:
n=1
DoWhilen<10
t=t*n
IfnMod2<>0Then
s=s+t
EndIf
n=n+1
Loop
Print"t=1!
+3!
+````9!
=";t
EndSub
11.如图:
PrivateSubForm_click()
Dimi%,j%
Fori=1To5
Forj=1Toi
Print"*";
Nextj
Nexti
EndSub
对应的·············
12.从第三项开始计算前两项和。
PrivateSubForm_click()
Dimi%,f1%,f2%,f3%
f1=1
f2=1
Printf1
Printf2
Fori=3To20
f3=f1+f2
Printf3
f1=f2
f2=f3
Nexti
EndSub
13.同上:
PrivateSubForm_click()
Dima(1To20)AsInteger,i%
a
(1)=1
a
(2)=1
Fori=3To20
a(i)=a(i-1)+a(i-2)
Nexti
Fori=1To20
Printa(i)
Nexti
EndSub
14.加上求这些数的和。
PrivateSubForm_click()
Dima(1To20)AsInteger,i%,s%
a
(1)=1
a
(2)=1
Fori=3To20
a(i)=a(i-1)+a(i-2)
Nexti
Fori=1To20
Printa(i)
s=s+a(i)
Nexti
Print"s=",s
EndSub
15.输入8个数,找出最大的数
,以及下标
PrivateSubCommand1_Click()
Dima(1To8)AsInteger,i%,max%,imax%
Fori=1To8
a(i)=InputBox("请输入第"&i&"个数")
Nexti
max=a
(1)
Fori=1To8
Ifa(i)>maxThen
max=a(i)
imax=i
EndIf
Nexti
Print"最大的数是"&max&",下标为"&imax
EndSub
16.组成5×5的整十矩阵。
PrivateSubCommand1_Click()
Dima(4,4)AsInteger
Fori=0To4
Forj=0To4
a(i,j)=10
Printa(i,j);
Nextj
Nexti
EndSub
17.如图。
(先创建控件数组使得index为0)
PrivateSubForm_click()
Dimi%
Fori=1To5
LoadText1(i)
Text1(i).Visible=True
Text1(i).Left=Text1(i).Left+Text1(0).Width*i
Text1(i).Top=Text1(0).Top+Text1(0).Top*i
Next
EndSub
18.如图。
(先创建控件数组使得index为0)
PrivateSubForm_click()
Dimi%
Fori=1To9
LoadCommand1(i)
Command1(i).Visible=True
Command1(i).Left=Command1(i).Left+Command1(i).Width*i
Command1(i).Caption=i
Next
EndSub
或者PrivateSubForm_click()
Fori=1To9
LoadCommand1(i)
Command1(i).Visible=True
Command1(i).Left=Command1(0).Left+Command1(0).Width*i
Command1(i).Caption=i
Next
EndSub
19.如图
PrivateSubForm_Load()
DimfAsSingle,cAsSingle
f=Val(InputBox("输入华氏温度"))
c=(f-32)*5/9
Label1.Caption="输入的华氏温度为:
"&Format(f,"00.00")
Label2.Caption="转换成摄氏温度为:
"&Format(c,"00.00")
EndSub
20.点击label控件后如图。
PrivateSubLabel1_Click()
Caption="练习"
Command1.Caption="确定"
Label1.FontBold=True
Label1.AutoSize=True
Label1.Caption="VisualBasic程序设计教程"
EndSub
21.点击按钮屏幕大小变化。
PrivateSubCommand1_Click()'"最大化"按钮
Form1.WindowState=2'最大化
EndSub
PrivateSubCommand2_Click()'"还原"按钮
Form1.WindowState=0'还原
EndSub
PrivateSubCommand3_Click()'"最小化"按钮
Form1.WindowState=1'最小化
EndSub
22.只保留第一个文本框中的前后两个字符。
PrivateSubcommand1_click()
DimxAsString
x=Text1.Text
Text2.Text=Left(x,1)+Right(x,1)
EndSub
23.输入一个三位数,打印其原数和倒序数。
PrivateSubForm_Load()
DimxAsInteger,yAsInteger
DimaAsInteger,bAsInteger,cAsInteger
x=Val(InputBox("请输入一个三位数"))
a=Int(x/100)'求百位数
b=Int(x/10)-a*10'求十位数
c=xMod10'求个位数
Show
y=c*100+b*10+a'生成倒序数
Printx;"倒序数为:
";y'显示倒序数
EndSub
24.点击按钮后,如图。
未点击前不显示控件。
PrivateSubCmd1_Click()
Lab1.Visible=True
Lab1.Caption="您已下达显示命令"
EndSub
PrivateSubForm_Click()
Cmd1.Visible=True
EndSub
25.在键盘上随意打入,打印其Ascii码。
双击form取消打印。
PrivateSubForm_KeyPress(KeyAsciiAsInteger)
Show
Print"输入字符:
";Chr(KeyAscii),"ASCII码为;";KeyAscii
EndSub
PrivateSubForm_DblClick()
Cls
EndSub
26.判断打入的数字奇偶性。
PrivateSubForm_Load()
DimxAsLong,sAsString
x=InputBox("输入一个整数(1~35000)")
s="奇数"
IfxMod2=0Thens="偶数"
MsgBoxs
EndSub
27.输入四个数,选出最大数。
PrivateSubCommand1_Click()
DimaAsSingle,bAsSingle
DimcAsSingle,dAsSingle
DimmAsSingle,nAsSingle,xAsSingle
Show
a=Val(Text1.Text)
b=Val(Text2.Text)
c=Val(Text3.Text)
d=Val(Text4.Text)
Ifa>bThen'求a、b中的较大数
m=a
Else
m=b
EndIf
Ifc>dThen'求c、d中的较大数
n=c
Else
n=d
EndIf
Ifm>nThen'求m、n中的较大数
x=m
Else
x=n
EndIf
Text5.Text=x
EndSub
28.点击按钮改变颜色。
PrivateSubCommand1_Click()
r=0:
g=0:
b=0
IfCheck1.Value=1Then
r=255
EndIf
IfCheck2.Value=1Then
g=255
EndIf
IfCheck3.Value=1Then
b=255
EndIf
Label1.BackColor=RGB(r,g,b)
EndSub
PrivateSubCommand2_Click()
End
EndSub
29.从0开始,每秒显示相应数字。
PrivateSubForm_Load()
LabClk.Caption="0"
LabClk.Alignment=1
LabClk.BorderStyle=1
LabClk.FontSize=22
LabClk.FontName="黑体"
TimClk.Interval=1000
EndSub
PrivateSubTimClk_Timer()
LabClk.Caption=Val(LabClk.Caption)+1
EndSub
30.复制所选文字。
PrivateSubCommand1_Click()'“复制”按钮
Command1.Enabled=True
Command2.Enabled=True
EndSub
PrivateSubCommand2_Click()'“粘贴”按钮
Text2.Text=Text1.SelText
Command1.Enabled=False
Command2.Enabled=False
EndSub
PrivateSubForm_Load()
Command1.Enabled=False
Command2.Enabled=False
EndSub
PrivateSubText1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfText1.SelLength>0Then
Command1.Enabled=True
EndIf
EndSub
31.求1~100中奇偶和。
PrivateSubForm_Load()
DimkAsInteger,sAsInteger,tAsInteger
Fork=1To100
IfkMod2=0Then
s=s+k
Else
t=t+k
EndIf
Nextk
Show
Print"奇数和:
";t
Print"偶数和:
";s
EndSub
32.求1~100内的偶数叠加和。
PrivateSubForm_Load()
Show
k=2
s=0
DoWhilek<101
s=s+k*(k-1)
k=k+2
Loop
Prints
EndSub
33.求某个四位数,且其一二、三四位分别相等的数。
PrivateSubForm_Load()
Show
Fork=1000To9999
IfkMod78=0Then
a=Int(k/1000)
b=Int(k/100)-10*a
c=Int(k/10)-100*a-10*b
d=kMod10
Ifa=bAndc=dThen
Printk
EndIf
EndIf
Nextk
EndSub
34.如图。
PrivateSubCommand1_click()'"显示"按钮单击事件
FontSize=12
Cls
Fori=0ToList1.ListCount-1'逐项判断
IfList1.Selected(i)Then'真时为选定
PrintList1.List(i)
EndIf
Nexti
EndSub
35.随机生成10个数,并打印出最小数,及其位置。
PrivateSubCommand1_Click()
Dima(10)AsInteger,minAsInteger,posAsInteger
Randomize
Fori=1To10
a(i)=Int(Rnd*90+10)
Printa(i);
Nexti
min=a
(1)
pos=1
Fork=2To10
Ifa(k) min=a(k) pos=k EndIf Nextk Print"最小数: ";min,"位置: ";pos EndSub 36.随机生成8*8的100以内的矩阵,如图。 OptionBase1 PrivateSubForm_Load() Dima(8,8)AsInteger,nAsInteger DimsAsLong,iAsInteger,jAsInteger Show Randomize n=8 Fori=1Ton Forj=1Ton x=Int(90*Rnd+10)'产生一个随机数 a(i,j)=x Nextj Nexti s=0 Fori=1Ton Forj=1Ton s=s+a(i,j) Nextj Nexti Print"所有元素之和;";s Print Fori=1Ton s=0 Forj=1Ton s=s+a(i,j) Nextj Print"第";i;"行元素之和;";s Nexti Print s=0 Fori=1Ton s=s+a(i,i) Nexti Print"主对角线元素之和;";s Print s=0 Fori=1Ton Forj=1Ton Ifi=1Ori=nOrj=1Orj=nThen s=s+a(i,j) EndIf Nextj Nexti Print"所有靠边元素之和;";s EndSub 37.随机生成三位数组成的8*8矩阵,并打印出最大值以及所在行列。 OptionBase1 PrivateSubForm_Load() Dima(8,8)AsInteger,nAsInteger DimmaxAsInteger,rAsInteger,cAsInteger Show Randomize n=8 Fori=1Ton Forj=1Ton x=Int(900*Rnd+100)'产生一个随机数 a(i,j)=x Printx; Nextj Print Nexti max=0: r=1: c=1 Print Fori=1Ton Forj=1Ton Ifa(i,j)>maxThen'判断有无更大数 max=a(i,j): r=i: c=j EndIf Nextj,i Print"最大
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 编程 标准 例子