程序题总括.docx

程序题总括.docx

《程序题总括.docx》由会员分享，可在线阅读，更多相关《程序题总括.docx（54页珍藏版）》请在冰豆网上搜索。

程序题总括

1、

（1）

PrivateSubCommand1_Click（）

Text3.Text=2*（Val（Text1.Text）+Val（Text2.Text））

Text4.Text=Val（Text1.Text）*Val（Text2.Text）

EndSub

（2）

PrivateSubCommand1_Click（）

Text3.Text=Str（2*（Val（Text1.Text）+Val（Text2.Text）））

Text4.Text=Str（Val（Text1.Text）*Val（Text2.Text））

EndSub

（3）

PrivateSubCommand1_Click（）

DimcAsDouble,kAsDouble,zAsDouble,mAsDouble

c=Val（Text1.Text）

k=Val（Text2.Text）

z=2*（c+k）

m=c*k

Text3.Text=Str（z）

Text4.Text=Str（m）

EndSub

2、

（1）

PrivateSubCommand1_Click（）

Text2.Text=2*3.1415926*Val（Text1.Text）

Text3.Text=3.1415926*Val（Text1.Text）^2

EndSub

（2）

PrivateSubCommand1_Click（）

Text2.Text=Str（2*3.1415926*Val（Text1.Text））

Text3.Text=Str（3.1415926*Val（Text1.Text）^2）

EndSub

（3）

PrivateSubCommand1_Click（）

r=Val（Text1.Text）

p=2*3.1415926*r

s=3.1415926*r^2

Text2=p

Text3=s

EndSub

3、

（1）

PrivateSubCommand1_Click（）

Text3.Text=Val（Text1.Text）/Val（Text2.Text）

EndSub

（2）

PrivateSubCommand1_Click（）

Text3.Text=Str（Val（Text1.Text）/Val（Text2.Text））

EndSub

（3）

PrivateSubCommand1_Click（）

DimrmbAsDouble,blAsDouble,myAsDouble

rmb=Val（Text1.Text）

bl=Val（Text2.Text）

my=rmb/bl

Text3.Text=Str（my）

EndSub

1、在上方文本框Text1中输入任意2位数，单击“处理”按钮Command1，将这个两位数逆序输出到下方文本框Text2中。

PrivateSubCommand1_Click（）

ys=Val（Text1.Text）

ns=（ysMod10）*10+（ys\10）

Text2.Text=ns

EndSub

PrivateSubCommand1_Click（）

ys=Text1.Text

ns=Right（ys,1）&Left（ys,1）

Text2.Text=ns

EndSub

PrivateSubCommand1_Click（）

ys=Text1.Text

ns=Mid（ys,2,1）&Mid（ys,1,1）

Text2.Text=ns

EndSub

2、在上方文本框Text1中写入普通手机号码，点击转换按钮Command1，将普通手机号码转为加横线的手机号码写入Text2文本框中。

相反，在下方文本框Text2中写入加横线的手机号码，点击反转按钮Command2，将加横线的手机号码转为普通手机号码写入Text1文本框中。

PrivateSubCommand1_Click（）

yhm=Text1.Text

xhm=Mid（yhm,1,3）&"-"&Mid（yhm,4,4）&"-"&Mid（yhm,8,4）

Text2.Text=xhm

EndSub

PrivateSubCommand2_Click（）

yhm=Text2.Text

xhm=Mid（yhm,1,3）&Mid（yhm,5,4）&Right（yhm,4）

Text1.Text=xhm

EndSub

3、在文本框Text1中写入一字符串，点击处理按钮Command1，则将Text1中所有小写字母转换为大写字母，结果写入文本框Text2中，并计算Text1中字符个数写入文本框Text3中。

PrivateSubCommand1_Click（）

yzf=Text1.Text

xzf=UCase（yzf）

zfgs=Len（yzf）

Text2.Text=xzf

Text3.Text=zfgs

EndSub

4、在txtChinese、txtMath文本框中分别输入“语文”和“数学”的成绩，单击“计算”按钮cmdComp，程序计算出总分和平均分，分别放入txtSum、txtAvg文本框中；单击“清空”按钮cmdClear，将4个文本框清空。

PrivateSubcmdClear_Click（）

txtChinese.Text=""

txtMath.Text=""

txtSum.Text=""

txtAvg.Text=""

EndSub

PrivateSubcmdComp_Click（）

zf=Val（txtChinese.Text）+Val（txtMath.Text）

pjf=zf/2

txtSum.Text=zf

txtAvg.Text=pjf

EndSub

1、在文本框txtName中输入姓名，点击按钮“你输入的姓名是”（Command1），在旁边的标签lblName中显示txtName输入的姓名

PrivateSubCommand1_Click（）

lblName.Caption=txtName.Text

EndSub

2、单击窗体时，选中文本框Text1中的第2～第4个字符，复制到文本框Text2中

PrivateSubForm_Click（）

Text1.SelStart=1

Text1.SelLength=3

Text2.Text=Text1.SelText

EndSub

3、点击“密码字符”按钮Command1，使Text1中的内容用*显示点击“原始文本”按钮Command2，使Text1中的内容恢复正常显示点击“锁定文本框”按钮Command3，将文本框Text1锁定点击“解锁文本框”按钮Command4，将文本框Text1取消锁定点击“文本框无效”按钮Command5，使文本框Text1无效点击“文本框有效”按钮Command6，将文本框Text1有效此外，在文本框Text1中输入删除修改内容时，文本框Text2内容始终与Text1保持一致

PrivateSubCommand1_Click（）

Text1.PasswordChar="*"

EndSub

PrivateSubCommand2_Click（）

Text1.PasswordChar=""

EndSub

PrivateSubCommand3_Click（）

Text1.Locked=True

EndSub

PrivateSubCommand4_Click（）

Text1.Locked=False

EndSub

PrivateSubCommand5_Click（）

Text1.Enabled=False

EndSub

4、程序运行时，在Text1中填入文字，在Text2中填入正整数字号点击“增大字号”按钮Command1，使Text1的字号增大Text2中指定的数值点击“减小字号”按钮Command2，使Text1的字号减小Text2中指定的数值点击“设置字号”按钮Command3，使Text1的字号设置为Text2中指定的数值

PrivateSubCommand1_Click（）

Text1.FontSize=Text1.FontSize+Val（Text2.Text）

EndSub

PrivateSubCommand2_Click（）

Text1.FontSize=Text1.FontSize-Val（Text2.Text）

EndSub

PrivateSubCommand3_Click（）

Text1.FontSize=Val（Text2.Text）

EndSub

5、用户单击窗体时，文本框Text1的值在其原值基础上递增加1。

程序运行起始时次数为0（文本框初始值为0）。

PrivateSubForm_Click（）

Text1.Text=Val（Text1.Text）+1

EndSub

PrivateSubForm_Load（）

Text1.Text=0

EndSub

6、点击“复制文本”按钮Command1，将Text1中的内容复制到Text2中点击“复制选中文本”按钮Command2，将Text1中选中的内容复制到Text2中点击“隐藏文本框”按钮Command3，将文本框Text1隐藏点击“显示文本框”按钮Command4，将文本框Text1显示（取消隐藏）

PrivateSubCommand1_Click（）

Text2.Text=Text1.Text

EndSub

PrivateSubCommand2_Click（）

Text2.Text=Text1.SelText

EndSub

PrivateSubCommand3_Click（）

Text1.Visible=False

EndSub

PrivateSubCommand4_Click（）

Text1.Visible=True

EndSub

7、“向上移动”、“向下移动”、“向左移动”、“向右移动”四个按钮的控件名分别为Command1～Command4。

单击按钮，窗体向对应的方向移动100个单位

PrivateSubCommand1_Click（）

Form1.Top=Form1.Top-100

EndSub

PrivateSubCommand2_Click（）

Form1.Top=Form1.Top+100

EndSub

PrivateSubCommand3_Click（）

Form1.Left=Form1.Left-100

EndSub

PrivateSubCommand4_Click（）

Form1.Left=Form1.Left+100

EndSub

8、单击“产生”命令按钮Command1，在上面三个文本框Text1～Text3中分别输出随机产生的3个正整数，其中1个1位数（0～9），1个2位数，1个3位数。

单击“计算”命令按钮Command2计算它们的平均值，四舍五入保留2位小数，结果在标签LabelAvg中显示。

注意：

本题需使用A~B区间随机整数公式。

随机函数请使用Rnd（），不要省略括号。

PrivateSubCommand1_Click（）

Dimw1%,w2%,w3%

Randomize

w1=Int（（9-0+1）*Rnd（）+0）

w2=Int（（99-10+1）*Rnd（）+10）

w3=Int（（999-100+1）*Rnd（）+100）

Text1.Text=w1

Text2.Text=w2

Text3.Text=w3

EndSub

PrivateSubCommand2_Click（）

Dimw1%,w2%,w3%,pjz#

w1=Val（Text1.Text）

w2=Val（Text2.Text）

w3=Val（Text3.Text）

pjz=（w1+w2+w3）/3

pjz=Round（pjz,2）

LabelAvg.Caption=pjz

EndSub

9、在文本框Text1中写入一字符串，点击处理按钮Command1，则将Text1中所有小写字母转换为大写字母，结果写入文本框Text2中，并计算Text1中字符个数写入文本框Text3中。

PrivateSubCommand1_Click（）

Text2.Text=UCase（Text1.Text）

Text3.Text=Len（Text1.Text）

EndSub

10、在上方文本框Text1中写入普通手机号码，点击转换按钮Command1，将普通手机号码转为加横线的手机号码写入Text2文本框中。

相反，在下方文本框Text2中写入加横线的手机号码，点击反转按钮Command2，将加横线的手机号码转为普通手机号码写入Text1文本框中。

PrivateSubCommand1_Click（）

Text2.Text=Left（Text1.Text,3）&"-"&Mid（Text1.Text,4,4）&"-"&Right（Text1.Text,4）

EndSub

PrivateSubCommand2_Click（）

Text1.Text=Left（Text2.Text,3）&Mid（Text2.Text,5,4）&Right（Text2.Text,4）

EndSub

1、单击“产生”命令按钮Command1，在上面三个文本框Text1～Text3中分别输出随机产生的3个正整数，其中1个1位数（0～9），1个2位数，1个3位数。

单击“计算”命令按钮Command2计算它们的平均值，四舍五入保留2位小数，结果在标签LabelAvg中显示。

注意：

本题需使用A~B区间随机整数公式。

随机函数请使用Rnd（），不要省略括号。

PrivateSubCommand1_Click（）

Dimw1&,w2&,w3&

Randomize

w1=Int（（9-0+1）*Rnd（）+0）

w2=Int（（99-10+1）*Rnd（）+10）

w3=Int（（999-100+1）*Rnd（）+100）

Text1.Text=w1

Text2.Text=w2

Text3.Text=w3

EndSub

PrivateSubCommand2_Click（）

Dimw1&,w2&,w3&,pjz#

w1=Val（Text1.Text）

w2=Val（Text2.Text）

w3=Val（Text3.Text）

pjz=Round（（w1+w2+w3）/3,2）

LabelAvg.Caption=pjz

EndSub

2、在txtChinese、txtMath文本框中分别输入“语文”和“数学”的成绩，单击“计算”按钮cmdComp，程序计算出总分和平均分，分别放入txtSum、txtAvg文本框中；单击“清空”按钮cmdClear，将4个文本框清空。

PrivateSubcmdClear_Click（）

txtChinese.Text=""

txtMath.Text=""

txtSum.Text=""

txtAvg.Text=""

EndSub

PrivateSubcmdComp_Click（）

DimywAsDouble,sxAsDouble

DimzfAsDouble,pjfAsDouble

yw=Val（txtChinese.Text）

sx=Val（txtMath.Text）

zf=yw+sx

pjf=zf/2

txtSum.Text=zf

txtAvg.Text=pjf

EndSub

3、已知火车的出发时间和达到时间，编写程序计算整个旅途所用的时间。

出发时间对应的文本框为Text1和Text2，到达时间对应的文本框为Text3和Text4，旅途时间对应的文本框为Text5和Text6，计算按钮为Command1。

（时间形式：

小时:

分钟，24小时制）

PrivateSubCommand1_Click（）

Dimcfs%,cff%,dds%,ddf%,ltsj%

Dimlts%,ltf%

cfs=Val（Text1.Text）

cff=Val（Text2.Text）

dds=Val（Text3.Text）

ddf=Val（Text4.Text）

ltsj=（dds*60+ddf）-（cfs*60+cff）

lts=ltsj\60

ltf=ltsjMod60

Text5.Text=lts

Text6.Text=ltf

EndSub

4、在上方文本框Text1中输入任意3位数，单击“处理”按钮Command1，将这个3位数逆序输出到下方文本框Text2中。

PrivateSubCommand1_Click（）

Dimys%,b%,s%,g%,ns%

ys=Val（Text1.Text）

b=Int（ys/100）

s=Int（（ys-b*100）/10）

g=ys-b*100-s*10

ns=g*100+s*10+b

Text2.Text=ns

EndSub

5、已知火车的出发时间和旅途所用的时间，编写程序计算火车达到的时间。

出发时间对应的文本框为Text1和Text2，旅途所用的时间对应的文本框为Text3和Text4，到达时间对应的文本框为Text5和Text6，计算按钮为Command1。

（时间形式：

小时:

分钟，24小时制）

PrivateSubCommand1_Click（）

Dimcfs%,cff%,lts%,ltf%,ddsj%

Dimdds%,ddf%

cfs=Val（Text1.Text）

cff=Val（Text2.Text）

lts=Val（Text3.Text）

ltf=Val（Text4.Text）

ddsj=（cfs*60+cff）+（lts*60+ltf）

dds=ddsj\60

ddf=ddsjMod60

Text5.Text=dds

Text6.Text=ddf

EndSub

1、用户单击交换按钮Command1，交换2个文本框Text1和Text2的内容

PrivateSubCommand1_Click（）

Dimtemp$

temp=Text1.Text

Text1.Text=Text2.Text

Text2.Text=temp

EndSub

2、点击按钮Command1，程序分别输入矩形的长和宽，输出矩形的周长和面积，结果保留2位小数。

使用InputBox和MsgBox完成输入输出。

（第一次输出矩形周长，第二次输出矩形面积）

PrivateSubCommand1_Click（）

Dimc#,k#,p#,s#

c=Val（InputBox（"c=?

"））

k=Val（InputBox（"k=?

"））

p=Round（2*（c+k））

s=Round（c*k,2）

MsgBoxstr（p）

MsgBoxstr（s）

EndSub

3、点击按钮Command1，程序输入圆的半径，输出圆的周长和面积，结果保留2位小数。

使用InputBox和MsgBox完成输入输出。

（PI为3.14，第一次输出圆周长，第二次输出圆面积）

PrivateSubCommand1_Click（）

Dimr#,s#,p#

r=Val（InputBox（"r=?

"））

p=Round（2*3.14*r,2）

s=Round（3.14*r*r,2）

MsgBoxstr（p）

MsgBoxstr（s）

EndSub

4、在文本框Text1中输入1个小写英文字母，点击加密按钮Command1，则将该英文字母变为字母表中其后面的一个字母放入文本框Text2中，如a改为b，m改为n，z改为a，以此类推。

点击解密按钮Command2，将文本框Text2中字母解密后放入Text1中。

PrivateSubCommand1_Click（）

DimywAsString*1,mwAsString*1

yw=Text1.Text

mw=Chr（97+（Asc（yw）-97+1）Mod26）‘或Chr（Asc（“a”）+（Asc（yw）-Asc（“a”）+1）Mod26）

Text2.Text=mw

EndSub

PrivateSubCommand2_Click（）

DimywAsString*1,mwAsString*1

mw=Text2.Text

yw=Chr（122+（Asc（mw）-122-1）Mod26）‘或Chr（Asc（“z”）+（Asc（mw）-Asc（“z”）-1）Mod26）

Text1.Text=yw

EndSub

5、在文本框Text1中输入1个小写英文字母，点击加密按钮Command1，则将该英文字母变为字母表中其后面的第N个字母放入文本框Text2中，N表示加密方法，由Text3中的值指定。

如N为2，则a加密后变为c，z加密后变为b，以此类推。

点击解密按钮Command2，将文本框Text2中字母解密后放入Text1中。

PrivateSubCommand1_Click（）

DimywAsString*1,mwAsString,faAsInteger

yw=Text1.Text

fa=Val（Text3.Text）

mw=Chr（97+（（Asc（yw）-97+fa）Mod26））‘或Chr（Asc（“a”）+（Asc（yw）-Asc（“a”）+fa）Mod26）

Text2.Text=mw

EndSub