vb程序设计期末考试填空题题库.docx

《vb程序设计期末考试填空题题库.docx》由会员分享，可在线阅读，更多相关《vb程序设计期末考试填空题题库.docx（93页珍藏版）》请在三一办公上搜索。

1、vb程序设计期末考试填空题题库第01套：第1题：下列程序显示所有3个数码各不相同的3位数，并统计有多少个这样的三位数。Private Sub Form_ClickDim n As Integer, a As Integer, b As Integer, c As IntegerDim x As IntegerFor a =-1-For b = 0 To 9For c = 1 To 9If a<>b And b<>c And a<>c Thenx =-2-n = n + 1-3-If n mod 15 = 0 Then PrintEnd IfNext c,b,aPrint

2、 总共有这样的三位数; n; 个End Sub正确答案：0 to 9正确答案：1+10*(b+10*c)正确答案：print x;第2题：窗体是密码检验程序。程序运行时，用户在文本框输入密码，单击确定按钮对密码进行检验。密码正确后，标签label2显示“密码正确”；若密码不正确，标签显示“密码错误”，若密码输入错误达3次，将自动退出程序。Private Sub Command1_Click 确定按钮Static n As Integer-1-mypwd As String = 123456 预设密码为自定义常量n = n + 1Label2.Visible = TrueIf -2- ThenL

3、abel2.Caption = 密码正确ElseIf n < 3 ThenLabel2.Caption = 密码错误！Text1.Text = Else-3-End IfEnd IfEnd Sub正确答案：CONST正确答案：Text1.text=mypwd或mypwd=text1.text正确答案：End第3题：在组合框中选择形状后，窗体中控件Shape1的形状和边框线作相应变化。程序运行时如下图Private Sub Combo1_ClickShape1.Shape = = Combo1.List(-1-)-2- = Int(Rnd * 7)End SubPrivate Sub For

4、m_LoadDim I As IntegerFor I = 0 To 5:-3-: Next IEnd Sub正确答案：Combo1.ListIndex正确答案：Shape1.BorderStyle正确答案：Combo1.AddItem Str(i)第4题：右击窗体则打开Windows自带的计算器“C:windowscalc.exe”；单击“退出”按钮时将右击窗体的次数写入磁盘文件,并结束程序运行。-1-Private Sub Form_MouseUp(Button As Integer, Shift As Integer, _X As Single, Y As Single)If Butto

5、n = 2 Then n = n + 1: Shell “C:windowscalc.exe”End SubPrivate Sub Command1_ClickOpen C:a1.dat For-2-Print #1,n: Close #1-3-End Sub正确答案：dim n as integer正确答案：output as #1正确答案：end第02套：第1题：单击窗体后，在窗体上输出以下图形:Private Sub Form_ClickDim i%, j%, st$For i = 1 To -1-st = Chr$(65 + i - 1)Print Tab(10 - i);For j

6、= 1 To iPrint st; ;Next jPrintNext iFor i =-2- To 1 Step -1st = Chr$(65 + i - 1)Print Tab(10 - i);For j = 1 To -3-Print st; ;Next jPrintNext iEnd Sub正确答案：6正确答案：7正确答案：I第2题：窗体是简易文本编辑器程序。通过文本框和剪贴板实现全选、复制、粘贴和删除操作。Private Sub Command1_Click 全选按钮Text1.SelStart = 0Text1.SelLength = -1-Text1.SetFocusCommand

7、2.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = TrueEnd SubPrivate Sub Command2_Click 复制按钮Clipboard.ClearClipboard.SetText Text1.SelTextCommand3.Enabled = TrueText1.SetFocusEnd SubPrivate Sub Command3_Click 粘贴按钮Text1.SelText = -2-Text1.SetFocusEnd SubPrivate Sub Command4_Click 删除按钮-3-Comma

8、nd2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = FalseEnd SubPrivate Sub Form_LoadCommand2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = FalseEnd SubPrivate Sub Text1_MouseUp(Button As Integer, Shift As Integer, X AsSingle, Y As Single)If Text1.SelLength <> 0 ThenCommand

9、2.Enabled = TrueCommand4.Enabled = TrueElseCommand2.Enabled = FalseCommand4.Enabled = FalseEnd IfEnd Sub正确答案：Len(Text1.Text)正确答案：Clipboard.GetText正确答案：Text1.SelText = 第3题：自制一个简单的图片浏览器。在窗体上建立一个图片框控件、一个时钟控件和一个命令按钮。运行时，显示第一张图片，单击“浏览”按钮每隔1秒在图片框中显示另一张图片，显示到最后一张图片时，又从第一张开始显示。Dim i As IntegerPrivate Sub Fo

10、rm_Load-1-Picture1.Picture = LoadPicture(c:windows1.bmp)Picture1.AutoSize = TrueEnd SubPrivate Sub Timer1_TimerIf i <= 7 Then-2-Elsei = 1End IfPicture1.Picture = -3-End Sub正确答案：i=1正确答案：i=i+1正确答案：LoadPicture(c:windows & i &.bmp)或LoadPicture(c:windows + i + .bmp)第4题：文件c:a1.dat中存放若干个学生信息的记录，按Command1

11、按钮后，查找文件中姓名与输入姓名相同的记录，找到则删除该记录。Private Sub Command1_ClickDim bs As String,cs As StringOpen c:a1.dat-1-Open temp.dat For Output As #2bs = InputBox(输入学生姓名)Do While Not Eof(1)Line Input #1, csif InStr(cs, Trim(bs) =-2-Then print #2,csLoopClose #1: Close #2Kill-3-Name “temp.dat” as “c:a1.dat”End Sub正确答案

12、：For Input As #1正确答案：0正确答案：c:a1.dat第03套：第1题：该程序执行后，输出一个右上三角元素为1，其余元素为0 的55的矩阵。Private Sub Form_ClickDim a(1 To 5, 1 To 5) As IntegerDim i As Integer, j As IntegerFor i = 1 To 5For j = 1 To 5If - 1 - Then- 2 -End IfNext jNext iFor i = 1 To 5For j = 1 To 5Form1.Print ; a(i, j);Next j- 3 -Next iEnd Sub

13、正确答案：I<=j正确答案：a(I)=1正确答案：print第2题：【程序说明】如图，程序运行时，用户可以在文本框中输入文本，单击command1“添加”按钮后将文本中输入的内容加到列表框的末尾，用户选某列表框的某一个列表项后，单击command2“删除”按钮，将删除该列表项；如果没有任何一项选中，将有出错提示先选择，再删除！。> Private Sub Command1_Click 添加按钮If Len(Text1.Text) <> 0 Then-1-Text1.Text = Text1.SetFocusEnd IfEnd SubPrivate Sub Command2_Cl

14、ick 删除按钮If -2- ThenMsgBox 先选择，再删除！Else-3-End IfEnd Sub正确答案：List1.AddItem Text1.Text正确答案：List1.ListIndex = -1正确答案：List1.RemoveItem List1.ListIndex第3题：自制一个简单的图片浏览器。在窗体上建立一个图片框控件、一个时钟控件和一个命令按钮。运行时，显示第一张图片，单击“浏览”按钮每隔1秒在图片框中显示另一张图片，显示到最后一张图片时，又从第一张开始显示。-1-Private Sub Form_Loadi = 1Picture1.Picture = Load

15、Picture(c:windows1.bmp)Picture1.AutoSize = TrueEnd SubPrivate Sub -2-If -3- Theni =i+1Elsei = 1End IfPicture1.Picture = LoadPicture(c:windows & i & .bmp)End Sub正确答案：Dim i As Integer正确答案：Timer1_Timer正确答案：i <= 7第4题：本程序统计3100之间所有素数的个数；最后将素数的个数写入顺序文件e:dataout.txt中。Private Sub Command1_ClickDim i As In

16、teger, flag As BooleanDim t1 As Integer, t2 As Integer-1-i = 0For t1 = 3 To 100flag = TrueFor t2 = 2 To Int(Sqr(t1)If -2- then flag = FalseNext t2If flag theni = i+1End IfNext t1-3-Close #1End Sub正确答案：Open “e:dataout.tx” for output as #1正确答案：t1 mod t2=0正确答案：Write #1,I第04套：第1题：以下过程是将一个英文句子的每个单词的首字母都变

17、成大写。从键盘上任意输入一条英文句子，将句子中的每个单词的首字母都变成大写例如：输入Iam a good student。则要求输出I Am A Good Student。Public Sub UppersenDim oldsen As String, newsen As StringDim char As String, lastchar As StringDim k As Integer, i As Integeroldsen = InputBox(请输入英文句子：)k = -1-以空格作为单词的界定，空格后的字母转换为大写字母lastchar = -2-For i = 1 To kcha

18、r = -3-If lastchar = Thenchar = UCase(char)End Ifnewsen = newsen & charlastchar = charNext iForm1.Print input:; oldsenForm1.Print output:; newsenEnd Sub正确答案：Len(oldsen)正确答案：“”正确答案：Mid(oldsen, i, 1)第2题：以下程序可以将列表框中同时选中的多个列表项删除，顺序从最后一项开始往前删除，请将程序补充完整。Private Sub cmdDel_ClickDim i As Integeri = List1.Li

19、stCount - 1While i >=-1-If List1.Selected(i) = True Then-2-End If-3-WendEnd Sub正确答案：0正确答案：List1.RemoveItem I正确答案：i = i - 1第3题：自制一个简单的图片浏览器。在窗体上建立一个图片框控件、一个时钟控件和一个命令按钮。运行时，显示第一张图片，单击“浏览”按钮每隔1秒在图片框中显示另一张图片，显示到最后一张图片时，又从第一张开始显示。Dim i As IntegerPrivate Sub Form_Loadi = 1Picture1.Picture = -1-Picture1.

20、AutoSize = TrueEnd SubPrivate Sub Timer1_TimerIf i <= 7 Theni =i+1Elsei = 1End If-2-End SubSub picDim fn As Stringfn = c:windows & i & .jpgPicture1.Picture = -3-End Sub正确答案：LoadPicture(c:windows1.jpg)正确答案：Call pic或pic正确答案：LoadPicture(fn)第4题：在窗体内设置一个弹出式菜单，分别对文本框进行“显示时间”、“显示日期”和“清空”操作。m1为不可见菜单项，m11为

21、其子菜单。鼠标右击窗体后显示弹出式菜单。Private Sub Form_LoadTimer1.Enabled = False 锁定定时器End SubPrivate Sub m11_Click(Index As Integer)Select Case IndexCase 0 : Timer1.Enabled =-1-Case 1Timer1.Enabled = False : Text1.Text= 日期： + -2-Case 2Text1.Text = End SelectEnd SubPrivate Sub Form_MouseDown(Button As Integer, Shift

22、As Integer, _x As Single, y As Single)If Button = 2 Then -3-, 2End SubPrivate Sub Timer1_TimerText1.Text = 时间： + TimeEnd Sub正确答案：真正确答案： Date正确答案： PopUpMenu m1第05套：第1题：以下程序执行后将产生一个66的转置矩阵，将二维数组中所有行和对应列的元素进行交换。Private Sub Form_ClickDim a(1 To 6, 1 To 6) As IntegerDim i As Integer, j As IntegerForm1.Pr

23、int 原始数据For i = 1 To 6For j = 1 To 6a(i, j) = Int(Rnd * 10)Form1.Print a(i, j);Next jForm1.PrintNext 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 jForm1.PrintNext iEnd SubPublic Sub Swap(a As Integer, b As Integer)Dim temp As Integertemp = a

24、a = bb = tempEnd Sub正确答案：I正确答案：Call Module.Swap(a(i, j), a(j, i)或Module.Swap a(i, j),a(j, i)正确答案：Print a(i, j);第2题：本程序利用1个定时器、1个文本框和2个命令按钮制作一个动态表。各控件名称取缺省值，控件Command1、Command2标题分别为“开始”、“结束”。运行时，单击“开始”按钮后表开始每分钟计一次时，并在文本框上显示总分钟数；单击“结束”按钮后，计时结束，在窗体上显示出运行的时间。Dim x as longPrivate Sub Form_LoadTimer1.Inte

25、rval = 60000: Timer1.Enabled = FalseEnd SubPrivate Sub Command1_ClickClsx = 0-1-End SubPrivate Sub Command2_ClickDim h As Integer, m As Integer, s As IntegerTimer1.Enabled = Falseh = -2-m = x mod 60Print 运行了 + Str(h) + 小时 + Str(m) + 分End SubPrivate Sub Timer1_Timer-3-Text1.text = xEnd Sub正确答案：Timer1

26、.enabled=true正确答案：x60正确答案：x=x+1第3题：程序运行时界面如下图，红桃、梅花、方块、黑桃的图形文件在界面设计时已经在属性窗口中设置好，而且使用的是Image1控件数组，程序运行时，单击Image1时，Image2显示相应的图片，同时在Picture1中用蓝色显示哪个图案被选中的文字信息。Private Sub Image1_Click(Index As Integer)-1-Picture1.FontSize = 20-2- = vbBluePicture1.Cls-3-Case 0Picture1.Print 红桃被选中Case 1Picture1.Print 草花

27、被选中Case 2Picture1.Print 方片被选中Case 3Picture1.Print 黑桃被选中End SelectEnd Sub正确答案：Image2.Picture =Image1(Index).Picture正确答案：Picture1.ForeColor正确答案：Select Case Index第4题：程序运行时，通过单击窗体显示“字体”对话框，并对文本框的字体、字号和字效等进行设置。Private Sub Form_Click-1-259CommonDialog1.Action =-2-Text1.FontBold =-3-Text1.FontItalic = Comm

28、onDialog1.FontItalicText1.FontName = CommonDialog1.FontNameText1.FontSize = CommonDialog1.FontSizeEnd Sub正确答案：CommonDialog1.Flags 4正确答案：4正确答案：CommonDialog1.FontBold第06套：第1题：以下程序执行后将输出100到200之间所有的素数，并统计素数的个数Private Sub Form_ClickDim i%, j%, k%, t% t为统计素数的个数Dim b As BooleanFor i = 100 To 200b = Truek=

29、 - 1 -j = Int(Sqr(i)Do While k <= j And bIf i Mod k = 0 Then- 2 -End If- 3 -Loopif b=true thent = t + 1Form1.Print iEnd IfNext iPrint t=; tEnd Sub正确答案：k = 2正确答案：b = False正确答案：k = k + 1第2题：下列程序运行时，单击Command1(0)后，清空组合框原有内容，从外部文件中读入的数据显示在组合框中，如图所示。单击Command1(1)后，将组合框中的各表项输出到外部文件；单击Command1(2)后，将组合框中文

30、本框部分的文本添加作为组合框的表项；单击Command1(3)后，将组合框中选中的表项删除。Do While Not EOF(1)Line Input #1, a$Combo1.AddItem a$LoopClose #1Case 1Open d:aaa.txt For Output As #1For I% = 0 To -2-Print #1, Combo1.List(I%)Next I%Close #1Case 2 添加Combo1.AddItem Combo1.TextCase 3 删除-3-End SelectEnd Sub正确答案：Combo1.Clear正确答案：Combo1.Li

31、stCount - 1正确答案：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 = YEnd SubPrivate Sub Picture1_MouseUp(Button As Integer, Shift As Integer, _X As Singl

32、e, Y As Single)If -2-ThenPicture1.FillStyle = 0ElsePicture1.FillStyle = 1End If-3-End Sub正确答案：Dim x0 As Single, y0 As Single或Dim x0!, y0!正确答案：Picture1.FillStyle <> 0正确答案：Picture1.Line (x0, y0)-(X, Y), RGB(0, 255, 0), B第4题：设计一个简单的图片浏览程序。单击窗体后，显示“打开文件”对话框，选中一个图片文件后，将其显示在图片框中。要求“打开文件”对话框只能显示bmp文件或g

33、if文件。Private Sub Form_ClickCommonDialog1.DialogTitle =”打开图片文件”CommonDialog1.InitDir=”c:Picture”CommonDialog1.Filter=-1-2-Picture1.Picture=LoadPicture(-3-)End Sub正确答案：bmp文件|*.bmp|gif文件|*.gif正确答案：CommonDialog1.ShowOpen或CommonDialog1.Action=1正确答案：CommonDialog1.FileName第07套：第1题：下列程序的功能是找出被5、7除，余数为1的最小5个

34、正整数。Private Sub Form_ClickDim Ncount%, n%Ncount =-1-n = 1Don = n + 1If -2- ThenPrint nNcount = Ncount + 1End IfLoop Until -3-End Sub正确答案：0正确答案：n Mod 5 = 1 And n Mod 7 = 1正确答案：Ncount=5第2题：本程序是一个比赛评分程序。在窗体上有text1text1文本框数组，显示最后得分的text2文本框和“计算得分”command1命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在text2文

35、本框中Private Sub Command1_ClickDim k As IntegerDim sum As Single, max As Single, min As Singlesum = Text1(0): max = Text1(0): -1-For -2- step 1If max < Text1(k) Thenmax = Text1(k)End IfIf min > Text1(k) Thenmin = Text1(k)End Ifsum = sum + Text1(k)Next kText2.Text = (-3-) / 5End Sub正确答案：min = Text1

36、(0)正确答案：k = 1 To 6正确答案：sum - min max或sum - max min第3题：窗体上有两个图片框控件Picture1和Picture2，两个命令按钮command1和command2，程序运行时，“复制”按钮不可用，图片框控件Picture2和Picture1大小相同，单击“加载”按钮，清除Picture2中的图片，打开通用对话框，选择一个图形文件，在图片框控件Picture1中显示，同时“复制”按钮可用，“加载”按钮不可用；单击“复制”按钮，将Picture1的图片复制到Picture2中，同时“加载”按钮可用，“复制”按钮不可用。 Private Sub Fo

37、rm_LoadPicture2.Width = Picture1.Width-1-Command2.Enabled = FalseEnd SubPrivate Sub command1_ClickCommonDialog1.ShowOpen-2-Picture1.Picture = -3-Command2.Enabled = TrueCommand1.Enabled = FalseEnd SubPrivate Sub command2_ClickPicture2.Picture = Picture1.PictureCommand1.Enabled = TrueCommand2.Enabled

38、= FalseEnd Sub正确答案：Picture2.Height = Picture1.Height正确答案：Picture2.Picture = LoadPicture()正确答案：LoadPicture(CommonDialog1.FileName)第4题：文本文件“C:mydoczg.txt”包括工资、职务情况，每条记录由工号、工资、职称组成，现对文件内容进行修改，即对不同职称的职工增加工资，规定高级职称的增加15%，中级职称的增加10%，初级的增加5%，其他人员不加工资。Pirvate Sub cmdModif_ClickDim num As Integer, gz As Sing

39、le, zc As String 定义工号、工资、职称的变量名和类型Open ” C:mydoczg.txt” For Input As #1Open ” C:mydoclszg.txt” For Output As #2Do While Not EOF(1)-1-Select Case zcCase “高级”gz = gz*1.15Case “中级”gz = gz*1.1Case “初级”gz = gz*1.05End SelectWrite #2, num, gz, zcLoopClose #1,#2Open ” C:mydoclszg.txt” -2-As #1Open ” C:mydo

40、czg.txt”for output As #2Do While Not EOF(1)Input #1, num, gz, zc-3-LoopClose #1,#2End Sub正确答案：Input #1, num, gz, zc正确答案：For Input正确答案：Write #2, num, gz, zc第08套：第1题：该过程是用于计算猴子共摘了多少个桃子。，并将结果输出来。Public Sub eatDim n%, i%, x%x = 1for i=6 to -1- step -2-3-Next iForm1.Print 共有; x; 个桃子End Sub正确答案：1正确答案：-1正确

41、答案：x=(x+1)*2或x=2*(x+1)第2题：这是一个用户名校验程序，如用户名正确，即输出欢迎字样，否则，弹出警告窗并直接退出程序。程序Dim UserName(2) As String, inputName As StringDim Flag As Boolean flag=true表示用户名正确;flag=false表示用户名不正确Private Sub Form_LoadDim I As IntegerUserName(0) = AA : UserName(1) = BB : UserName(2) = CC共三个用户名-1-inputName = InputBox(请输入名称：,

42、 身份确认, )For I = 0 To 2If -2-ThenFlag = TrueEnd IfNext IIf Flag =False Then-3- (用户身份确认失败！退出应用, vbOKOnly, 警告)EndEnd IfEnd SubPrivate Sub Form_PaintpicShowMsg.Print 欢迎您！ + inputNameEnd Sub正确答案：Flag = False或flag<> true或not flag正确答案：inputName = UserName(I)或UserName(I)= inputName正确答案：MsgBox第3题：窗体上有两个图片框控件Picture1和Picture2，两个命令按钮command1和command2，程序运行时，“复制”按钮不可用，图片框控件Picture2和Picture1大小相同，单击“加载”按钮，打开通用对话框，选择一个图形文件，在图片框控件Picture1中显示，同时“复制”按钮可用，“加载”按钮不可用；单击“复制”按钮，将Picture1的图片复制到Picture2中，同时“加载”按钮可用，“复制”按钮不可用。Private Sub Form_LoadPicture2.Width = Picture1.WidthPictu