当前位置:首页 >> 学科竞赛 >> vb程序填空题

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 &

#39;个位数数码 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、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 = "123456" '预设密码为自定义常量 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 "C:\a1.dat" For----2---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("c:\windows\1.bmp") 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("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、For Input As #1 2、0 3、"c:\a1.dat" 三、填空题 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 " "; a(I, j); 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("c:\windows\1.bmp") Picture1.AutoSize = True End Sub Private SubTimer1_ ----2----

If ----3---- Then I =I+1 Else I=1 End If Picture1.Picture = LoadPicture("c:\windows\" & I & ".bmp") 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 "e:\dataout.txt" for output as #1 或 open "e:\dataout.txt" for append as #1 2、t1 mod t2=0 3、Write #1,I 或 print #1,I 三、填空题 第 1 题: 【程序说明】 以下过程是将一个英文句子的每个单词的首字母都变成大写。 从键盘上任意输入一条 英文句子,将句子中的每个单词的首字母都变成大写例如:输入"I am a good student"。则要求输出"I 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 = " " Then char = UCase(char) End If newsen = newsen & char lastchar = char Next i Form1.Print "input:"; oldsen Form1.Print "output:"; newsen 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 = "c:\windows\" & i & ".jpg" Picture1.Picture = ----3---End Sub 1、LoadPicture("c:\windows\1.jpg") 2、Call pic 或 pic 3、LoadPicture(fn) 第 4 题: 【程序说明】在窗体内设置一个弹出式菜单,分别对文本框进行“显示时间” 、 “显示日期”和“清空”操作。m1 为不可见菜单项,m11 为其子菜单(共3项,均同名, 索引值依次为 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= "日期:" + ----2---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 = "时间:" + Time 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 "运行了" + Str(h) + "小时" + Str(m) + "分" 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 "t="; t 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 "d:\aaa.txt" For Input As #1 Do While Not EOF(1) Line Input #1, a$ Combo1.AddItem a$ Loop Close #1 Case 1 Open "d:\aaa.txt" For Output As #1 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 文件|*.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) = "AA" : UserName(1) = "BB" : UserName(2) = "CC"‘共三个用户名 ----1---inputName = InputBox("请输入名称:", "身份确认", " ") For I = 0 To 2 If ----2----Then Flag = True End If Next I If Flag =False Then ----3---- ("用户身份确认失败!退出应用", vbOKOnly, " 警告") End End If End Sub Private Sub Form_Paint() picShowMsg.Print "欢迎您!" + inputName 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)="\" then 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

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 的数有"; m; "个" 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 "No:17="; this_one End If ------2-----Loop While this_one <= 100000000# Form1.Print "No:";------3------; "is > 1E+8" 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 & "=" & N1 & "+" & N2 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)="\" then ----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("c:\windows\1.bmp") Picture1.AutoSize = True End Sub Private Sub Timer1_Timer() Dim ff As String If I <= 7 Then ----2---Else I=1 End If ff = "c:\windows\" & I & ".bmp" 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("x=") 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 = "c:\windows\" & i & ".jpg" Picture1.Picture = ----3---End Sub 1、LoadPicture("c:\windows\1.jpg") 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 "washinton" :List1.AddItem "laola" :List1.AddItem "Ann" List1.AddItem "David" :List1.AddItem "Jack" :List1.AddItem "Jackson" List1.AddItem "Mary" :List1.AddItem "Peter" :List1.AddItem

"Rose" List1.AddItem "Tom" :List1.AddItem "Lily" :List1.AddItem "vincent" 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)="\" then 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 = "忆江南" + Chr(13) + Chr(10) 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 "a" To "z", "A" To "Z" 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("c:\windows\1.bmp") 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("c:\windows\" & i & ".bmp") 或 LoadPicture("c:\windows\" + i + ".bmp") 第 4 题: 【程序说明】文件 c:\a1.dat 中存放若干个学生信息的记录(行) ,按 Command1 按钮后,将文件中奇数行记录读出并写入 c:\a2.dat 中。 Private Sub Command1_Click() Dim bs As String,cs As String Open "c:\a1.dat" ----1----

Open "c:\a2.dat" For Output As #2 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---- = "at" Then sum = sum + 1 End If I=I+1 Loop If ----3---- Then MsgBox "没有找到!" Else MsgBox "找到了" & Str(sum) & "个" End If End Sub Len(str1) Mid(str1, i, 2) sum = 0 第 2 题: 【程序说明】 窗体是一个字体设置程序。 单击字体组合框可以设置预览区域的标签文字的字体, 单 击字形组合框可以设置预览区域的标签文字的字形。字体组合框名字为 Cboziti、字形组合 框名字为 Cbozixing、复选框名字为 check1、标签文字名字为 label5。

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


更多相关文档:

vb程序填空题

vb程序填空题_IT认证_资格考试/认证_教育专区。vb程序设计题资料 三、填空题 1、 【程序说明】 下列程序显示所有 3 个数码各不相同的 3 位数,要求按紧凑格式...

VB程序填空题

VB程序填空题_计算机软件及应用_IT/计算机_专业资料。B程序填空题 1、下列程序的功能是从键盘上任意输入一个数,判断这个数是正数、负数、还是零,并输出判 断结果...

VB程序填空复习题

29页 免费 VB程序填空题 12页 5财富值如要投诉违规内容,请到百度文库投诉中心;如要提出功能问题或意见建议,请点击此处进行反馈。 ...

VB填空题及答案

End Sub 1.5 VB程序设计语言填空题答案: 题序 答案 题序 答案 题序 答案 题序 答案 题序 答案 题序 答案 题序 答案 题序 答案 题序 答案 题序 答案 ...

VB程序填空题(东华大学)

VB程序填空题(东华大学)_工学_高等教育_教育专区。VB程序填空题(东华大学)三、程序填空 1、检查在文本框中输入的圆括号是否配对。输入回车符表示输入结束,显示有...

vb复习指导:填空题--程序填空题

vb复习指导:填空题--程序填空题_IT认证_资格考试/认证_教育专区。一、选择题 1. 下列操作不能向工程中添加窗口是( ) A. 执行?工程?菜单中的‘添加窗体’命令...

VB程序题(程序填空、编程)

VB程序题(程序填空、编程)_IT认证_资格考试/认证_教育专区。vb程序题 第4 章程序设计结构 程序填空题(1 个空)在以下各题的下划线处填写正确的内容,以实现要求...

VB填空题

VB填空题_工学_高等教育_教育专区。VB 填空题 1、数学表达式 a *b 转换为 ...请将实现以上功能的程序补充完整: Private Sub Command1_Click( ) x= Val (...

VB程序填空题

VB程序填空题_IT认证_资格考试/认证_教育专区。VB 复习 二、填空题 1.假设一个文本框的 Name 属性为 Text1,为了在该文本框中显示“Hello”,所使用的语 句为...

VB程序填空

VB程序填空_理学_高等教育_教育专区。第 1 题 '功能: 求 1!+2!+??+10! 的值。 Private Sub Form_Click() '***SPACE*** 【?】 s=1 For I = 2 ...
更多相关标签:
vb程序填空题题库 | vb填空题题库 | vb程序设计考试题库 | vb程序改错题 | vb填空题 | java程序填空题 | c语言程序填空题 | java程序填空题及答案 |
网站地图

文档资料共享网 nexoncn.com copyright ©right 2010-2020。
文档资料共享网内容来自网络,如有侵犯请联系客服。email:zhit325@126.com