vb程序填空题课案Word格式文档下载.docx

vb程序填空题课案Word格式文档下载.docx

《vb程序填空题课案Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《vb程序填空题课案Word格式文档下载.docx（68页珍藏版）》请在冰豆网上搜索。

"

总共有这样的三位数"

;

n;

个"

Sub

1、1to9

2、n+1或1+nn+1或1+n：

1to9：

1to9

3、printx;

2、【程序说明】简单

窗体是密码检验程序。

程序运行时，用户在文本框输入密码，单击确定按钮对密码进行检验。

密码正确后，标签label2显示“密码正确”；

若密码不正确，标签显示“密码错误”，若密码输入错误达3次，将自动退出程序。

Command1_Click（） 

确定按钮

Static 

---const-1----mypwd 

String 

123456"

预设密码为自定义常量

+ 

1

Label2.Visible 

True

---__text1.text=mypwd____---- 

Then

Label2.Caption 

密码正确"

Else

<

3Then

密码错误！

Text1.Text 

--end--3----

1、CONST

2、Text1.text=mypwd或mypwd=text1.text或Text1=mypwd或mypwd=text1

3、End

3、【程序说明】

在组合框中选择形状后，窗体中控件Shape1的形状和边框线作相应变化。

程序运行时如下图

Combo1_Click（）

Shape1.Shape 

Combo1.List（-combol1.listindex-1----）

----2---- 

Int（Rnd 

* 

7）

Form_Load（）

I 

5:

----3----:

I

1、Combo1.ListIndex

2、Shape1.BorderStyle

3、Combo1.AddItemStr（I）或Combo1.list（I）=I

4、【程序说明】右击窗体则打开Windows自带的计算器“C:

\windows\calc.exe”；

单击“退出”按钮时将右击窗体的次数写入磁盘文件,并结束程序运行。

----1----

Form_MouseUp（Button 

Shift 

_

X 

Single, 

Y 

Single）

Button 

2 

1:

Shell 

“C:

\windows\calc.exe”

Command1_Click（）

Open 

C:

\a1.dat"

For----2----

#1,n:

Close 

#1

----3---- 

1、dimnasinteger

2、outputas#1

3、end

三、填空题（请把正确的选项填入试题前的空格中）　

第1题：

【程序说明】

单击窗体后，在窗体上输出以下图形:

I%, 

j%, 

st$

1 

st 

Chr$（65 

- 

1）

Tab（10 

I）;

j 

st;

j

=7 

Step 

-1

1、66

2、Print

3、I

第2题：

窗体是简易文本编辑器程序。

通过文本框和剪贴板实现全选、复制、粘贴和删除操作。

全选按钮

Text1.SelStart 

Text1.SelLength 

Text1.SetFocus

Command2.Enabled 

Command3.Enabled 

Command4.Enabled 

Command2_Click（） 

复制按钮

Clipboard.Clear

Clipboard.SetText 

Text1.SelText

Command3_Click（） 

粘贴按钮

Text1.SelText 

Command4_Click（） 

删除按钮

False

Text1_MouseUp（Button 

1、Len（Text1.Text）或Len（Text1）

2、Clipboard.GetText

3、Text1.SelText="

第3题：

自制一个简单的图片浏览器。

在窗体上建立一个图片框控件、一个时钟控件和一个命令按钮。

运行时，显示第一张图片，单击“浏览”按钮每隔1秒在图片框中显示另一张图片，显示到最后一张图片时，又从第一张开始显示。

（假设在C:

\Windows目录下有1.bmp、2.bmp、……、8.bmp这样8张图片需显示）

I=----1----

Picture1.Picture 

LoadPicture（"

c:

\windows\1.bmp"

）

Picture1.AutoSize 

Timer1_Timer（）

If 

=7Then

----2---- 

Else

I 

End 

1、1

2、I=I+1或I=1+I

3、LoadPicture（"

\windows\"

&

I&

"

.bmp"

）或LoadPicture（"

+trim（str（I））+"

第4题：

【程序说明】文件c:

\a1.dat中存放若干个学生信息的记录（行），按Command1按钮后，查找文件中姓名与输入姓名相同的记录，找到则删除该记录。

bs 

String,cs 

String

temp.dat"

Output 

#2

InputBox（"

输入学生姓名"

Do 

While 

Not 

Eof

（1）

Line 

Input 

#1, 

cs

if 

InStr（cs, 

Trim（bs）） 

=----2----Then 

print 

#2,cs

Loop

#1:

Kill----3----

Name 

“temp.dat” 

as 

“c:

\a1.dat”

1、ForInputAs#1

2、0

3、"

三、填空题　

1：

该程序执行后，输出一个右上三角元素（含对角线）为1，其余元素为0的5×

5的矩阵。

PrivateSubForm_Click（）

Dima（1To5,1To5）AsInteger

DimIAsInteger,jAsInteger

ForI=1To5

Forj=1To5

If----1----Then

----2----

EndIf

Nextj

NextI

Form2.Print"

a（I,j）;

----3----

EndSub

1、I<

=j或j>

=I

2、a（I,j）=1

3、print

2：

如图，程序运行时，用户可以在文本框中输入文本，单击command1“添加”按钮后将文本中输入的内容加到列表框的末尾，用户选某列表框的某一个列表项后，单击command2“删除”按钮，将删除该列表项；

如果没有任何一项选中，将有出错提示"

先选择，再删除！

。

PrivateSubCommand1_Click（）‘添加按钮

IfLen（Text1.Text）<

0Then

----1----

Text1.Text="

Text1.SetFocus

PrivateSubCommand2_Click（）‘删除按钮

If----2----Then

MsgBox"

1、List1.AddItemText1.Text

2、List1.ListIndex=-1

3、List1.RemoveItemList1.ListIndex

3：

自制一个简单的图片浏览器。

Dim----1---AsInteger

PrivateSubForm_Load（）

I=1

Picture1.Picture=LoadPicture（"

Picture1.AutoSize=True

PrivateSubTimer1_----2----

If----3----Then

I=I+1

1、I

2、Timer（）

3、I<

=7或I<

8

4：

本程序统计3～100之间所有素数的个数；

最后将素数的个数写入顺序文件e:

\dataout.txt中。

PrivateSubCommand1_Click（）

DimiAsInteger,flagAsBoolean

Dimt1AsInteger,t2AsInteger

----1----

i=0

Fort1=3To100

flag=True

Fort2=2ToInt（Sqr（t1））

If----2----thenflag=False

Nextt2

Ifflagthen

i=i+1

Nextt1

----3----

Close#1

1、open"

e:

\dataout.txt"

foroutputas#1

或open"

forappendas#1

2、t1modt2=0

3、Write#1,I或print#1,I

三、填空题

以下过程是将一个英文句子的每个单词的首字母都变成大写。

从键盘上任意输入一条英文句子，将句子中的每个单词的首字母都变成大写例如：

输入"

I

amagoodstudent"

则要求输出"

IAmAGoodStudent"

PublicSubUppersen（）

DimoldsenAsString,newsenAsString

DimcharAsString,lastcharAsString

DimkAsInteger,iAsInteger

oldsen=InputBox（"

请输入英文句子：

k=----1----

'

以空格作为单词的界定，空格后的字母转换为大写字母

lastchar=----2----

Fori=1Tok

char=----3----

Iflastchar="

Then

char=UCase（char）

newsen=newsen&

char

lastchar=char

Nexti

Form1.Print"

input:

oldsen

output:

newsen

1、Len（oldsen）

2、"

3、Mid（oldsen,I,1）

第2题：

以下程序可以将列表框中同时选中的多个列表项删除，顺序从最后一项开始往前删除，请将程序补充完整。

PrivateSubcmdDel_Click（）

DimiAsInteger

i=List1.ListCount-1

Whilei>

=----1----

IfList1.Selected（i）=TrueThen

Wend

1、0

2、List1.RemoveItemI

3、i=i-1

第3题：

\Windows目录下有1.jpg、2.jpg、……、8.jpg这样8张图片需显示）

i=1

Picture1.Picture=----1----

PrivateSubTimer1_Timer（）

Ifi<

i=i+1

Subpic（）

DimfnAsString

fn="

i&

.jpg"

Picture1.Picture=----3----

1、LoadPicture（"

\windows\1.jpg"

）

2、Callpic或pic

3、LoadPicture（fn）

第4题：

【程序说明】在窗体内设置一个弹出式菜单，分别对文本框进行“显示时间”、“显示日期”和“清空”操作。

m1为不可见菜单项，m11为其子菜单（共３项，均同名，索引值依次为0，1，2）。

鼠标右击窗体后显示弹出式菜单。

PrivateSubForm_Load（）

Timer1.Enabled=False'

锁定定时器（时间间隔已设置为1秒）

PrivateSubm11_Click（IndexAsInteger）

SelectCaseIndex

Case0:

Timer1.Enabled=----1----

Case1

Timer1.Enabled=False:

Text1.Text="

日期：

+----2----

Case2

　Text1.Text="

EndSelect

PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,_

xAsSingle,yAsSingle）

IfButton=2Then----3----,2

时间：

+Time

1、True

2、Date

3、PopUpMenum1

以下程序执行后将产生一个6×

6的转置矩阵，将二维数组中所有行和对应列的元素进行交换。

Dima（1To6,1To6）AsInteger

DimiAsInteger,jAsInteger

原始数据"

Fori=1To6

Forj=1To6

a（i,j）=Int（Rnd*10）

Form1.Printa（i,j）;

Form1.Print

Fori=2To6

Forj=1To-----1-----

------2-----

转置后数据"

-----3-----

PublicSubSwap（aAsInteger,bAsInteger）

DimtempAsInteger

temp=a

a=b

b=temp

2、CallSwap（a（I,j）,a（j,I））或.Swapa（I,j）,a（j,I）

3、Printa（i,j）;

本程序利用1个定时器、1个文本框和2个命令按钮制作一个动态表。

各控件名称取缺省值，控件Command1、Command2标题分别为“开始”、“结束”。

运行时，单击“开始”按钮后表开始每分钟计一次时，并在文本框上显示总分钟数；

单击“结束”按钮后，计时结束，在窗体上显示出运行的时间（折算成小时、分钟，不计算秒数）。

Dimxaslong

Timer1.Interval=60000:

Timer1.Enabled=False

Cls

x=0

PrivateSubCommand2_Click（）

DimhAsInteger,mAsInteger,sAsInteger

h=----2----

m=xmod60

Print"

运行了"

+Str（h）+"

小时"

+Str（m）+"

分"

Text1.text=x

EndSu