vb上机部分习题Word格式.docx

vb上机部分习题Word格式.docx

《vb上机部分习题Word格式.docx》由会员分享，可在线阅读，更多相关《vb上机部分习题Word格式.docx（24页珍藏版）》请在冰豆网上搜索。

Text1.setfocus

m=m+1

Ifm>

2Then

End

EndIf

3、编写一个密码认证的程序，要求在图中，密码如果5秒内输入不对则程序退出。

DimaAsDate

15"

a="

00:

00"

PrivateSubTimer1_Timer（）

StaticbAsInteger

a=a+"

01"

Label4.Caption=a

Ifb=5ThenEnd

b=b+1

4.利用文件系统控件、组合框，制作一个文件浏览器，组合框显示文件的类型（所有文件（*.*），应用程序（*.exe），文本文件（*.txt）等），如选择应用程序（*.exe），则只显示*.exe文件，当双击某个文件时，则通过Shell函数调用执行，否则用MsgBox显示提示信息。

请把本窗体的Caption属性改为本人的学号和姓名显示。

效果如图所示。

PrivateSubCombo1_Click（）

SelectCaseCombo1.Text

Case"

所有文件（*.*）"

File1.Pattern="

*.*"

应用程序（*.exe）"

*.exe"

文本文件（*.txt）"

*.txt"

位图文件（*.bmp）"

*.bmp"

矢量图文件（*.jpg）"

*.jpg"

EndSelect

PrivateSubDir1_Change（）

File1.Path=Dir1.Path

PrivateSubDrive1_Change（）

Dir1.Path=Drive1.Drive

PrivateSubFile1_DblClick（）

DimiAsVariant

IfTrim（Right（File1.FileName,3））="

exe"

i=Shell（File1.Path&

\"

File1.FileName,1）

Else

MsgBox"

该文件非应用程序"

0+vbExclamation,"

错误提示"

Combo1.AddItem"

Combo1.ListIndex=2

5.编程完成以下功能，在窗体上有2个命令按钮，创建按钮将在计算机的D盘上创建一个自己学号和姓名的文本文件，内容有3行，第1行使用Print语句录入自己的学号和姓名，第二行录入一个空行，第3行使用Write语句录入自己的学号和姓名。

点击显示按钮将在Label标签中显示刚才创建的内容。

PrivateSubcommand1_Click（）

DimxmAsString

DimxhAsString

Open"

d:

\0660415刘辉璋.txt"

ForOutputAs#1

xm="

刘辉璋"

xh=0660415

Print#1,"

Print输出:

;

xm,xh

Print#1,

Write输出:

xm,xh

Close#1

PrivateSubCommand2_Click（）

Label1.Caption="

Open"

ForInputAs#1

DoWhileNotEOF

（1）

dimdataasVariant

LineInput#1,Data

Label1.Caption=Label1.Caption+Data+vbCrLf

Loop

6、使用Image控件数组编写程序，在程序中用到5幅图片，本机的图片请在C:

\WINDOWS\WEB\Wallpaper目录中查找。

图片以每500毫秒显示一幅进行循环显示。

Fori=1To4

Image1（i）.Left=Image1（0）.Left

Image1（i）.Top=Image1（0）.Top

Image1（i）.Height=Image1（0）.Height

Image1（i）.Width=Image1（0）.Width

StaticiAsInteger

DimjAsInteger

Forj=0To4

Ifj=iThen

Image1（j）.Visible=True

Image1（j）.Visible=False

Nextj

i=i+1

Ifi=4Theni=0

7、请使用line控件做一个小棍来回走动的程序，请把本窗体的Caption属性改为本人的学号和姓名显示。

PrivateSubForm_Click（）

'

line

X1300

X2900

或x1与x2交换

Form

Height4080

width11130

PrivateSubTimer1_Timer（）'

负责向右走

StaticaAsInteger'

静态变量a负责判断小棍的前进

Line1.BorderColor=RGB（Rnd*255,Rnd*255,Rnd*255）'

小棍饿颜色随机

Ifa=0AndLine1.X1<

Form1.ScaleWidth-2*600Then'

确定小棍向右走的最大的距离

Line1.X1=Line1.X1+2*（Line1.X2-Line1.X1）'

跨度为2倍的横坐标差

a=1

ExitSub

Ifa=1AndLine1.X2<

Form1.ScaleWidth-2*600Then

Line1.X2=Line1.X2+2*（Line1.X1-Line1.X2）

a=0

IfLine1.X2>

=Form1.ScaleWidth-2*600OrLine1.X1>

=Form1.ScaleWidth-2*600Then'

设置第二个时钟控件的触发点

Timer1.Enabled=False

Timer2.Enabled=True

PrivateSubTimer2_Timer（）'

负责向左走

StaticaAsInteger

Line1.BorderColor=RGB（Rnd*255,Rnd*255,Rnd*255）

IfLine1.X2<

=2*600OrLine1.X1<

=2*600Then'

设置第一个时钟控件的触发点

Timer2.Enabled=False

Timer1.Enabled=True

Ifa=0Then

Line1.X2=Line1.X2-2*（Line1.X2-Line1.X1）

Ifa=1Then

Line1.X1=Line1.X1-2*（Line1.X1-Line1.X2）

8、请使用List控件编写一个选项来回选择的程序，如果在List1选中A并使用命令按钮“>

”，则把A移至List2中；

如果在List2选中A并使用命令按钮“<

”，则把A移回至List1中；

如果按“》”按钮，则把List1中所有信息移至List2中；

如果按“Clear”按钮，则把List2中所有信息清除。

效果如图。

Dimi,j,sAsInteger

Dimm,n,rAsInteger

s=0

Fori=0ToList1.ListCount-1

IfList1.Selected（i）=TrueThen

Forj=0ToList2.ListCount-1

'

IfList2.List（j）=List1.List（i）Then

s=1

ExitFor

Nextj

Ifs=0Then

List2.AddItemList1.List（i）

r=0

Form=0ToList1.ListCount-1

n=m-r

IfList1.Selected（n）=TrueThen

List2.AddItemList1.List（n）

List1.RemoveItem（n）

r=r+1

Nextm

List2.Clear

List2.AddItemList1.List（i）

sorted定为true

PrivateSubCommand3_Click（）

Form=0ToList2.ListCount-1

IfList2.Selected（m）=TrueThen

List1.AddItemList2.List（m）

List2.RemoveItem（m）

PrivateSubCommand4_Click（）

9、创建一个带有菜单的程序，要求文件菜单中要有“打开”、“保存”、“退出”等信息，而且“保存”和“退出”之间有“——”隔开，“打开”的内容有“所有文件”、“文本Txt”和“Doc”文件，鼠标右键可以打开菜单“颜色”和“字体”，选中的颜色将改变Text文本框的背景颜色，选中的字体为显示的类型。

文本框中内容为本人的学号和姓名。

PrivateSubyanse_Click（）

CallCommand3_Click

CommonDialog1.Filter="

DOC（*.DOC）|*.DOC|TextFiles（*.TXT）|*.txt|AllFiles（*.*）|*.*"

CommonDialog1.ShowOpen

RichTextBox1.FileName=CommonDialog1.FileName

CommonDialog1.ShowSave

RichTextBox1.SaveFileCommonDialog1.FileName,1

CommonDialog1.ShowColor

RichTextBox1.BackColor=CommonDialog1.Color

CommonDialog1.Flags=cdlCFScreenFontsOrcdlCFEffects

CommonDialog1.ShowFont

RichTextBox1.Font.Size=CommonDialog1.FontSize

RichTextBox1.Font.Bold=CommonDialog1.FontBold

RichTextBox1.Font.Name=CommonDialog1.FontName

PrivateSubexit_Click（）

PrivateSubziti_Click（）

CallCommand4_Click

PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）

IfButton=2Then

PopupMenuedit

PrivateSubopen_Click（）

CallCommand1_Click

PrivateSubsave_Click（）

CallCommand2_Click

10、打印99乘法表，请把本窗体的Caption属性改为本人的学号和姓名显示。

结果如图：

Cls

DimiAsInteger,jAsInteger

Print

Fori=1To9

Forj=1Toi

Printi;

*"

j;

="

i*j,

Print

Nexti

11、使用冒泡排序法编程，产生10个随机整数，使用冒泡排序法对其进行编程，而且鼠标每点击一次就产生一组随机数并对其编程，而且程序每运行一次结果都不同。

OptionBase1'

数组下标由1开始

Dima（10）,i,j,t

冒泡排序

Fori=1To10

a（i）=Int（Rnd*100）

Printa（i）,

IfiMod5=0ThenPrint

Fori=1To9

Forj=i+1To10

Ifa（i）>

a（j）Then

t=a（i）

a（i）=a（j）

a（j）=t

12、分别求出5行5列二维数组的两条对角线的和。

请把结果编程存储在自己学号和姓名的txt文本文件中，请把本窗体的Caption属性改为本人的学号和姓名显示。

OptionBase1

Dima（1To5,1To5）AsInteger

DimsAsSingle,mAsSingle

s=0:

m=0

Fori=1To5

Forj=1To5

Randomize

a（i,j）=Rnd*100

Ifi=jThens=s+a（i,j）

Ifi=6-jThenm=m+a（i,j）

Printa（i,j）;

IfjMod5=0ThenPrint

Print"

结果为"

s

m

\0660415刘辉璋.txt"

Print#1,s

Close#1

13、请录入一组字符串，统计该字符串的大小写字母个数、数字个数和其他字符个数。

请把编程存储在自己学号和姓名的txt文本文件中，请把本窗体的Caption属性改为本人的学号和姓名显示。

DimnAsInteger,sAsInteger,dAsInteger,qAsInteger,xAsInteger

Dimi,b

s=0:

d=0:

q=0:

x=0

n=Len（Text1.Text）

Fori=0Ton

Text1.SelStart=i

Text1.SelLength=1

b=Text1.SelText

Ifb>

="

a"

Andb<

z"

s=s+1

ElseIfb>

A"

Z"

d=d+1

0"

9"

x=x+1

q=q+1

Label1.Caption="

小写"

Label2.Caption="

大写"

d

其他"

q-1

数字键"

x

Print#1,s,d,q-1,x

14、编程求100-999内的水仙花数，请把结果编程存储在自己学号和姓名的txt文本文件中，请把本窗体的Caption属性改为本人的学号和姓名显示。

DimaAsInteger

DimbAsInteger

DimcAsInteger

Fori=100To999

a=i\100

b=（i-a*100）\10

c=iMod10

Ifi=a^3+b^3+c^3Then

Printa;

^3+"

b;

c;

^3="

i

a=Int（Mid（i,1,1））

b=Int（Mid（i,2,1））

c=Int（Mid（i,3,1））

15、编程求最大公约数和最小公倍数。

Dimm,n,mn,r,t,a

m=Val（Text1.Text）'

18

n=Val（Text2.Text）'

12

Ifn<

=0Orm<

=0Then

数据出错"

vbCritical+vbOKOnly,"

提示"

mn=m*n'

mn=216

Ifm<

nThen

t=m

m=n

n=