vb上机部分习题.docx

vb上机部分习题.docx

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

vb上机部分习题

1、完成一个信息登记的程序，在界面1中录入个人的用户名、密码和爱好等信息，在界面2中显示登记信息。

使用Label标签在窗体的坐下角写上本人的学号和密码。

如图：

解：

PrivateSubCommand1_Click（）

Form2.Show

Form1.Hide

EndSub

PrivateSubForm_Load（）

DimiAsInteger

Label3.Caption="姓名是：

"&Form1.Text1.Text

Label4.Caption="密码是：

"&Form1.Text2.Text

Fori=0To3

IfForm1.Check1（i）.Value=1Then

Label5.Caption=Label5.Caption&""&Form1.Check1（i）.Caption

EndIf

Nexti

EndSub

2、编写一个密码认证的程序，要求在图中，密码如果3次不对则程序退出。

如图：

解form1

OptionExplicit

DimmAsInteger

PrivateSubCommand1_Click（）

IfText1.Text="0660415"Then

UnloadMe

Form2.Show

Else

Text1.txt=””

Text1.setfocus

m=m+1

Ifm>2Then

End

EndIf

EndIf

EndSub

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

如图：

解form1

OptionExplicit

DimaAsDate

PrivateSubCommand1_Click（）

IfText1.Text="15"Then

UnloadMe

Form2.Show

EndIf

EndSub

PrivateSubForm_Load（）

a="00:

00:

00"

EndSub

PrivateSubTimer1_Timer（）

StaticbAsInteger

a=a+"00:

00:

01"

Label4.Caption=a

Ifb=5ThenEnd

b=b+1

EndSub

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

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

效果如图所示。

PrivateSubCombo1_Click（）

SelectCaseCombo1.Text

Case"所有文件（*.*）"

File1.Pattern="*.*"

Case"应用程序（*.exe）"

File1.Pattern="*.exe"

Case"文本文件（*.txt）"

File1.Pattern="*.txt"

Case"位图文件（*.bmp）"

File1.Pattern="*.bmp"

Case"矢量图文件（*.jpg）"

File1.Pattern="*.jpg"

EndSelect

EndSub

PrivateSubDir1_Change（）

File1.Path=Dir1.Path

EndSub

PrivateSubDrive1_Change（）

Dir1.Path=Drive1.Drive

EndSub

PrivateSubFile1_DblClick（）

DimiAsVariant

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

i=Shell（File1.Path&"\"&File1.FileName,1）

Else

MsgBox"该文件非应用程序",0+vbExclamation,"错误提示"

EndIf

EndSub

PrivateSubForm_Load（）

Combo1.AddItem"所有文件（*.*）"

Combo1.AddItem"应用程序（*.exe）"

Combo1.AddItem"文本文件（*.txt）"

Combo1.AddItem"位图文件（*.bmp）"

Combo1.AddItem"矢量图文件（*.jpg）"

Combo1.ListIndex=2

EndSub

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,

Print#1,"Write输出:

";xm,xh

Close#1

EndSub

PrivateSubCommand2_Click（）

Label1.Caption=""

Open"d:

\0660415刘辉璋.txt"ForInputAs#1

DoWhileNotEOF

（1）

dimdataasVariant

LineInput#1,Data

Label1.Caption=Label1.Caption+Data+vbCrLf

Loop

Close#1

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

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

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

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

PrivateSubForm_Load（）

DimiAsInteger

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

Nexti

EndSub

PrivateSubTimer1_Timer（）

StaticiAsInteger

DimjAsInteger

Forj=0To4

Ifj=iThen

Image1（j）.Visible=True

Else

Image1（j）.Visible=False

EndIf

Nextj

i=i+1

Ifi=4Theni=0

EndSub

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

PrivateSubForm_Click（）

End

EndSub

'line

'X1300

'X2900

'或x1与x2交换

'Form

'Height4080

'width11130

PrivateSubTimer1_Timer（）'负责向右走

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

Line1.BorderColor=RGB（Rnd*255,Rnd*255,Rnd*255）'小棍饿颜色随机

Ifa=0AndLine1.X1

Line1.X1=Line1.X1+2*（Line1.X2-Line1.X1）'跨度为2倍的横坐标差

a=1

ExitSub

EndIf

Ifa=1AndLine1.X2

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

a=0

ExitSub

EndIf

IfLine1.X2>=Form1.ScaleWidth-2*600OrLine1.X1>=Form1.ScaleWidth-2*600Then'设置第二个时钟控件的触发点

Timer1.Enabled=False

Timer2.Enabled=True

EndIf

EndSub

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

EndIf

Ifa=0Then

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

a=1

ExitSub

EndIf

Ifa=1Then

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

a=0

ExitSub

EndIf

EndSub

8、请使用List控件编写一个选项来回选择的程序，如果在List1选中A并使用命令按钮“>”，则把A移至List2中；如果在List2选中A并使用命令按钮“<”，则把A移回至List1中；如果按“》”按钮，则把List1中所有信息移至List2中；如果按“Clear”按钮，则把List2中所有信息清除。

效果如图。

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

OptionExplicit

Dimi,j,sAsInteger

Dimm,n,rAsInteger

PrivateSubCommand1_Click（）

's=0

'Fori=0ToList1.ListCount-1

'IfList1.Selected（i）=TrueThen

'Forj=0ToList2.ListCount-1

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

's=1

'ExitFor

'EndIf

'Nextj

'Ifs=0Then

'List2.AddItemList1.List（i）

'EndIf

'EndIf

'Nexti

r=0

Form=0ToList1.ListCount-1

n=m-r

IfList1.Selected（n）=TrueThen

List2.AddItemList1.List（n）

List1.RemoveItem（n）

r=r+1

EndIf

Nextm

EndSub

PrivateSubCommand2_Click（）

List2.Clear

Fori=0ToList1.ListCount-1

List2.AddItemList1.List（i）

Nexti

EndSub

'sorted定为true

PrivateSubCommand3_Click（）

Form=0ToList2.ListCount-1

IfList2.Selected（m）=TrueThen

List1.AddItemList2.List（m）

List2.RemoveItem（m）

ExitFor

EndIf

Nextm

EndSub

PrivateSubCommand4_Click（）

List2.Clear

EndSub

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

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

OptionExplicit

OptionExplicit

PrivateSubyanse_Click（）

CallCommand3_Click

EndSub

PrivateSubCommand1_Click（）

CommonDialog1.Filter="DOC（*.DOC）|*.DOC|TextFiles（*.TXT）|*.txt|AllFiles（*.*）|*.*"

CommonDialog1.ShowOpen

RichTextBox1.FileName=CommonDialog1.FileName

EndSub

PrivateSubCommand2_Click（）

CommonDialog1.ShowSave

RichTextBox1.SaveFileCommonDialog1.FileName,1

EndSub

PrivateSubCommand3_Click（）

CommonDialog1.ShowColor

RichTextBox1.BackColor=CommonDialog1.Color

EndSub

PrivateSubCommand4_Click（）

CommonDialog1.Flags=cdlCFScreenFontsOrcdlCFEffects

CommonDialog1.ShowFont

RichTextBox1.Font.Size=CommonDialog1.FontSize

RichTextBox1.Font.Bold=CommonDialog1.FontBold

RichTextBox1.Font.Name=CommonDialog1.FontName

EndSub

PrivateSubexit_Click（）

End

EndSub

PrivateSubziti_Click（）

CallCommand4_Click

EndSub

PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）

IfButton=2Then

PopupMenuedit

EndIf

EndSub

PrivateSubopen_Click（）

CallCommand1_Click

EndSub

PrivateSubsave_Click（）

CallCommand2_Click

EndSub

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

结果如图：

PrivateSubForm_Click（）

Cls

DimiAsInteger,jAsInteger

Print

Print

Print

Fori=1To9

Forj=1Toi

Printi;"*";j;"=";i*j,

Nextj

Print

Nexti

EndSub

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

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

结果如图：

OptionExplicit

OptionBase1'数组下标由1开始

PrivateSubForm_Click（）

Dima（10）,i,j,t

Cls

Print

Print

'冒泡排序

Fori=1To10

a（i）=Int（Rnd*100）

Nexti

Fori=1To10

Printa（i）,

IfiMod5=0ThenPrint

Nexti

Print

Fori=1To9

Forj=i+1To10

Ifa（i）>a（j）Then

t=a（i）

a（i）=a（j）

a（j）=t

EndIf

Nextj

Nexti

Fori=1To10

Printa（i）,

IfiMod5=0ThenPrint

Nexti

EndSub

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

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

OptionBase1

DimiAsInteger,jAsInteger

Dima（1To5,1To5）AsInteger

DimsAsSingle,mAsSingle

PrivateSubForm_Click（）

Cls

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

Nextj

Nexti

Print

Print"结果为"&s

Print"结果为"&m

Open"d:

\0660415刘辉璋.txt"ForOutputAs#1

Print#1,s

Close#1

EndSub

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

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

OptionExplicit

DimnAsInteger,sAsInteger,dAsInteger,qAsInteger,xAsInteger

PrivateSubCommand1_Click（）

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"Then

s=s+1

ElseIfb>="A"Andb<="Z"Then

d=d+1

ElseIfb>="0"Andb<="9"Then

x=x+1

Else

q=q+1

EndIf

Nexti

Label1.Caption="小写"&s

Label2.Caption="大写"&d

Label3.Caption="其他"&q-1

Label4.Caption="数字键"&x

Open"d:

\0660415刘辉璋.txt"ForOutputAs#1

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

Close#1

EndSub

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

OptionExplicit

PrivateSubCommand1_Click（）

DimiAsInteger

DimaAsInteger

DimbAsInteger

DimcAsInteger

Cls

Print

Fori=100To999

a=i\100

b=（i-a*100）\10

c=iMod10

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

Printa;"^3+";b;"^3+";c;"^3=";i

Print

EndIf

Nexti

EndSub

PrivateSubCommand2_Click（）

DimiAsInteger

DimaAsInteger

DimbAsInteger

DimcAsInteger

Cls

Print

Fori=100To999

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

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

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

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

Printa;"^3+";b;"^3+";c;"^3=";i

Print

EndIf

Nexti

EndSub

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

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

OptionExplicit

PrivateSubCommand1_Click（）

Dimm,n,mn,r,t,a

m=Val（Text1.Text）'18

n=Val（Text2.Text）'12

Ifn<=0Orm<=0Then

MsgBox"数据出错",vbCritical+vbOKOnly,"提示"

ExitSub

EndIf

mn=m*n'mn=216

Ifm

t=m

m=n

n=