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 \总共有这样的三位数\个\End Sub 1、1 to 9

2、n+1或1+n 3、print x; 2、【程序说明】简单 窗体是密码检验程序。程序运行时，用户在文本框输入密码，单击确定按钮对密码进行检验。密码正确后，标签label2显示“密码正确”；若密码不正确，标签显示“密码错误”，若密码输入错误达3次，将自动退出程序。

Private Sub Command1_Click() '确定按钮 Static n As Integer

---const-1----mypwd As String = \预设密码为自定义常量 n = n + 1

Label2.Visible = True

If ---__ text1.text=mypwd____ ---- Then Label2.Caption = \密码正确\ Else

If n < 3 Then

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.AddItem Str(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 \ Print #1,n: Close #1 ----3---- End Sub

1、dim n as integer 2、output as #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、6 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(\ Picture1.AutoSize = True End Sub

Private Sub Timer1_Timer() If I <= 7 Then ----2---- Else I = 1 End If Picture1.Picture = ----3---- End Sub 1、1

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

3、LoadPicture(\& I & \或LoadPicture(\+ trim(str(I)) + \

第4题：【程序说明】文件c:\\a1.dat中存放若干个学生信息的记录（行），按Command1按钮后，查找文件中姓名与输入姓名相同的记录，找到则删除该记录。 Private Sub Command1_Click() Dim bs As String,cs As String Open \

Open \ 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、For Input As #1 2、0

3、\三、填空题 1：【程序说明】

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

Private Sub Form_Click()

Dim a(1 To 5, 1 To 5) As Integer Dim I As Integer, j As Integer For I = 1 To 5 For j = 1 To 5

If ----1---- Then ----2---- End If Next j Next I For I = 1 To 5 For j = 1 To 5 Form2.Print \ Next j ----3---- Next I End Sub

1、I<=j或j>=I 2、a(I,j)=1 3、print 2：【程序说明】

如图，程序运行时，用户可以在文本框中输入文本，单击command1“添加”按钮后将文本中输入的内容加到列表框的末尾，用户选某列表框的某一个列表项后，单击command2“删除”按钮，将删除该列表项；如果没有任何一项选中，将有出错提示\先选择，再删除！\。

Private Sub Command1_Click()‘ 添加按钮 If Len(Text1.Text) <> 0 Then ----1----

Text1.Text = \ Text1.SetFocus End If End Sub

Private Sub Command2_Click() ‘删除按钮 If ----2---- Then MsgBox \先选择，再删除！\ Else

----3---- End If End Sub

1、 List1.AddItem Text1.Text 2、List1.ListIndex = -1

3、List1.RemoveItem List1.ListIndex

3：【程序说明】

自制一个简单的图片浏览器。在窗体上建立一个图片框控件、一个时钟控件和一个命令按钮。运行时，显示第一张图片，单击“浏览”按钮每隔1秒在图片框中显示另一张图片，显示到最后一张图片时，又从第一张开始显示。（假设在C:\\Windows目录下有1.bmp、2.bmp、??、8.bmp这样8张图片需显示） Dim ----1--- As Integer Private Sub Form_Load() I = 1

Picture1.Picture = LoadPicture(\ Picture1.AutoSize = True End Sub

Private SubTimer1_ ----2----

If ----3---- Then I =I+1 Else

I = 1 End If

Picture1.Picture = LoadPicture(\ End Sub 1、I

2、Timer()

3、I <= 7或I<8

4：【程序说明】

本程序统计3～100之间所有素数的个数；最后将素数的个数写入顺序文件e:\\dataout.txt中。

Private Sub Command1_Click() Dim i As Integer, flag As Boolean Dim t1 As Integer, t2 As Integer ----1---- i = 0

For t1 = 3 To 100 flag = True

For t2 = 2 To Int(Sqr(t1)) If ----2---- then flag = False Next t2 If flag then i = i+1 End If Next t1 ----3---- Close #1 End Sub

1、 open \

或open \

2、t1 mod t2=0

3、Write #1,I或print #1,I 三、填空题 第1题：【程序说明】

以下过程是将一个英文句子的每个单词的首字母都变成大写。从键盘上任意输入一条英文句子，将句子中的每个单词的首字母都变成大写例如：输入\ am a good student\。则要求输出\。 Public Sub Uppersen()

Dim oldsen As String, newsen As String Dim char As String, lastchar As String Dim k As Integer, i As Integer

oldsen = InputBox(\请输入英文句子：\ k = ----1----

'以空格作为单词的界定，空格后的字母转换为大写字母 lastchar = ----2---- For i = 1 To k

char = ----3----

If lastchar = \ char = UCase(char) End If

newsen = newsen & char lastchar = char Next i

Form1.Print \ Form1.Print \ End Sub

1、Len(oldsen) 2、\

3、Mid(oldsen, I, 1)

第2题：【程序说明】

以下程序可以将列表框中同时选中的多个列表项删除，顺序从最后一项开始往前删除，请将程序补充完整。 Private Sub cmdDel_Click() Dim i As Integer i = List1.ListCount - 1 While i >=----1----

If List1.Selected(i) = True Then ----2---- End If ----3---- Wend End Sub

1、0

2、List1.RemoveItem I 3、i = i - 1

第3题：【程序说明】

自制一个简单的图片浏览器。在窗体上建立一个图片框控件、一个时钟控件和一个命令按钮。运行时，显示第一张图片，单击“浏览”按钮每隔1秒在图片框中显示另一张图片，显示到最后一张图片时，又从第一张开始显示。（假设在C:\\Windows目录下有1.jpg、2.jpg、??、8.jpg这样8张图片需显示） Dim i As Integer

Private Sub Form_Load()

i = 1

Picture1.Picture = ----1---- Picture1.AutoSize = True End Sub

Private Sub Timer1_Timer() If i <= 7 Then i =i+1 Else

i = 1 End If ----2---- End Sub Sub pic()

Dim fn As String

fn = \ Picture1.Picture = ----3---- End Sub

1、LoadPicture(\ 2、Call pic或pic 3、LoadPicture(fn) 第4题：【程序说明】在窗体内设置一个弹出式菜单，分别对文本框进行“显示时间”、“显示日期”和“清空”操作。m1为不可见菜单项，m11为其子菜单（共３项，均同名，索引值依次为0，1，2）。鼠标右击窗体后显示弹出式菜单。 Private Sub Form_Load() Timer1.Enabled = False '锁定定时器（时间间隔已设置为1秒） End Sub

Private Sub m11_Click(Index As Integer) Select Case Index

Case 0 : Timer1.Enabled =----1---- Case 1

Timer1.Enabled = False : Text1.Text= \日期：\ Case 2

Text1.Text = \ End Select End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ x As Single, y As Single) If Button = 2 Then ----3----, 2 End Sub

Private Sub Timer1_Timer() Text1.Text = \时间：\ End Sub

1、True 2、Date

3、PopUpMenu m1 三、填空题 第1题：【程序说明】

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

Private Sub Form_Click()

Dim a(1 To 6, 1 To 6) As Integer Dim i As Integer, j As Integer Form1.Print \原始数据\ For i = 1 To 6 For j = 1 To 6

a(i, j) = Int(Rnd * 10) Form1.Print a(i, j); Next j

Form1.Print Next i

For i = 2 To 6

For j = 1 To ----- 1 ----- ------ 2 ----- Next j Next i

Form1.Print \转置后数据\ For i = 1 To 6 For j = 1 To 6 ----- 3 ----- Next j

Form1.Print Next i End Sub

Public Sub Swap(a As Integer, b As Integer) Dim temp As Integer temp = a a = b b = temp End Sub 1、I

2、Call Swap(a(I, j), a(j, I))或.Swap a(I, j), a(j, I) 3、Print a(i, j); 第2题：【程序说明】

本程序利用1个定时器、1个文本框和2个命令按钮制作一个动态表。各控件名称取缺省值，控件Command1、Command2标题分别为“开始”、“结束”。运行时，单击“开始”

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

Private Sub Form_Load()

Timer1.Interval = 60000: Timer1.Enabled = False End Sub

Private Sub Command1_Click() Cls x = 0 ----1---- End Sub

Private Sub Command2_Click()

Dim h As Integer, m As Integer, s As Integer Timer1.Enabled = False h = ----2---- m = x mod 60

Print \运行了\小时\分\ End Sub

Private Sub Timer1_Timer() ----3---- Text1.text = x End Sub 1、Timer1.enabled=true 2、x\\60 3、x=x+1

第3题：【程序说明】

程序运行时界面如下图，红桃、梅花、方块、黑桃的图形文件在界面设计时已经在属性窗口中设置好，而且使用的是Image1控件数组，程序运行时，单击Image1时，Image2显示相应的图片，同时在Picture1中用蓝色显示哪个图案被选中的文字信息。

Private Sub Image1_Click(Index As Integer) ----1----

Picture1.FontSize = 20 ----2---- = vbBlue Picture1.Cls ----3---- Case 0

Picture1.Print \红桃被选中\ Case 1

Picture1.Print \草花被选中\ Case 2

Picture1.Print \方片被选中\ Case 3

Picture1.Print \黑桃被选中\ End Select End Sub

1、Image2.Picture =Image1(Index).Picture 2、Picture1.ForeColor 3、Select Case Index

第4题：【程序说明】程序运行时，通过单击窗体显示“字体”对话框，并对文本框的字体 、字号和字效等进行设置。 Private Sub Form_Click() ----1----＝259 CommonDialog1.Action =----2---- Text1.FontBold =----3---- Text1.FontItalic = CommonDialog1.FontItalic Text1.FontName = CommonDialog1.FontName Text1.FontSize = CommonDialog1.FontSize End Sub

1、CommonDialog1.Flags 2、4

3、CommonDialog1.FontBold 三、填空题 第1题：【程序说明】

以下程序执行后将输出100到200之间所有的素数，并统计素数的个数 Private Sub Form_Click()

Dim i%, j%, k%, t% 't为统计素数的个数 Dim b As Boolean For i = 100 To 200 b = True

k= ------ 1 ----- j = Int(Sqr(i))

Do While k <= j And b If i Mod k = 0 Then ------ 2 ------

End If

------ 3 ------ Loop

if b=true then t = t + 1

Form1.Print i End If Next i

Print \ End Sub

1、2

2、b = False 3、k = k + 1 第2题：【程序说明】

下列程序运行时，单击Command1(0)后，清空组合框原有内容，从外部文件中读入的数据显示在组合框中，如图所示。单击Command1(1)后，将组合框中的各表项输出到外部文件；单击Command1(2)后，将组合框中文本框部分的文本添加作为组合框的表项；单击Command1(3)后，将组合框中选中的表项删除。

Private Sub Command1_Click(Index As Integer) Select Case Index Case 0

----1----

Open \ Do While Not EOF(1) Line Input #1, a$ Combo1.AddItem a$ Loop Close #1 Case 1

Open \ For I% = 0 To ----2----

Print #1, Combo1.List(I%) Next I% Close #1

Case 2 '添加

Combo1.AddItem Combo1.Text Case 3 '删除 ----3---- End Select End Sub

1、Combo1.Clear

2、Combo1.ListCount - 1

3、Combo1.RemoveItem Combo1.ListIndex 第3题：【程序说明】

程序运行后，鼠标多次在图片框内拖动后，绘制出多个绿色边框矩形，填充样式在“实心”、“透明”间交替变换。 ----1----

Private Sub Picture1_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single) x0 = X: y0 = Y End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, _ X As Single, Y As Single) If ----2----Then

Picture1.FillStyle = 0 Else Picture1.FillStyle = 1 End If ----3---- End Sub 1、Dim x0 As Single, y0 As Single或Dim x0!, y0! 2、Picture1.FillStyle <> 0或Picture1.FillStyle=1 3、Picture1.Line (x0, y0)-(X, Y), RGB(0, 255, 0), B 第4题：【程序说明】

设计一个简单的图片浏览程序。单击窗体后，显示“打开文件”对话框，选中一个

图片文件后，将其显示在图片框中。要求“打开文件”对话框只能显示bmp文件或gif文件。 Private Sub Form_Click()

CommonDialog1.DialogTitle =”打开图片文件” CommonDialog1.InitDir=”c:\\Picture” ----1----=\文件|*.bmp|gif文件|*.gif\ ----2----

Picture1.Picture=LoadPicture(----3----) End Sub

1、CommonDialog1.Filter

2、CommonDialog1.ShowOpen或CommonDialog1.Action=1 3、CommonDialog1.FileName 三、填空题 第1题：【程序说明】

下列程序的功能是找出被5、7除，余数为1的最小5个正整数。 Private Sub Form_Click() Dim Ncount%, n% Ncount =----1---- n = 1 Do

n = n + 1

If ----2---- Then Print n

Ncount = Ncount + 1 End If

Loop Until ----3----=5 End Sub

1、0

2、n Mod 5 = 1 And n Mod 7 = 1 3、Ncount 第2题：【程序说明】

本程序是一个比赛评分程序。在窗体上有text1（0）～text1（6）文本框数组，显示最后得分的text2文本框和“计算得分”command1命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在text2 文本框中（去掉一个最高分和一个最低分后的平均分）

Private Sub Command1_Click()

Dim k As Integer

Dim sum As Single, max As Single, min As Single sum = Text1(0): max = Text1(0): ----1---- For ----2---- step 1

If max < Text1(k) Then max = Text1(k) End If

If min > Text1(k) Then min = Text1(k) End If

sum = sum + Text1(k) Next k

Text2.Text = (----3----) / 5 End Sub

1、min = Text1(0)或min = Text1(0).text或min =max

2、k = 1 To 6

3、sum - min – max或sum - max – min 第3题：【程序说明】

窗体上有两个图片框控件Picture1和Picture2，两个命令按钮command1（标题为“加载”）和command2（标题为“复制”），程序运行时，“复制”按钮不可用，图片框控件Picture2和Picture1大小相同，单击“加载”按钮，清除Picture2中的图片，打开通用对话框，选择一个图形文件，在图片框控件Picture1中显示，同时“复制”按钮可用，“加载”按钮不可用；单击“复制”按钮，将Picture1的图片复制到Picture2中，同时“加载”按钮可用，“复制” 按钮不可用。

Private Sub Form_Load()

Picture2.Width = Picture1.Width ----1----

Command2.Enabled = False End Sub

Private Sub command1_Click() CommonDialog1.ShowOpen ----2----

Picture1.Picture = ----3---- Command2.Enabled = True Command1.Enabled = False End Sub

Private Sub command2_Click() Picture2.Picture = Picture1.Picture Command1.Enabled = True Command2.Enabled = False End Sub

1、Picture2.Height = Picture1.Height 2、Picture2.Picture = LoadPicture(\

3、LoadPicture(CommonDialog1.FileName) 第4题：【程序说明】文本文件“C:\\mydoc\\zg.txt”包括工资、职务情况，每条记录由工号、工资、职称组成，现对文件内容进行修改，即对不同职称的职工增加工资，规定高级职称的增加15%，中级职称的增加10%，初级的增加5%，其他人员不加工资。 Pirvate Sub cmdModif_Click()

Dim num As Integer, gz As Single, zc As String ‘ 定义工号、工资、职称的变量名和类型

Open ” C:\\mydoc\\zg.txt” For Input As #1 Open ” C:\\mydoc\\lszg.txt” For Output As #2 Do While Not EOF(1) ----1----

Select Case zc Case “高级” gz = gz*1.15

Case “中级” gz = gz*1.1 Case “初级” gz = gz*1.05 End Select

Write #2, num, gz, zc Loop

Close #1,#2

Open ” C:\\mydoc\\lszg.txt” ----2----As #1 Open ” C:\\mydoc\\zg.txt”for output As #2 Do While Not EOF(1) Input #1, num, gz, zc ----3---- Loop

Close #1,#2 End Sub

1、Input #1, num, gz, zc 2、For Input

3、Write #2, num, gz, zc

三、填空题 (请把正确的选项填入试题前的空格中) 第1题：【程序说明】 该程序的功能为：从1到1000中找出这样的数，该数每位上数字的阶乘之和等于该数，并将结果输出从窗体输出。

Private Sub Form_Click() Dim k, a, n, I, m Dim p As Integer For k = 1 To 10000 a = Ltrim(Str(k)) n = 0

m = Len(a)

For I = 1 To ----1---- p = Val(Mid(a, I, 1)) n = ----2---- Next I

If n = k Then Form1.Print k Next k End Sub

Function fact(x As Integer) As Long '该函数用于计算阶乘 Dim y As Long Dim I% y = 1

For I = 1 To x y = y * I

Next I ----3---- End Function 1、m

2、n+fact(p)或fact(p)+n 3、fact=y 第2题：【程序说明】

这是一个用户名校验程序，如用户名正确，即输出欢迎字样，否则，弹出警告窗并直接退出程序。

Dim UserName(2) As String, inputName As String

Dim Flag As Boolean ‘flag=true表示用户名正确;flag=false表示用户名不正确 Private Sub Form_Load() Dim I As Integer

UserName(0) = \‘共三个用户名 ----1----

inputName = InputBox(\请输入名称：\身份确认\ For I = 0 To 2 If ----2----Then Flag = True End If Next I

If Flag =False Then ----3---- (\用户身份确认失败！退出应用\警告\ End End If End Sub Private Sub Form_Paint()

picShowMsg.Print \欢迎您！\ End Sub

1、Flag = False或flag<> true或not flag

2、inputName = UserName(I)或UserName(I)= inputName 3、MsgBox 第3题：【程序说明】

窗体上有两个图片框控件Picture1和Picture2，两个命令按钮command1（标题为“加载”）和command2（标题为“复制”），程序运行时，“复制”按钮不可用，图片框控件Picture2和Picture1大小相同，单击“加载”按钮，打开通用对话框，选择一个图形文件，在图片框控件Picture1中显示，同时“复制” 按钮可用，“加载”按钮不可用；单击“复制”按钮，将Picture1的图片复制到Picture2中，同时“加载”按钮可用，“复制”按钮不可用。 Private Sub Form_Load()

Picture2.Width = Picture1.Width Picture2.Height = Picture1.Height ----1---- End Sub

Private Sub command1_Click()

----2----

Picture1.Picture = LoadPicture(CommonDialog1.FileName) Command2.Enabled = True Command1.Enabled = False End Sub

Private Sub command2_Click() ----3----

Command1.Enabled = True Command2.Enabled = False End Sub

1、Command2.Enabled = False

2、CommonDialog1.ShowOpen或CommonDialog1.Action=1 3、Picture2.Picture = Picture1.Picture

或 Picture2.Picture = LoadPicture(CommonDialog1.FileName)

第4题：【程序说明】下列程序运行时，在驱动器列表框中选择驱动器，目录列表框相应变为所选驱动器的目录列表，在目录列表框中选择相应目录，文件列表框的内容变为所选目录下的文件列表，只要单击其中扩展名为＂.bmp＂的文件，即可在图像框中显示该图像。 Private Sub Dir1_Change() File1. Path =dir1.Path End Sub Private Sub Drive1_Change() ----1---- End Sub Private Sub File1_Click() Dim PathStr As String if right(file1.path,1)=\ PathStr=File1.Path & File1.FileName else ----2---- end if

If Right(PathStr,4)= “.bmp” Or Right(PathStr,4)= “.BMP” Then ----3---- End If End Sub

1、Dir1.Path=Drive1.Drive

2、PathStr=File1.Path & “\\” &

File1.FileName或PathStr=File1.Path + “\\” + File1.FileName 3、Image1.Picture=LoadPicture(PathStr) 三、填空题 第1题：【程序说明】

以下程序产生n个两位随机整数，将其中个位数等于5的数存入数组B中，并以每行五个的紧凑格式在窗体中用输出，同时输出该数组的个数。 Private Sub Form_Click()

Dim a() As Byte, b() As Byte

Private Sub Cboziti_click() ‘字体 ----1---- End Sub

Private Sub Cbozixing_Click() ‘字形 Select case ----2---- Case \常规\

Label5.FontBold = False Label5.FontItalic = False case \加粗\

Label5.FontBold = True Label5.FontItalic = False ‘??省略 End select End Sub

Private Sub Check1_Click() ‘下划线 If ----3----Then Label5.FontUnderline = True Else

Label5.FontUnderline = False End If End Sub

1、Label5.FontName = Cboziti.Text或Cboziti.Text=Label5.FontName 2、Cbozixing.text 3、Check1.Value = 1 第3题：【程序说明】

程序运行时如下图，红桃、梅花、方块、黑桃的图形文件在界面设计时已经在属性窗口中设置好，而且使用的是Image1控件数组，程序运行时，单击Image1时，Image2中显示相应的图片，同时在Picture1中显示哪个图案被选中的文字信息。

Private Sub Image1_Click(Index As Integer) Image2.Picture = ----1---- Picture1.FontSize = 20

Picture1.ForeColor = vbBlue Picture1.Cls

Select Case ----2---- Case 0

Picture1.Print \红桃被选中\ Case 1

Picture1.Print \草花被选中\ Case 2 Picture1.Print \方片被选中\ ----3----

Picture1.Print \黑桃被选中\ End Select End Sub

1、Image1(Index).Picture 2、Index

3、Case 3或Case else 第4题：【程序说明】在当前窗体中，绘制一个圆心在窗体中心，半径为1000的实心圆，要求实心圆的填充色从“颜色”对话框中选取。 Private Sub Form_Click()

Dim r as single,x as single,y as single R=1000

X=form1.scalewidth/2 Y=----1----

Form1.fillstyle=0

CommonDialog1.----2---- Form1.fillcolor=----3---- Circle (x,y),r End Sub

1、form1.scaleheight/2

2、ShowColor

3、CommonDialog1.Color 三、填空题 第1题：【程序说明】

以下程序产生30个两位随机整数，将其中的偶数存入数组B中，并按从小到大的顺序在窗体中用紧凑格式输出。

Private Sub Form_Click()

Dim a(30) As Byte, b(30) As Integer

Dim i As Byte, j As Byte, m As Byte, n As Byte For i = 1 To 30

a(i) = 10 + Int(Rnd * 90) If a(i) Mod 2 = 0 Then m = ----1---- b(m) = a(i) End If Next i

For i = 1 To ----2---- n = i

For j = i + 1 To m

If b(n) > b(j) Then ----3---- Next j

temp = b(i): b(i) = b(n): b(n) = temp Print b(i); Next i End Sub 1、m + 1 2、m - 1 3、n = j 第2题：【程序说明】

如图所示, 在两个列表框之间进行操作。用户可以在左边列表框list1选一项或多项移动至右侧的列表框list2，同时将list中已选的项目删除。还可以把将列表框list2的内容放回列表框list1。

Private Sub Command1_Click() '移动按钮

Dim I As Integer I = 0

Do Until I >= List1.ListCount

If ----1---- Then '判断第I项有没有选定 List2.AddItem List1.List(I) List1.RemoveItem I Else

----2---- ' 第I项未选定，继续下一项判断 End If Loop End Sub

Private Sub Command2_Click() '还原按钮 Do Until ----3----

List1.AddItem List2.List(0) List2.RemoveItem 0 Loop End Sub

1、List1.Selected(I) = True

或List1.Selected(I)<>FALSE或list1.selected(I)

2、I = I + 1或I=1+I 3、List2.ListCount = 0 第3题：【程序说明】 程序运行后，鼠标多次在图片框内拖动后，绘制出多个实心矩形，矩形颜色在“红色”、“绿色”间交替变换。

Dim x0 As Single, y0 As Single Private Sub Picture1_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single) ----1---- End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, _ X As Single, Y As Single)

If Picture1. ForeColor <> 255 Then ----2----

Picture1.Line (x0, y0)-(X, Y), vbRed, BF Else

Picture1.ForeColor =vbGreen ----3---- End If End Sub

1、x0 = X: y0 = Y

2、Picture1.ForeColor = 255或Picture1.ForeColor = vbRed

或Picture1.ForeColor = RGB(255,0,0)

3、Picture1.Line (x0, y0)-(X, Y), vbGreen, BF

或Picture1.Line (x0, y0)-(X, Y), , BF

或Picture1.Line (x0, y0)-(X, Y),RGB(0,255,0), BF

第4题：【程序说明】在窗体上画一个名为Text1的文本框，然后建立1个弹出式菜单，其结构如下表所示；要求在文本框上单击鼠标右键后，弹出菜单；单击“剪切”、“复制”菜单项后可以把Text1中选中内容剪切或复制到变量a中，单击“粘贴”菜单项则是把a中的内容添加到Text1的原有内容之后。 标题 名称 层次 编辑 Edit 1 剪切 Cut 2 复制 Copy 2 粘贴 Paste 2 Dim a as string

Private sub cut_click()

a= Text1.seltext ----1---- End sub

Private sub copy_click() a= Text1.seltext End sub

Private sub paste_click() Text1. text=----2---- End sub

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, _ x As Single, y As Single) If Button = 2 Then----3----, 2 End Sub 1、Text1.seltext=”” 2、Text1.text+a 3、PopUpMenu Edit

Dim i As Byte, m As Byte, n As Byte n = InputBox(\请输入n值：\ ----1---- a(n), b(n) For i = 1 To n

a(i) = 10 + Int(Rnd * 90) If a(i) Mod 5 = 0 Then m = m + 1 ----2---- Print b(m); If ----3---- End If Next i Print

Print \个位数为0的数有\个\

End Sub

1、ReDim 2、b(m) = a(i)

3、m Mod 5 = 0 或m/5=m\\5 Then Print 第2题：【程序说明】

本程序通过选项来修饰预览区文字。单击字体组合框Cboziti可以设置预览区域的标签文字label5的字体；单击字号组合框Cbozihao可以设置预览区域的标签文字的字形；选择删除线复选框可以设置是否加删除线。

Private Sub Cbozihao_Click()'选择字号 Label5.FontSize = Cbozihao.Text End Sub

Private Sub Cbozihao_ ----1---- () '输入选项中没有的字号 If Val(Cbozihao.Text) > 0 And Val(Cbozihao.Text) < 72 Then Label5.FontSize = Val(Cbozihao.Text) Else

Label5.FontSize = 9 End If End Sub

Private Sub Cboziti_click()’字体 ----2----

End Sub

Private Sub Check1_Click()‘复选框删除线 If ----3---- Then

Label5.FontStrikethru = True Else

Label5.FontStrikethru = False End If End Sub

1、Change

2、Label5.FontName = Cboziti.Text

3、Check1.Value = 1或1= Check1.Value 第3题：【程序说明】

程序运行时界面如下图，点击“颜色选择”按钮，弹出颜色对话框将选中的颜色显示在控件Pic2中，单击“线形选择”下的单选按钮可选择粗、细两种线形，在控件Pic2中拖动鼠标，以选择好的颜色和线形，以及鼠标按下点和弹起点的坐标为矩形对角顶点画矩形。

Dim x1 As Single, y1 As Single Dim hColor As Long

Private Sub Command1_Click() CommonDialog1.ShowColor ----1----

Pic2.BackColor = hColor End Sub

Private Sub Form_Load() Option1(1).Value = True End Sub

Private Sub Option1_Click(Index As Integer) ----2---- Case 0

Pic1.DrawWidth = 5 Case 1

Pic1.DrawWidth = 1 End Select

End Sub

Private Sub Pic1_Mousedown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) x1 = X:y1 = Y End Sub

Private Sub Pic1_Mouseup(Button As Integer, Shift As Integer, _ X As Single, Y As Single) ----3---- End Sub

1、hColor = CommonDialog1.Color 2、Select Case Index

3、Pic1.Line (x1, y1)-(X, Y), hColor, B 第4题：【程序说明】打开文本文件e:\\data1.txt，从中找出所有的数字字符；并将这些数字写入文件e:\\data2.txt中。

Private Sub Command1_Click() Dim c As string

Open “e:\\data1.txt” for input as #1 -----1-----

Do while not Eof（1） Line Input #1,c For i=1 to len(c)

If mid(c,I,1)>=48 and mid(c,I,i)<=57 then -----2----- Next i loop

Close #1 -----3----- End Sub

1、Open “e:\\data2.txt” for output as #2 2、print #2, mid(c,I,1)或write #2, mid(c,I,1) 3、close #2 三、填空题 第1题：【程序说明】该程序是对以下数列进行运算：

有一个数列，它的前三个数是0，1，2，从第四个数起，每个数都是它前面的两个数之和，求出该数列的第17个数是多少，并求出该数列的第几个数起每个数都超过1E+8 Private Sub Form_Click() Dim last_one As Long Dim last_two As Long Dim this_one As Long Dim i As Integer

last_one = 1 '数列的第二个数 last_two = 2 '数列的第三个数

i = 4 '从数列的第四个数求起 Do

this_one = last_one + last_two

last_one = last_two last_two = ------1------- If i = 17 Then

Form1.Print \ End If ------2------

Loop While this_one <= 100000000#

Form1.Print \ End Sub

1、this_one

2、I = I + 1或I=1+I 3、I 第2题：【程序说明】

设计用按钮数组command1(0)- command1(9)做一个模拟电话拨号程序。运行时，单击各数字按钮后，在标签label1中显示所拨的号码，按“删除”键command2,删除最后一个号码，按“取消”键command3,则撤销所有拨号，清空标签。

Dim num As String

Private Sub Command1_Click(Index As Integer) num = num & ----1----- Label1.Caption = num End Sub

Private Sub Command2_Click() ------2----

Label1.Caption = num End Sub

Private Sub Command3_Click() -------3------- num = \ End Sub

1、Command1(Index).Caption或trim(str(index))

2、num=Left(num,Len(num)–1)或num = mid(num,1, Len(num)–1) 3、Label1.Caption = \ 第3题：【程序说明】

程序运行时界面如下图，点击“颜色选择”按钮，弹出颜色对话框将选中的颜色显示在控件Pic2中，单击“线形选择”下的单选按钮可选择粗、细两种线形，在控件Pic2中拖动鼠标，以选择好的颜色和线形，以及鼠标按下点和弹起点的坐标为矩形对角顶点画矩形。

Dim x1 As Single, y1 As Single Dim hColor As Long

Private Sub Command1_Click() CommonDialog1.ShowColor hColor = CommonDialog1.Color ----1---- End Sub Private Sub Form_Load() Option1(1).Value = True End Sub Private Sub----2---- Select Case Index Case 0

Pic1.DrawWidth = 5 Case 1

Pic1.DrawWidth = 1 End Select End Sub

Private Sub Pic1_Mousedown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) x1 = X:y1 = Y End Sub

Private Sub Pic1_Mouseup(Button As Integer, Shift As Integer, _ X As Single, Y As Single) ----3---- End Sub

1、Pic2.BackColor = hColor

2、Option1_Click(Index As Integer) 3、Pic1.Line (x1, y1)-(X, Y), hColor, B

或Pic1.Line (x1, y1)-(X, Y), CommonDialog1.Color, B

第4题：【程序说明】在D盘建一文本文件dat.txt，当在文本框Text1中输入字符后，要求每次按回车都把文本框中的内容写入文件dat.txt中，并清除文本框中的内容；如果输入“End”，则结束程序运行。

Private Sub Form_Load()

Open “d:\\dat.txt” for output as #1 Text1.text=”” End Sub

Private Sub Text1_Keypress(Keyascii as integer) IF Keyascii=----1----then

If Ucase(text1.text)=----2----then Close #1 End

Else ----3----

Text1.text=”” End if End if End Sub

1、13 2、“END”

3、write #1,text1.text或print #1,text1.text 三、填空题 第1题：【程序说明】

下列程序的功能是：验证一个大于6的偶数能分解为两个素数之和基本思想是：N为大于6的任一偶数，可分解为N1和N2两个数，分别检查N1和N2是否为素数，若都是，则为一组解。

Private Sub Form_Click()

Dim N%, N1%, N2%, I%, K1%, K2% N = Val(InputBox(\输入大于6的偶数\ For N1 = 3 To N \\ 2 Step 2 K1 = ----1---

For I = 2 To K1 '判断N1是否是素数 If N1 Mod I = 0 Then ----2---- Next I

If I > K1 Then N2 = ----3---- K2 = Int(Sqr(N2)) For I = 2 To K2

If N2 Mod I = 0 Then Exit For Next I

If I > K2 Then Print N & \

End If

End If

Next N1 End Sub

1、Int(Sqr(N1)) 2、Exit For 3、N - N1 第2题：【程序说明】

下列程序运行后，当在组合框中输入一个新项目后按回车时，如果输入的项目在组合框列表中不存在，则自动添加到组合框列表中，并在label2中显示“成功添加新项目！”（界面如下图所示）；若该项目存在，则显示“输入项目已存在!”。

Private Sub Combo1_ keypress(KeyAscii As Integer)

If KeyAscii = 13 Then For I = 0 To ----1----

If Combo1.Text = ----2----Then Label2.Caption = \输入项目已存在!\ Exit Sub End If Next I

Label2.Caption = \成功添加新项目！\ Combo1.AddItem ----3---- End If End Sub

1、Combo1.ListCount – 1 2、Combo1.list(I) 3、Combo1.Text 第3题：【程序说明】

程序运行后，在图片框控件Pic1上拖动鼠标，绘制出一个矩形。鼠标按下、抬起的位置分别为矩形斜对角线的顶点，矩形轮廓线为红色，矩形内部填充色为绿色。 ----1----

Private Sub Pic1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) x1 = X: y1 = Y End Sub

Private Sub Pic1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Pic1.FillColor = vbGreen ----2---- ----3----

End Sub

1、Dim x1 As Single, y1 As Single或Dim x1!, y1! 2、Pic1.FillStyle = 0

3、Pic1.Line (x1, y1)-(X, Y), vbRed, B

或Pic1.Line (x1, y1)-(X, Y), 255, B或Pic1.Line (x1, y1)-(X, Y), RGB(255,0,0), B

第4题：【程序说明】在窗体上建一文本框和一命令按钮，要求单击命令按钮后，显示通用对话框，在通用对话框选择一个文本文件后，将该文本文件的内容读出，并在文本框中显示。

Private Sub Command1_Click() Dim c As string ----1----

Open Commondialog1.FileName----2---- as #1 Do while not Eof（1） Line Input #1,c ----3---- loop Close #1 End Sub

1、Commondialog1.showopen或Commondialog1.Action=1 2、for input

3、Text1.text= Text1.text+c 三、填空题 第1题：【程序说明】

以下程序运行时，打印输出一个如图所示的双三角形图案。

Private Sub Command3_Click()

Dim i As Integer,Dim j As Integer Form1.Cls

For i = 1 To ----1----

Print Spc(i); '左边部分 For j = 1 To ----2---- Print \ Next j

Print Spc(3);

For j = 1 To 2 * i - 1 '右边部分 Print \ Next j ----3----

Next i End Sub

1、5

2、2 * (6 - I) - 1或 (6 - I)*2 - 1或11-I或-2*I+11 3、print 第2题：【程序说明】

本程序是将列表框List1与List2中各表项合并到List3：List1与List2中原有各表项已按ASCII码从大到小排列。要求合并后List3中各表项也要从大到小排列。 Private Sub Command1_Click() Dim I as integer,j as integer List3.Clear ----1----

If List1.ListCount * List2.ListCount = 0 Then Exit Do If----2----Then

List3.AddItem List1.List(0): List1.RemoveItem (0) Else

List3.AddItem List2.List(0): List2.RemoveItem (0) End If Loop For i= 0 To List1.ListCount – 1 List3.AddItem List1.List(i) ----3---- For j = 0 To List2.ListCount - 1 List3.AddItem List2.List(j) Next j List1.Clear: List2.Clear End Sub

1、Do

2、List1.List(0)>List2.list(0)或List2.List(0)＜List1.list(0) 3、Next I 第3题：【程序说明】

下列程序运行时，先输入各公司月销售额，然后单击命令按钮，图片框中用红、绿、蓝色显示A、B、C公司销售额的圆饼图（如下图所示）。

Private Sub Form_Load()

Picture1.Width = Picture1.Height End Sub

Private Sub Command1_Click() Const PI = 3.141593

Dim a As Single, b As Single, c As Single, x As Single Picture1.Scale (-8, -8)-(8, 8) ----1----

a = Text1(0).Text: b = Text1(1).Text c = Text1(2).Text x =----2----

Picture1.FillColor = RGB(255, 0, 0) Picture1.Circle (0, 0), 6, 0, ----3---- Picture1.FillColor = RGB(0, 255, 0)

Picture1.Circle (0, 0), 6, 0, -a * x, -(a + b) * x Picture1.FillColor = vbBlue

Picture1.Circle (0, 0), 6, 0, -(a + b) * x, -(a + b + c) * x End Sub

1、Picture1.FillStyle = 0 2、2 * PI / (a + b + c) 3、-2 * PI, -a * x 第4题：【程序说明】下列程序运行时，在驱动器列表框中选择驱动器，目录列表框相应变为所选驱动器的目录列表，在目录列表框中选择相应目录，文件列表框的内容变为所选目录下的文件列表，只要单击其中扩展名为＂.txt＂的文件，即可在文本框中显示文件中的内容。

Dim PathStr As String Private Sub Dir1_Change() ----1---- End Sub

Private Sub Drive1_Change()

Dir1.Path=Drive1.Drive End Sub

Private Sub File1_Click() Dim c As string

if right(file1.path,1)=\ ----2---- else

PathStr=File1.Path & “\\” & File1.FileName end if

Open Pathstr for input as #1 Do while not Eof（1） Line Input #1,c

Text1.text=----3---- loop Close #1 End Sub End Sub

1、File1. Path =dir1.Path

2、pathstr=file1.path & file1.filename

或file1.path+file1.filename 3、Text1.text+c

或Text1+c或text1 & c或text1.text & c

三、填空题 第1题：【程序说明】

以下程序运行时，打印输出一个如图所示的上下三角形图案。

Private Sub Command1_Click() Dim I As Integer, j As Integer Form1.Cls For I = 1 To 11

If I<=----1---- Then Print Spc(I - 1);

For j = 1 To 2 * (7 - I) - 1 Print \ Next j ----2----

Else '后6行为正三角 Print Spc(11 - I);

For j = 1 To 2 * (I - 5) - 1 ----3---- Next j Print End If Next I End Sub

1、6或5 2、Print 3、Print \ 第2题：【程序说明】

本程序是利用计时器控件来实现文字颜色在窗体有规律变化。最初的标签文字颜色是Qbcolor(0),过一秒后变成Qbcolor(1)，再过一秒后变成Qbcolor(2)??变成Qbcolor(15)，再变成Qbcolor(0)。直至按”停止”按钮cmd1，窗体停止变化。 Dim s as integer

Private Sub Form_Load()

Label1.caption=”中国北京”：s=0

Timer1.enabled=true：Timer1.Interval = 1000 Label1.forecolor=Qbcolor(s) End Sub Private Sub Timer1_Timer() S= ----1----

Label1.forecolor=Qbcolor(s) If ----2---- Then s = 0 End Sub

Private Sub cmd1_click()’停止按钮 ----3---- = false End Sub

1、S+1或1+S 2、S=15

3、Timer1.enabled 第3题：【程序说明】 在组合框中选择形状后，图片框中控件Shape1的形状、填充样式和颜色均作相应变化。程序运行时如下图

Private Sub Combo1_Click()

Shape1.Shape = = Combo1.List(----1----) Shape1.FillColor = QBColor(Int(Rnd * 16)) ----2----= Int(Rnd * 8) End Sub

Private Sub Form_Load() Dim I As Integer

For ----3----: Combo1.AddItem Str(I): Next I End Sub

1、Combo1.ListIndex 2、Shape1.FillStyle 3、i = 0 To 5

第4题：【程序说明】

下列程序运行时，在驱动器列表框中选择驱动器，目录列表框相应变为所选驱动器的目录列表，在目录列表框中选择相应目录，文件列表框的内容变为所选目录下的文件列表；要求单击命令按钮Command1后，将文本框中的内容保存至目录列表框中所选目录下的data1.txt文件中,若data1.txt不存在，则进行保存时将其创建。 Private Sub Dir1_Change() ----1---- End Sub

Private Sub Drive1_Change() Dir1.Path=Drive1.Drive End Sub

Private Sub Command1_Click() Dim fn as string

fn=dir1.path+”data1.txt” Open ----2----as #1 Print #1,Text1.text ----3---- End Sub

1、File1.Path =dir1.Path

2、fn for output或fn for append

3、Close #1或Close 三、填空题 第1题：【程序说明】

以下程序运行时，打印输出一个如图所示的菱形图案。

Private Sub Command1_Click()

Dim I As Integer,j As Integer, n As Integer Form1.Cls For I = 1 To 9

If I <= 5 Then '打印上半部 Print ----1---- '定位 For j = 1 To ----2---- Print \ Next j Print Else

Print Spc(I - 5); For j = 1 To ----3---- Print \ Next j Print End If Next I End Sub

1、Spc(5 - I);或Tab(5 - I + 1);或Tab(6 - I ); 2、2 * I - 1或I*2-1

3、2 * (10 - I) - 1或（10-I)*2-1或19-2*I或-2*I+19 第2题：【程序说明】

本程序是利用计时器控件来实现文字从窗体上往下掉落。

（1）运行时每隔0.5秒标签框内的文字从窗体上边向下边移动100个单位，当标签框的上边界超出窗体的下边界时，标签再次从窗体的上边进入窗体（尾部先进入）。 （2）文字移动时颜色不断产生随机变化。 Private Sub Form_Load() Form1.WindowState = 2 Timer1.Interval =----1---- End Sub

Private Sub Timer1_Timer()

Label1.ForeColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd) If Label1.Top >=----2---- Then ----3---- Else

Label1.Top = Label1.Top + 100 End If End Sub

1、500

2、Form1.Scaleheight

3、Label1.Top = -Label1.Height 第3题：【程序说明】

自制一个简单的图片浏览器。在窗体上建立一个图片框控件、一个时钟控件和一个命令按钮。运行时，显示第一张图片，单击“浏览”按钮，每隔1秒在图片框中显示另一张图片，显示到最后一张图片时，又从第一张开始显示。（假设在C:\\Windows目录下有1.bmp、2.bmp、??、8.bmp这样8张图片需显示） Dim I As Integer

Private Sub Form_Load() ----1----

Picture1.Picture = LoadPicture(\ Picture1.AutoSize = True End Sub Private Sub Timer1_Timer() Dim ff As String If I <= 7 Then ----2---- Else I = 1 End If

ff = \ Picture1.Picture = ----3---- End Sub

1、i=1

2、I=I+1或I=1+I 3、LoadPicture(ff) 第4题：【程序说明】打开文本文件e:\\data1.txt，从中找出所有的大写英文字母；并将这些字母写入文件e:\\data2.txt中。

Private Sub Command1_Click() Dim c As string ----1----

Open “e:\\data2.txt” for output as #2 Do while not Eof（1） Line Input #1,c For I=1 to len( c)

If mid(c,I,1)>=65 and mid(c,I,1)<=90 then print ----2---- Next I loop Close #1 ----3---- End Sub

1、Open “e:\\data1.txt” for input as #1 2、#2, mid(c,I,1) 3、close #2 三、填空题 第1题：【程序说明】

以下程序运行时，计算下列级数的和，直到累加的末项之绝对值小于10的-7次方为止。

Private Sub Command1_Click()

Dim s As Double, x As Double, t As Double, I As Integer x = InputBox(\ s = 1 I = 1

t =----1----

Do While ----2----<1e-7 t = -t * x / I: I = I + 1 s=----3---- Loop Print s End Sub 1、1

2、Abs(t) 3、s + t或t+s 第2题：【程序说明】

以下程序可以将列表框中同时选中的多个列表项删除，请将程序补充完整。 Private Sub cmdDel_Click() i = 0

Do While i<----1----

If List1.Selected(i) = True Then ----2---- Else

----3---- End If Loop End Sub

1、list1.listcount

2、List1.removeitem I

3、I=I+1或I=1+I 第3题：【程序说明】

自制一个简单的图片浏览器。在窗体上建立一个图片框控件、一个时钟控件和一个命令按钮。运行时，显示第一张图片，单击“浏览”按钮每隔1秒在图片框中显示另一张图片，显示到最后一张图片时，又从第一张开始显示。（假设在C:\\Windows目录下有1.jpg、2.jpg、??、8.jpg这样8张图片需显示） Dim i As Integer

Private Sub Form_Load() i = 1

Picture1.Picture = ----1---- Picture1.AutoSize = True End Sub

Private Sub Timer1_Timer() If i <= 7 Then i =i+1 Else i = 1 End If ----2---- End Sub Sub pic()

Dim fn As String fn = \ Picture1.Picture = ----3---- End Sub 1、LoadPicture(\ 2、Call pic或pic 3、LoadPicture(fn) 第4题：【程序说明】打开文本文件e:\\data1.txt，统计所有小写英文字母的个数，并将统计结果写入文件e:\\data2.txt中。 Dim n as integer

Private Sub Command1_Click() Dim c As string ----1----

Open “e:\\data2.tx” for output as #2 Do while not Eof（1） Line Input #1,c For i=1 to len(c)

If mid(c,I,1)>=90 and mid(c,I,i)<=122 then n=n+1 Next i Loop ----2---- ----3---- close #2

End Sub

1、Open “e:\\data1.txt” for input as #1 2、print #2,n或write #2,n 3、Close #1 三、填空题 第1题：【程序说明】

下面是一段计算数学表达式1-1/2！+1/3！-1/4！+??+（-1）n+1 /n!的程序。 Private Sub form_click()

Dim n as integer, p as integer, s as single, q as integer, I as integer n = InputBox(\请输入n的值：\ s = 0: p =----1----: q = 1 For I = 1 To n p = -p

q = ----2---- s = ----3---- Next I Print s End Sub

1、-1 2、q*I

3、s+p/q或p/q+s 第2题：【程序说明】 下面程序反映A B两部门人员调动的程序，要求： 左侧列表框(list1)中的项目均按字母升序排列。双击左侧列表框中的某个项目时，该项目从本列表框消失，并出现在另一个列表框list2中。

界面设计 需要设置

List1. ----1---- = True ‘左侧列表框中的项目均按字母升序排列

过程设计：

Private Sub Form_Load()

List1.AddItem \：List1.AddItem \ ：List1.AddItem \

List1.AddItem \ ：List1.AddItem \ ：List1.AddItem \

List1.AddItem \ ：List1.AddItem \：List1.AddItem

\

List1.AddItem \ ：List1.AddItem \ ：List1.AddItem \ End Sub

Private Sub List1_DblClick() ----2---- ----3---- end sub

1、sorted

2、List2.AddItem List1.Text

3、List1.RemoveItem List1.ListIndex 第3题：【程序说明】

下列程序运行时，先输入各公司月销售额，然后单击命令按钮，图片框中用红、绿、蓝色显示A、B、C公司销售额的圆饼图（如下图所示）。

Private Sub Form_Load()

Picture1.Width = Picture1.Height End Sub

Private Sub Command1_Click() Const PI = 3.141593

Dim a As Single, b As Single, c As Single, x As Single Picture1.Scale (-8, -8)-(8, 8) ----1----

a = Text1(0).Text: b = Text1(1).Text c = Text1(2).Text x =----2----

Picture1.FillColor = RGB(255, 0, 0) Picture1.Circle (0, 0), 6, 0, ----3---- Picture1.FillColor = RGB(0, 255, 0)

Picture1.Circle (0, 0), 6, 0, -a * x, -(a + b) * x Picture1.FillColor = vbBlue

Picture1.Circle (0, 0), 6, 0, -(a + b) * x, -(a + b + c) * x End Sub

1、Picture1.FillStyle = 0 2、2 * PI / (a + b + c) 3、-2 * PI, -a * x 第4题：【程序说明】下列程序运行时，在驱动器列表框中选择驱动器，目录列表框相应变为所选驱动器的目录列表，在目录列表框中选择相应目录，文件列表框的内容变为所选目录下的文件列表，只要单击其中扩展名为＂.txt＂的文件，则将文件中的内容按行添加到列表框中。

Dim PathStr As String Private Sub Dir1_Change() ----1---- End Sub

Private Sub Drive1_Change() Dir1.Path=Drive1.Drive End Sub

Private Sub File1_Click()

if right(file1.path,1)=\

PathStr=File1.Path & File1.FileName else PathStr=File1.Path & “\\” & File1.FileName end if End Sub Private Sub Command1_Click() Dim str1 As string Open Pathstr for input as #1 Do while ----2---- ----3----

List1.additem str1 loop Close #1 End Sub

1、File1. Path =dir1.Path 2、not Eof（1） 3、Line Input #1,str1 三、填空题 第1题：【程序说明】

下列程序的功能是找出被3、5、7整除的最小5个正整数。 Private Sub Form_Click() Dim Ncount%, n% Ncount =----1---- n = 1 Do

n = n + 1

If ----2---- Then Print n

Ncount = Ncount + 1 End If

Loop Until ----3---- End Sub

1、0

2、n mod 3 =0 and n mod 5 =0 and mod 7=0 3、Ncount=5 第2题：【程序说明】

窗体上有一个文本框控件，通过水平滚动条控件数组设置预览区标签label2的颜色。点击应用按钮把预览中标签的颜色作为文本框的前景色。

Private Sub Command1_Click() Text1.ForeColor =----1---- End Sub Private Sub Form_Load()

Text1.Text = \忆江南\ Text1.Text = Text1.Text + \最忆是杭州\ End Sub

Private Sub HScroll1_Change(Index As Integer) Label2.BackColor = RGB（---2---） End Sub

Private Sub HScroll1_Scroll(Index As Integer) Call---3--- End Sub

1、Label2.BackColor

2、HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value 3、HScroll1_Change(Index) 第3题：【程序说明】

程序运行时界面如下图，点击“颜色选择”按钮，弹出颜色对话框将选中的颜色显示在控件Pic2中，单击“线形选择”下的单选按钮可选择粗、细两种线形，在控件Pic2中拖动鼠标，以选择好的颜色和线形，以及鼠标按下点和弹起点的坐标为矩形对角顶点画矩形。

Dim x1 As Single, y1 As Single Dim hColor As Long

Private Sub Command1_Click() CommonDialog1.ShowColor ----1----

Pic2.BackColor = hColor End Sub

Private Sub Form_Load() Option1(1).Value = True End Sub Private Sub Option1_Click(Index As Integer) ----2---- Case 0 Pic1.DrawWidth = 5 Case 1

Pic1.DrawWidth = 1 End Select End Sub

Private Sub Pic1_Mousedown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) x1 = X:y1 = Y End Sub

Private Sub Pic1_Mouseup(Button As Integer, Shift As Integer, _ X As Single, Y As Single) ----3---- End Sub

1、hColor = CommonDialog1.Color 2、Select Case Index

3、Pic1.Line (x1, y1)-(X, Y), hColor, B 第4题：【程序说明】打开文本文件e:\\data1.txt，从中找出所有的奇数；并将这些奇数写入文件e:\\data2.txt中。

Private Sub Command1_Click()

Dim I As Integer ----1----

Open “e:\\data2.txt” for output as #2 Do while not Eof（1） Input #1,I

If I mod 2=1 then----2---- loop

Close #1 ----3---- End Sub

1、Open “e:\\data1.txt” for input as #1 2、print #1,I或write #1,I 3、close #2 三、填空题 第1题：【程序说明】

以下Sub过程Ncount为一个统计程序，用于统计字符串内包含的字母和其他字符的个数。其中参数mstr存放被统计的字符串，Scount用于存放字母个数, Ocount存放其他字符个数。

Public Sub Ncount(mStr As String, Scount As Integer, Ocount As Integer) Dim ml As Integer, i As Integer, mstrc As String ml = ----1---- For i = 1 To ml mstrc = ----2---- Select Case ----3---- Case \ Scount = Scount + 1 Case Else

Ocount = Ocount + 1 End Select Next i End Sub

1、Len(mStr) 2、Mid(mStr, i, 1) 3、mStrc 第2题：【程序说明】

窗体上有一个文本框控件，通过水平滚动条设置文本框的背景颜色。背景颜色可以是Qbcolor（0）～Qbcolor（15）,当滚动滑块位于最左侧时背景是Qbcolor（0）。

Private form_load()

Text1.text=”美丽心情” ----1---- ‘text1居中对齐

Hscroll1.smallchange=1:Hscroll1.largechange=1 Hscroll1.min=0 :Hscroll1.max=15 Hscroll1.value=15 End Sub

Private Sub HScroll1_Change() ----2---- End Sub

Private Sub HScroll1_Scroll() Call ----3---- End Sub

1、Text1.alignment=2

2、Text1.BackColor =QBColor(HScroll1.Value) 3、HScroll1_Change 第3题：【程序说明】

自制一个简单的图片浏览器。在窗体上建立一个图片框控件、一个时钟控件和一个命令按钮。运行时，显示第一张图片，单击“浏览”按钮每隔1秒在图片框中显示另一张图片，显示到最后一张图片时，又从第一张开始显示。（假设在C:\\Windows目录下有1.bmp、2.bmp、??、8.bmp这样8张图片需显示） Dim i As Integer Private Sub Form_Load() ----1----

Picture1.Picture = LoadPicture(\ Picture1.AutoSize = True End Sub

Private Sub Timer1_Timer() If i <= 7 Then ----2---- Else

i = 1 End If

Picture1.Picture = ----3---- End Sub

1、i=1 2、I=I+1

3、LoadPicture(\

或LoadPicture(\

第4题：【程序说明】文件c:\\a1.dat中存放若干个学生信息的记录（行），按Command1按钮后，将文件中奇数行记录读出并写入c:\\a2.dat中。 Private Sub Command1_Click() Dim bs As String,cs As String Open \

Open \ i=0

Do While ----2---- i=i+1

Line Input #1, cs

if i mod 2=1 Then ----3---- Loop

Close #1: Close #2 End Sub

1、For Input As #1 2、Not Eof(1) 3、print #2,cs 三、填空题 第1题：【程序说明】

下列程序用于在一个字符串中查找子串”at”，并用消息框给出查找结果的报告：没有找到或找到的个数。

Private Sub Form_click()

Dim str1 As String, n As Integer, sum As Integer, I As Integer str1 = InputBox(\请输入一个字符串:\ n = ----1---- I = 1 sum = 0 Do While I <= n If ----2---- = \ sum = sum + 1 End If I = I + 1 Loop

If ----3---- Then

MsgBox \没有找到！\ Else

MsgBox \找到了\个\ End If End Sub

Len(str1) Mid(str1, i, 2) sum = 0 第2题：【程序说明】

窗体是一个字体设置程序。单击字体组合框可以设置预览区域的标签文字的字体，单击字形组合框可以设置预览区域的标签文字的字形。字体组合框名字为Cboziti、字形组合框名字为Cbozixing、复选框名字为check1、标签文字名字为label5。

本文来源：https://www.bwwdw.com/article/8ga2.html