vb程序填空题课案.docx

vb程序填空题课案.docx

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

vb程序填空题课案

三、填空题 

1、【程序说明】

下列程序显示所有3个数码各不相同的3位数，要求按紧凑格式每行显示15个数，并统计有多少个这样的三位数。

Private Sub Form_Click（）

 Dim n As Integer, a As Integer, b As Integer, c As Integer

 Dim  x As Integer

 For  a =0 to 9    '个位数数码

       For b = 0 To 9      '十位数数码

          For c = ----1----     

             If  a<>b And b<>c And a<>c Then 

                x =a+10*（b+10*c）

                    n = ----2----

                ----3----

                    If n mod 15 = 0 Then Print

             End If

 Next c,b,a 

 Print "总共有这样的三位数"; n; "个"

End Sub

1、1to9

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

1to9：

1to9

3、printx;

2、【程序说明】简单

窗体是密码检验程序。

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

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

Private Sub Command1_Click（）    '确定按钮

    Static n As Integer

    ---const-1----mypwd As String = "123456"        '预设密码为自定义常量

    n = n + 1

    Label2.Visible = True

    If  ---__text1.text=mypwd____---- Then

         Label2.Caption = "密码正确"

    Else

        If n <3Then

            Label2.Caption = "密码错误！

"

            Text1.Text = ""

         Else

           --end--3----

        End If

    End If

End Sub

1、CONST

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

3、End

3、【程序说明】

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

程序运行时如下图

Private Sub Combo1_Click（）

  Shape1.Shape =  = Combo1.List（-combol1.listindex-1----）

  ----2---- = Int（Rnd * 7）

End Sub

Private Sub Form_Load（）

  Dim I As Integer

  For I = 0 To 5:

----3----:

 Next I

End Sub

1、Combo1.ListIndex

2、Shape1.BorderStyle

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

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

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

----1----

Private Sub Form_MouseUp（Button As Integer, Shift As Integer, _

   X As Single, Y As Single）

   If Button = 2 Then n = n + 1:

 Shell  “C:

\windows\calc.exe”

End Sub

Private Sub Command1_Click（）

  Open "C:

\a1.dat" For----2----

  Print #1,n:

 Close #1

  ----3---- 

End Sub

1、dimnasinteger

2、outputas#1

3、end

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

第1题：

【程序说明】

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

Private Sub Form_Click（）

    Dim I%, j%, st$

    For I = 1 To ----1---- 

        st = Chr$（65 + I - 1）

        Print Tab（10 - I）;

        For j = 1 To I

            Print st; " ";

        Next j

        ----2----

    Next I

    For I =7 To 1 Step -1

        st = Chr$（65 + I - 1）

        Print Tab（10 - I）;

        For j = 1 To ----3---- 

            Print st; " ";

        Next j

        Print

    Next I

End Sub

1、66

2、Print

3、I

第2题：

【程序说明】

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

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

Private Sub Command1_Click（）  '全选按钮

    Text1.SelStart = 0

    Text1.SelLength = ----1----

    Text1.SetFocus

    Command2.Enabled = True

    Command3.Enabled = True

    Command4.Enabled = True

End Sub

Private Sub Command2_Click（） '复制按钮

    Clipboard.Clear

    Clipboard.SetText Text1.SelText

    Command3.Enabled = True

    Text1.SetFocus

End Sub

Private Sub Command3_Click（） '粘贴按钮

    Text1.SelText = ----2----

    Text1.SetFocus

End Sub

Private Sub Command4_Click（） '删除按钮

    ----3---- 

    Command2.Enabled = False

    Command3.Enabled = False

    Command4.Enabled = False

End Sub

Private Sub Form_Load（）

Command2.Enabled = False

Command3.Enabled = False

Command4.Enabled = False

End Sub

Private Sub Text1_MouseUp（Button As Integer, Shift As Integer, X As Single, Y As Single）

    If Text1.SelLength <> 0 Then

        Command2.Enabled = True

        Command4.Enabled = True

    Else

        Command2.Enabled = False

        Command4.Enabled = False

    End If

End Sub

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

2、Clipboard.GetText

3、Text1.SelText=""

第3题：

【程序说明】

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

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

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

（假设在C:

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

Dim I As Integer

Private Sub Form_Load（）

I=----1----

Picture1.Picture = LoadPicture（"c:

\windows\1.bmp"）

Picture1.AutoSize = True

End Sub

Private Sub Timer1_Timer（）

If I <=7Then

    ----2---- 

Else

    I = 1

End If

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

End Sub

1、1

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

3、LoadPicture（"c:

\windows\"&I&".bmp"）或LoadPicture（"c:

\windows\"+trim（str（I））+".bmp"）

第4题：

【程序说明】文件c:

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

Private Sub Command1_Click（）

  Dim bs As String,cs As String

  Open "c:

\a1.dat"----1---- 

  Open "temp.dat" For Output As #2

  bs = InputBox（"输入学生姓名"）

  Do While Not Eof

（1）

    Line Input #1, cs

    if InStr（cs, Trim（bs）） =----2----Then print #2,cs

  Loop

  Close #1:

 Close #2

  Kill----3----

  Name  “temp.dat” as “c:

\a1.dat”

End Sub

1、ForInputAs#1

2、0

3、"c:

\a1.dat"

三、填空题　

1：

【程序说明】

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

PrivateSubForm_Click（）

Dima（1To5,1To5）AsInteger

DimIAsInteger,jAsInteger

ForI=1To5

Forj=1To5

If----1----Then

----2----

EndIf

Nextj

NextI

ForI=1To5

Forj=1To5

Form2.Print"";a（I,j）;

Nextj

----3----

NextI

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

EndIf

EndSub

PrivateSubCommand2_Click（）‘删除按钮

If----2----Then

MsgBox"先选择，再删除！

"

Else

----3----

EndIf

EndSub

1、List1.AddItemText1.Text

2、List1.ListIndex=-1

3、List1.RemoveItemList1.ListIndex

3：

【程序说明】

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

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

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

（假设在C:

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

Dim----1---AsInteger

PrivateSubForm_Load（）

I=1

Picture1.Picture=LoadPicture（"c:

\windows\1.bmp"）

Picture1.AutoSize=True

EndSub

PrivateSubTimer1_----2----

If----3----Then

I=I+1

Else

I=1

EndIf

Picture1.Picture=LoadPicture（"c:

\windows\"&I&".bmp"）

EndSub

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

EndIf

Nextt1

----3----

Close#1

EndSub

1、open"e:

\dataout.txt"foroutputas#1

或open"e:

\dataout.txt"forappendas#1

2、t1modt2=0

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

三、填空题

第1题：

【程序说明】

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

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

输入"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）

EndIf

newsen=newsen&char

lastchar=char

Nexti

Form1.Print"input:

";oldsen

Form1.Print"output:

";newsen

EndSub

1、Len（oldsen）

2、""

3、Mid（oldsen,I,1）

第2题：

【程序说明】

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

PrivateSubcmdDel_Click（）

DimiAsInteger

i=List1.ListCount-1

Whilei>=----1----

IfList1.Selected（i）=TrueThen

----2----

EndIf

----3----

Wend

EndSub

1、0

2、List1.RemoveItemI

3、i=i-1

第3题：

【程序说明】

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

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

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

（假设在C:

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

DimiAsInteger

PrivateSubForm_Load（）

i=1

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

Picture1.AutoSize=True

EndSub

PrivateSubTimer1_Timer（）

Ifi<=7Then

i=i+1

Else

i=1

EndIf

----2----

EndSub

Subpic（）

DimfnAsString

fn="c:

\windows\"&i&".jpg"

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

EndSub

1、LoadPicture（"c:

\windows\1.jpg"）

2、Callpic或pic

3、LoadPicture（fn）

第4题：

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

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

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

PrivateSubForm_Load（）

Timer1.Enabled=False'锁定定时器（时间间隔已设置为1秒）

EndSub

PrivateSubm11_Click（IndexAsInteger）

SelectCaseIndex

Case0:

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

Case1

Timer1.Enabled=False:

Text1.Text="日期：

"+----2----

Case2

　Text1.Text=""

EndSelect

EndSub

PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,_

xAsSingle,yAsSingle）

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

EndSub

PrivateSubTimer1_Timer（）

Text1.Text="时间：

"+Time

EndSub

1、True

2、Date

3、PopUpMenum1

三、填空题　

第1题：

【程序说明】

以下程序执行后将产生一个6×6的转置矩阵，将二维数组中所有行和对应列的元素进行交换。

PrivateSubForm_Click（）

Dima（1To6,1To6）AsInteger

DimiAsInteger,jAsInteger

Form1.Print"原始数据"

Fori=1To6

Forj=1To6

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

Form1.Printa（i,j）;

Nextj

Form1.Print

Nexti

Fori=2To6

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

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

Nextj

Nexti

Form1.Print"转置后数据"

Fori=1To6

Forj=1To6

-----3-----

Nextj

Form1.Print

Nexti

EndSub

PublicSubSwap（aAsInteger,bAsInteger）

DimtempAsInteger

temp=a

a=b

b=temp

EndSub

1、I

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

3、Printa（i,j）;

第2题：

【程序说明】

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

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

运行时，单击“开始”按钮后表开始每分钟计一次时，并在文本框上显示总分钟数；单击“结束”按钮后，计时结束，在窗体上显示出运行的时间（折算成小时、分钟，不计算秒数）。

Dimxaslong

PrivateSubForm_Load（）

Timer1.Interval=60000:

Timer1.Enabled=False

EndSub

PrivateSubCommand1_Click（）

Cls

x=0

----1----

EndSub

PrivateSubCommand2_Click（）

DimhAsInteger,mAsInteger,sAsInteger

Timer1.Enabled=False

h=----2----

m=xmod60

Print"运行了"+Str（h）+"小时"+Str（m）+"分"

EndSub

PrivateSubTimer1_Timer（）

----3----

Text1.text=x

EndSu