vb程序填空题

1、三、填空题1、【程序说明】下列程序显示所有 3 个数码各不相同的 3 位数，要求按紧凑格式每行显示 15 个数，并统计 有多少个这样的三位数。Private Sub Form_Click()Dim n As Integer, a As Integer, b As Integer, c As IntegerDim x As IntegerFor a =0 to 9 ' 个位数数码For b = 0 To 9 ' 十位数数码For c = 1If a<>b And b<>c And a<>c Thenx =a+10*(b+10*c) n = 23

2、If n mod 15 = 0 Then PrintEnd IfNext c,b,aPrint " 总共有这样的三位数 " n; " 个 "End Sub1、1 to 92、n+1 或 1+n3、print x;2、【程序说明】窗体是密码检验程序。 程序运行时， 用户在文本框输入密码， 单击确定按钮对密码进行检验。 密码正确后，标签 label2 显示“密码正确” ；若密码不正确，标签显示“密码错误” ，若密码 输入错误达 3 次，将自动退出程序。Private Sub Command1_Click() ' 确定按钮Static n As Int

3、eger1 mypwd As String = "123456"' 预设密码为自定义常量n = n + 1Label2.Visible = TrueIf 2 ThenLabel2.Caption = " 密码正确 "ElseIf n < 3 Then Label2.Caption = " 密码错误！ "Text1.Text = ""Else3End IfEnd IfEnd Sub1、CONST2、Text1.text=mypwd 或 mypwd=text1.text 或 Text1=mypwd 或 m

4、ypwd=text13、End 3、【程序说明】在组合框中选择形状后，窗体中控件Shapel的形状和边框线作相应变化。程序运行时如下图Private Sub Combo1_Click()Shapel.Shape = = Combo1.List(1)_2= In t(R nd * 7)End SubPrivate Sub Form_Load()Dim I As In tegerFor I = 0 To 5:3：Next IEnd Sub1、Combo1.ListIndex2、Shape1.BorderStyle3、Combo1.Addltem Str(I)或 Combo1.list(I)=I4、

5、【程序说明】右击窗体则打开Windows自带的计算器"C:windowscalc.exe ”；单击"退出”按钮时将右击窗体的次数写入磁盘文件，并结束程序运行。1Private Sub Form_MouseUp(Butt on As In teger, Shift As In teger, _X As Si ngle, Y As Si ngle)If Button = 2 Then n = n + 1: Shell “ C:windowscalc.exe ”End SubPrivate Sub Comma nd1_Click()Ope n "C:a1.dat&quo

6、t; For-2-Print #1,n: Close #13End Sub1、dim n as integer2、output as #13、end三、填空题(请把正确的选项填入试题前的空格中)第1题：【程序说明】单击窗体后，在窗体上输出以下图形Private Sub Form_Click()Dim 1%, j%, st$For I = 1 To 1 st = Chr$(65 + I - 1)Print Tab(10 -I);Forj = 1 To IPrint st;""Next j2Next IFor I =7 To 1 Step -1st = Chr$(65 + I

7、- 1)Print Tab(10 - I);For j = 1 To 3Print st;""Next jPrintNext IEnd Sub1、62、Print3、I第2题：【程序说明】窗体是简易文本编辑器程序。通过文本框和剪贴板实现全选、复制、粘贴和删除操作。Private Sub Command1_Click()'全选按钮Textl.SelStart = 0Textl.SelLe ngth =1 Text1.SetFocusComma nd2.E nabled = TrueComma nd3.E nabled = TrueComma nd4.E nabled

8、= TrueEnd SubPrivate Sub Command2_Click()'复制按钮Clipboard.ClearClipboard.SetText Text1.SelTextComma nd3.E nabled = TrueText1.SetFocusEnd SubPrivate Sub Command3_Click()'粘贴按钮Text1.SelText = -2-Text1.SetFocusEnd SubPrivate Sub Command4_Click()'删除按钮3Comma nd2.E nabled = FalseComma nd3.E nable

9、d = FalseComma nd4.E nabled = FalseEnd SubPrivate Sub Form_Load()Comma nd2.E nabled = FalseComma nd3.E nabled = FalseComma nd4.E nabled = FalseEnd SubPrivate Sub Text1_MouseUp(Butt on As In teger, Shift As In teger, X As Sin gle, Y As Sin gle)If Text1.SelLength <> 0 ThenComma nd2.E nabled = Tr

10、ueComma nd4.E nabled = TrueElseCommand2.Enabled = FalseCommand4.Enabled = FalseEnd IfEnd Sub1、Len(Text1.Text) 或 Len(Text1)2、Clipboard.GetText3、Text1.SelText = ""第 3 题：【程序说明】 自制一个简单的图片浏览器。 在窗体上建立一个图片框控件、 一个时钟控件和一个命令按钮。 运行时，显示第一张图片，单击“浏览”按钮每隔 1 秒在图片框中显示另一张图片，显示到最后一张图片时，又从第一张开始显示。(假设在C:Window

11、s目录下有1.bmp、2.bmp、8.bmp 这样 8 张图片需显示)Dim I As IntegerPrivate Sub Form_Load()I= 1Picture1.Picture = LoadPicture("c:windows1.bmp")Picture1.AutoSize = TrueEnd SubPrivate Sub Timer1_Timer()If I <= 7 Then2ElseI = 1End IfPicture1.Picture = 3End Sub1、12、I=I+1 或 I=1+I3、LoadPicture("c:windows

12、" & I & ".bmp") 或 LoadPicture("c:windows" + trim(str(I) + ".bmp")第 4 题：【程序说明】文件 c:a1.dat 中存放若干个学生信息的记录(行) ，按 Command1 按 钮后，查找文件中姓名与输入姓名相同的记录，找到则删除该记录。Private Sub Command1_Click()Dim bs As String,cs As StringOpen "c:a1.dat"1Open "temp.dat"

13、; For Output As #2 bs = InputBox(" 输入学生姓名 ")Do While Not Eof(1)Line Input #1, cs if InStr(cs, Trim(bs) =2Then print #2,csLoopClose #1: Close #2Kill3Name “ temp.dat” as “ c:a1.dat ”End Sub1、For Input As #12、03、"c:a1.dat"三、填空题1：【程序说明】该程序执行后，输出一个右上三角元素(含对角线)为1,其余元素为 0的5 X 5的矩阵。Priva

14、te Sub Form_Click()Dim a(1 To 5, 1 To 5) As IntegerDim I As Integer, j As IntegerFor I = 1 To 5For j = 1 To 5If 1 Then2End IfNext jNext IFor I = 1 To 5For j = 1 To 5Form2.Print " " a(I, j);Next j3Next IEnd Sub1 、 I<=j 或 j>=I2、a(I,j)=13、 print2：【程序说明】如图,程序运行时,用户可以在文本框中输入文本,单击 command1

15、 “添加”按钮后将文本中输入的内容加到列表框的末尾,用户选某列表框的某一个列表项后,单击command2“删除”按钮,将删除该列表项；如果没有任何一项选中,将有出错提示"先选择,再删除！请输入新的运动顶目:运动项旦淸单：球 球球球球乓 篮网排足乒添加删除-Ini 圖Private Sub Command1_Click() 添加按钮If Le n(Textl.Text) <> 0 The n1Text1.Text =""Text1.SetFocusEnd IfEnd SubPrivate Sub Comma nd2_Click()'删除按钮If

16、2The nMsgBox "先选择，再删除！”Else3End IfEnd Sub1、 List1.AddItem Text1.Text2、List1.ListIndex = -13、List1.Removeltem List1.ListIndex3:【程序说明】自制一个简单的图片浏览器。在窗体上建立一个图片框控件、一个时钟控件和一个命令按钮。运行时，显示第一张图片，单击“浏览”按钮每隔1秒在图片框中显示另一张图片，显示到最后一张图片时，又从第一张开始显示。(假设在 C:Wi ndows目录下有 1.bmp、2.bmp、8.bmp这样8张图片需显示)Dim 1- As In tege

17、rPrivate Sub Form_Load()I = 1Picture1.Picture = LoadPicture("c:w in dows1.bmp")Picture1.AutoSize = TrueEnd SubPrivate SubTimer1 -2-If 3 ThenI =I+1 ElseI = 1 End If Picture1.Picture = LoadPicture("c:windows" & I & ".bmp") End Sub1、I2、Timer()3、I <= 7 或 I<84：

18、【程序说明】 本程序统计3100之间所有素数的个数；最后将素数的个数写入顺序文件 e:dataout.txt 中。Private Sub Command1_Click() Dim i As Integer, flag As Boolean Dim t1 As Integer, t2 As Integer 1i = 0For t1 = 3 To 100flag = TrueFor t2 = 2 To Int(Sqr(t1) If 2 then flag = FalseNext t2If flag theni = i+1 End If Next t13 Close #1 End Sub1 、 op

19、en "e:dataout.txt" for output as #1 或 open "e:dataout.txt" for append as #1 2、 t1 mod t2=03、Write #1,I 或 print #1,I 三、填空题第1题：【程序说明】 以下过程是将一个英文句子的每个单词的首字母都变成大写。 从键盘上任意输入一条 英文句子，将句子中的每个单词的首字母都变成大写例如：输入"Iam a good student" 。则要求输出 "I Am A Good Student" 。 Public Su

20、b Uppersen()Dim oldsen As String, newsen As StringDim char As String, lastchar As StringDim k As Integer, i As Integeroldsen = InputBox(" 请输入英文句子： ")k = 1'以空格作为单词的界定，空格后的字母转换为大写字母 lastchar = 2For i = 1 To kchar = 3If lastchar = " " Then char = UCase(char)End Ifnewsen = newsen

21、 & charlastchar = charNext iForm1.Print "input:" oldsenForm1.Print "output:" newsenEnd Sub1、Len(oldsen)2、" "3、 Mid(oldsen, I, 1)第 2 题：【程序说明】 以下程序可以将列表框中同时选中的多个列表项删除， 顺序从最后一项开始往前删 除，请将程序补充完整。Private Sub cmdDel_Click()Dim i As Integeri = List1.ListCount - 1 While i &g

22、t;=1If List1.Selected(i) = True Then2 End If 3 Wend End Sub1、02、List1.RemoveItem I3、i = i - 1第 3 题：【程序说明】自制一个简单的图片浏览器。 在窗体上建立一个图片框控件、 一个时钟控件和一个命 令按钮。 运行时，显示第一张图片， 单击“浏览”按钮每隔 1 秒在图片框中显示另一张图片， 显示到最后一张图片时，又从第一张开始显示。 (假设在 C:Windows 目录下有 1.jpg 、2. jpg、8.jpg这样8张图片需显示)Dim i As IntegerPrivate Sub Form_Load(

23、)i = 1Picture1.Picture = 1Picture1.AutoSize = TrueEnd SubPrivate Sub Timer1_Timer()If i <= 7 Theni =i+1Elsei = 1End If2End SubSub pic()Dim fn As Stringfn = "c:windows" & i & ".jpg" Picture1.Picture = 3End Sub1、LoadPicture("c:windows1.jpg")2、Call pic 或 pic3、Lo

24、adPicture(fn)第 4 题：【程序说明】在窗体内设置一个弹出式菜单，分别对文本框进行“显示时间” "显示日期”和"清空”操作。 ml为不可见菜单项，mil为其子菜单(共3项，均同名, 索引值依次为 0， 1 ， 2)。鼠标右击窗体后显示弹出式菜单。Private Sub Form_Load()Timer1.Enabled = False ' 锁定定时器(时间间隔已设置为 1 秒) End SubPrivate Sub m11_Click(Index As Integer)Select Case IndexCase 0 : Timer1.Enabled =1

25、Case 1Timer1.Enabled = False : Text1.Text= " 日期： " + 2Case 2Text1.Text = ""End SelectEnd SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, _x As Single, y As Single)If Button = 2 Then 3, 2End SubPrivate Sub Timer1_Timer()Text1.Text = " 时间： " + TimeEnd S

26、ub1、 True2、 Date3、 PopUpMenu m1三、填空题第 1 题：【程序说明】以下程序执行后将产生一个6X6的转置矩阵，将二维数组中所有行和对应列的元素进行交换。Private Sub Form_Click()Dim a(1 To 6, 1 To 6) As IntegerDim i As Integer, j As Integer Form1.Print " 原始数据 " For i = 1 To 6For j = 1 To 6 a(i, j) = Int(Rnd * 10) Form1.Print a(i, j);Next jForm1.PrintNe

27、xt iFor i = 2 To 6For j = 1 To 1 2 Next jNext iForm1.Print " 转置后数据 "For i = 1 To 6For j = 1 To 6 3 Next j Form1.PrintNext iEnd SubPublic Sub Swap(a As Integer, b As Integer)Dim temp As Integer temp = a a = b b = tempEnd Sub1、I2、Call Swap(a(l, j), a(j, I)或.Swap a(l, j), a(j, I)3、Print a(i,

28、j);第 2 题：【程序说明】本程序利用 1个定时器、 1个文本框和 2个命令按钮制作一个动态表。各控件名称取缺 省值，控件 Command1、 Command2 标题分别为“开始” 、“结束”。运行时，单击“开始”按钮后表开始每分钟计一次时，并在文本框上显示总分钟数；单击“结束”按钮后，计时结 束，在窗体上显示出运行的时间(折算成小时、分钟，不计算秒数)。Dim x as longPrivate Sub Form_Load()Timerl.lnterval = 60000: Timer1.Enabled = FalseEnd SubPrivate Sub Comma nd1_Click()C

29、lsx = 01End SubPrivate Sub Comma nd2_Click()Dim h As Integer, m As Integer, s As IntegerTimer1.E nabled = Falseh =2m = x mod 60Print "运行了 ” + Str(h) + "小时 ” + Str(m) + "分”End SubPrivate Sub Timer1_Timer()3Text1.text = xEnd Sub1、Timer1.enabled=true2、x603、x=x+1第3题：【程序说明】程序运行时界面如下图，红桃、梅花

30、、方块、黑桃的图形文件在界面设计时已经在属性窗口中设置好，而且使用的是Image1控件数组，程序运行时，单击Image1时，Image2显示相应的图片，同时在Picture1中用蓝色显示哪个图案被选中的文字信息。旨 Form2imagelit件使用揑件数组方片被选中Private Sub Image1_Click(I ndex As In teger)Picture1.FontSize = 202 = vbBluePicture1.Cls3Case 0Picture1.Print " 红桃被选中 "Case 1Picture1.Print " 草花被选中 &quo

31、t;Case 2Picture1.Print " 方片被选中 "Case 3Picture1.Print " 黑桃被选中 "End SelectEnd Sub1、Image2.Picture =Image1(Index).Picture2、Picture1.ForeColor3、Select Case Index第 4 题：【程序说明】程序运行时，通过单击窗体显示“字体”对话框，并对文本框的字体 、字号和字效等进行设置。Private Sub Form_Click()1 = 259CommonDialog1.Action =2Text1.FontBold

32、 =3Text1.FontItalic = CommonDialog1.FontItalicText1.FontName = CommonDialog1.FontName Text1.FontSize = CommonDialog1.FontSize End Sub1 、 CommonDialog1.Flags2、43、CommonDialog1.FontBold三、填空题第 1 题：【程序说明】 以下程序执行后将输出 100 到 200 之间所有的素数，并统计素数的个数 Private Sub Form_Click()Dim i%, j%, k%, t% 't 为统计素数的个数Dim

33、 b As BooleanFor i = 100 To 200b = Truek= 1 j = Int(Sqr(i)Do While k <= j And bIf i Mod k = 0 Then 2 End If3Loopif b=true the nt = t + 1Forml.Print iEnd IfNext iPrin t "t=" tEnd Sub1、22、b = False3、k = k + 1第2题：【程序说明】下列程序运行时，单击 Comma nd1(0)后，清空组合框原有内容，从外部文件中读入的数据显示在组合框中，如图所示。单击Comma nd1(

34、1)后，将组合框中的各表项输出到外部文件；单击 Comma nd1(2)后，将组合框中文本框部分的文本添加作为组合框的表项；单 击Command1 (3)后，将组合框中选中的表项删除。.Fpnnl-I XI保宿散孫Private Sub Comma nd1_Click(l ndex As In teger) Select Case In dexCase 01Ope n "d:aaa.txt" For In put As #1Do While Not EOF(1)Line In put #1, a$Combo1.AddItem a$LoopClose #1Case 1Ope

35、n "d:aaa.txt" For Output As #1For I% = 0 To 2Print #1, Combo1. List(I%)Next I%Close #1Case 2'添加Combo1.AddItem Combo1.TextCase 3'删除3End SelectEnd Sub1、Combo1.Clear2、Combo1.ListCount - 13、 Combo1.RemoveItem Combo1.ListIndex第 3 题：【程序说明】 程序运行后，鼠标多次在图片框内拖动后，绘制出多个绿色边框矩形，填充样式在 “实心”、“透明”间交

36、替变换。1Private Sub Picture1_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single) x0 = X: y0 = YEnd SubPrivate Sub Picture1_MouseUp(Button As Integer, Shift As Integer, _X As Single, Y As Single)If 2ThenPicture1.FillStyle = 0ElsePicture1.FillStyle = 1End If 3 End Sub1、Dim x0 As Si

37、ngle, y0 As Single 或 Dim x0!, y0!2、Picture1.FillStyle <> 0 或 Picture1.FillStyle=13、Picture1.Line (x0, y0)-(X, Y), RGB(0, 255, 0), B第 4 题：【程序说明】 设计一个简单的图片浏览程序。单击窗体后，显示“打开文件”对话框，选中一个 图片文件后， 将其显示在图片框中。 要求“打开文件” 对话框只能显示 bmp 文件或 gif 文件。 Private Sub Form_Click()CommonDialog1.DialogTitle = ”打开图片文件”Co

38、mmonDialog1.InitDir=”Picct:ure ”1="bmp 文件 |*.bmp|gif 文件 |*.gif" 2Picture1.Picture=LoadPicture(3)End Sub1、CommonDialog1.Filter2、CommonDialog1.ShowOpen 或 CommonDialog1.Action=13、CommonDialog1.FileName三、填空题第 1 题：【程序说明】下列程序的功能是找出被5、7除，余数为1的最小5个正整数。Private Sub Form_Click() Dim Ncou nt%, n% Ncou

39、nt =1 n = 1Don = n + 1If 2The nPrint nNcou nt = Ncou nt + 1End IfLoop Un til -3-=5End Sub1、02、n Mod 5 = 1 And n Mod 7 = 13、Ncount第2题：【程序说明】本程序是一个比赛评分程序。在窗体上有text1 (0 )text1 (6)文本框数组，显示最后得分的text2文本框和"计算得分” command1命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在text2文本框中(去掉一个最高分和一个最低分后的平均分)Private Su

40、b Comma nd1_Click()Dim k As In tegerDim sum As Si ngle, max As Si ngle, min As Si nglesum = Text1(0): max = Text1(0): -1-For 2step 1If max < Text1(k) The nmax = Text1(k)End IfIf min > Text1(k) The nmin = Text1(k)End Ifsum = sum + Text1(k)Next kText2.Text = (-3-) / 5End Sub1、min = Text1(0)或 min

41、 = Text1(0).text 或 min =max2、k = 1 To 63、sum - min - max 或 sum - max - min第 3 题：【程序说明】窗体上有两个图片框控件Picturel和Picture2 ,两个命令按钮command1 (标题为"加载”)和command2 (标题为"复制”)，程序运行时，"复制”按钮不可用，图片框控件Picture2 和 Picture1 大小相同，单击“加载”按钮，清除 Picture2 中的图片，打开通用对话框，选择 一个图形文件，在图片框控件 Picture1 中显示，同时“复制”按钮可用， “加载

42、”按钮不可 用；单击“复制”按钮，将 Picture1 的图片复制到 Picture2 中，同时“加载”按钮可用， “复 制” 按钮不可用。Private Sub Form_Load()Picture2.Width = Picture1.Width 1Command2.Enabled = FalseEnd SubPrivate Sub command1_Click()CommonDialog1.ShowOpen2Picture1.Picture = 3Command2.Enabled = TrueCommand1.Enabled = FalseEnd SubPrivate Sub comman

43、d2_Click()Picture2.Picture = Picture1.PictureCommand1.Enabled = TrueCommand2.Enabled = FalseEnd Sub1 、 Picture2.Height = Picture1.Height2、Picture2.Picture = LoadPicture("")3、LoadPicture(CommonDialog1.FileName)第 4 题：【程序说明】文本文件“ C:mydoczg.txt ”包括工资、职务情况，每条记录由工 号、工资、职称组成，现对文件内容进行修改，即对不同职称的职工增

44、加工资，规定高级职 称的增加 15%，中级职称的增加 10%，初级的增加 5% ，其他人员不加工资。Pirvate Sub cmdModif_Click()Dim num As Integer, gz As Single, zc As String 定义工号、工资、职称的 变量名和类型Open ” C:zg.txt ” For Input As #1Open ” C:lszg.txt ” For Output As #2Do While Not EOF(1)1Select Case zcCase “高级”gz = gz*1.15Case “中级” gz = gz*1.1Case “初级” gz

45、 = gz*1.05End SelectWrite #2, num, gz, zcLoopClose #1,#2Open ” C: lszg.txt -”-2As #1Open ” C: zg.txt ”for output As #2Do While Not EOF(1)Input #1, num, gz, zc3Loop Close #1,#2End Sub1、Input #1, num, gz, zc2、For Input3、Write #2, num, gz, zc三、填空题 (请把正确的选项填入试题前的空格中 ) 第 1 题：【程序说明】该程序的功能为：从 1 到 1000 中找出这

46、样的数，该数每位上数字的阶乘之和等于该数， 并将结果输出从窗体输出。Private Sub Form_Click()Dim k, a, n, I, mDim p As IntegerFor k = 1 To 10000a = Ltrim(Str(k)n = 0m = Len(a)For I = 1 To 1p = Val(Mid(a, I, 1)n = 2Next IIf n = k Then Form1.Print kNext kEnd SubFunction fact(x As Integer) As Long '该函数用于计算阶乘Dim y As LongDim I%y = 1F

47、or I = 1 To xy = y * INext I3End Function1、m2、n+fact(p) 或 fact(p)+n3、 fact=y第 2 题：【程序说明】这是一个用户名校验程序，如用户名正确， 即输出欢迎字样，否则， 弹出警告窗并直 接退出程序。Dim UserName(2) As String, inputName As StringDim Flag As Boolean flag=true 表示用户名正确 ;flag=false 表示用户名不正确Private Sub Form_Load()Dim I As IntegerUserName(0) = "AA&

48、quot; : UserName(1) = "BB" : UserName(2) = "CC" 共三个用户名1inputName = InputBox(" 请输入名称： ", " 身份确认 ", " ")For I = 0 To 2If 2ThenFlag = TrueEnd IfNext IIf Flag =False Then3 (" 用户身份确认失败！退出应用 ", vbOKOnly, " 警告")EndEnd IfEnd SubPrivate Su

49、b Form_Paint()picShowMsg.Print " 欢迎您！ " + inputNameEnd Sub1、Flag = False 或 flag<> true 或 not flag2、inputName = UserName(I) 或 UserName(I)= inputName3、MsgBox第 3 题：【程序说明】窗体上有两个图片框控件 Picturel和Picture2 ,两个命令按钮command1 (标题为"加载”) 和command2 (标题为"复制”)，程序运行时，"复制”按钮不可用，图片框控件Pictu

50、re2和 Picture1 大小相同，单击“加载”按钮，打开通用对话框，选择一个图形文件，在图片框 控件 Picture1 中显示，同时“复制” 按钮可用， “加载”按钮不可用；单击“复制”按钮， 将 Picture1 的图片复制到 Picture2 中，同时“加载”按钮可用， “复制”按钮不可用。Private Sub Form_Load()Picture2.Width = Picture1.WidthPicture2.Height = Picture1.Height1End SubPrivate Sub command1_Click()2Picture1.Picture = LoadPic

51、ture(CommonDialog1.FileName)Command2.Enabled = TrueCommand1.Enabled = FalseEnd SubPrivate Sub command2_Click()3Command1.Enabled = TrueCommand2.Enabled = FalseEnd Sub1、Command2.Enabled = False2、CommonDialog1.ShowOpen 或 CommonDialog1.Action=13、Picture2.Picture = Picture1.Picture或 Picture2.Picture = Lo

52、adPicture(CommonDialog1.FileName)第 4 题：【程序说明】 下列程序运行时，在驱动器列表框中选择驱动器， 目录列表框相应 变为所选驱动器的目录列表， 在目录列表框中选择相应目录， 文件列表框的内容变为所选目 录下的文件列表，只要单击其中扩展名为".bmp "的文件，即可在图像框中显示该图像。Private Sub Dir1_Change()File1. Path =dir1.PathEnd SubPrivate Sub Drive1_Change()1End SubPrivate Sub File1_Click()Dim PathStr As

53、 Stringif right(file1.path,1)="" thenPathStr=File1.Path & File1.FileNameelse2end ifIf Right(PathStr,4)=“.bmp” Or Right(PathStr,4)=“ .BMP” Then3 End IfEnd Sub1、Dir1.Path=Drive1.Drive2、PathStr=File1 . Path & “ ” & File1.FileName 或 PathStr=File1.Path + “ ” + File1.FileName3、Image1

54、.Picture=LoadPicture(PathStr)三、填空题第 1 题：【程序说明】以下程序产生n个两位随机整数，将其中个位数等于5的数存入数组B中，并以每行五个的紧凑格式在窗体中用输出，同时输出该数组的个数。Private Sub Form_Click()Dim a() As Byte, b() As ByteDim i As Byte, m As Byte, n As Byte n = InputBox("请输入 n 值：") 1 a(n), b(n)For i = 1 To na(i) = 10 + Int(Rnd * 90)If a(i) Mod 5 = 0

55、 The nm = m + 12Print b(m);If 3End IfNext iPrintPrint "个位数为0的数有"m;"个"End Sub1、ReDim2、b(m) = a(i)3、m Mod 5 = 0 或 m/5=m5 Then Print第2题:【程序说明】本程序通过选项来修饰预览区文字。单击字体组合框Cboziti可以设置预览区域的标签文字Iabel5的字体；单击字号组合框Cbozihao可以设置预览区域的标签文字的字形；选择删除线复选框可以设置是否加删除线。Private Sub Cbozihao_Click()'选择字号

56、Label5.F on tSize = Cbozihao.TextEnd SubPrivate Sub Cbozihao_ -1-()'输入选项中没有的字号If Val(Cbozihao.Text) > 0 And Val(Cbozihao.Text) < 72 ThenLabel5.Fo ntSize = Val(Cbozihao.Text)ElseLabel5.Fo ntSize = 9End IfEnd SubPrivate Sub Cboziti_click()'字体2End SubPrivate Sub Check1_Click()'复选框删除线If -3-The nLabel5.F on tStrikethru = TrueElseLabel5.Fo ntStrikethru = FalseEnd IfEnd Sub1、Change2、Label5.FontName = Cboziti.Text3、Ch