大学Visual Basic课程VB5.docx

1、大学Visual Basic课程VB5VB模拟试题(5)一、选择题1为了把窗体上某个控件变成活动控件，应执行的操作是（ ）A单击窗体的边框 B单击控件的内部C双击控件 D双击窗体2VB6.0集成环境的主窗口中不包括（ ）A标题栏 B菜单栏 C状态栏 D工具栏3为了保存一个VB应用程序，下列廉洁中正确的是（ ）A只保存窗体文件（.frm） B只保存工程文件（.vbp）C分别保存工程文件和窗体文件 D分别保存工程文件和标准模块文件（.bas）4下列不可作为VB变量名的是（ ）A4*Delta BAlpha CABC DABT15设a=2,b=3,c=4,d=5，表达式32*b OR a=c AND

2、 bc OR cd的值是（ ）A1 B-1 CFalse DTrue6下列逻辑表达式中，能正确表示条件“x,y都是奇数”的是（ ）Ax Mod 2 =1 Or y Mod 2 =1 Bx Mod 2 =0 Or y Mod 2=0Cx Mod 2 =1 And y Mod 2 =1 Dx Mod 2 =0 And y Mod 2=07执行以下语句后，输出的结果是（ ）s$ = ABCDEFGHIJKPrint Mid$(s$, 3, 4);prin Len(s$)AABCD 11 BCDEF 11 CEFGH 11 DHIJK 118若要求在文本框中输入密码时在文本框中显示#号，则应在此文本框

3、的属性窗口中设置（ ）AText属性值为# BCaption属性值为#CPasswordChar属性值为# DPasswordChar属性值为真9为了使列表框中的项目分为多项显示，需要设置的属性为（ ）AColumns BStyle Clist DMultiSelect10设置复选框或单选按钮标题对齐方式的属性是（ ）AAlign BAlignment CSorted Dvalue11确定一个窗体或控件大小属性是（ ）AWidth或Height BWidth和Height CTop或Left DTop和Left12假定窗体的名称为（Name属性）为form1，则把窗体的标题设置为“VBTEST

4、”的语句正确的是（ ）Aform1=“VBTEST” BCaption=“VBTEST”Cform1.test=“VBTEST” Dform1.name=“VBTEST”13使文本框获得焦点的方法（ ）AChange BGotFocus CSetFocus DLostFocus14为了使标签中的内容居中显示，应把Alignment属性设置为（ ）A0 B1 C2 D315假定窗体上有一个Text1文本框，为使它的文本内容位于中间并且没有边框，则正确的属性设置为（ ）AText1.Alignment=1 BText1.Alignment=2Text1.BorderStyle=0 Text1.Bo

5、rderStyle=1CText1.Alignment=1 DText1.Alignment=2Text1.BorderStyle=1 Text1.BorderStyle=016在窗体中添加一个列表框，然后编写如下两个事件过程： Private Sub Form_Click()List1.RemoveItem 1List1.RemoveItem 3List1.RemoveItem 2End SubPrivate Sub Form_Load()List1.AddItem AAList1.AddItem BBList1.AddItem CCList1.AddItem DDList1.AddItem

6、 EEEnd Sub运行上面的程序，然后单击窗体，列表框中所显示的内容为（ ）AAA BDD CAA DBBBB EE CC CC17假定在图片框Picture1中装入一个图形，为了清除该图形（注意，清除图形，而不是删除图片框），应采用的正确的方法是（ ）A 选择图片框，然后按Del键B 执行语句Picture1=LoadPicture(“”)C 执行语句Picture1.parent=”D 选择图片框，在属性窗口中选择Picture属性，然后按回车键18在VB中要设置菜单项的快捷访问键，应使用（ ）符号A& B* C$ D19假定有以下程序段：For i = 1 To 3For j = 5

7、To 1 Step -1Print i * jNext j, i则语句Print i * j的执行次数是（ ） A15 B16 C17 D1820当一个工程含有多个窗体时，其中的启动窗体是（ ）A启动VB时建立的窗体 B第一个添加的窗体C最后一个添加的窗体工程属性 D在工程属性对话框中指定的窗体21在窗体中添加一个文本框，然后编写如下代码：Private Sub Text1_KeyPress(KeyAscii As Integer)Dim char As Stringchar = Chr$(KeyAscii)KeyAscii = Asc(UCase(char)Text1.Text = Stri

8、ng(3, KeyAscii)End Sub程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为（ ）Aa BA Caaaa DAAAA22在窗体中添加一个标签Lb1Result和一个命令按钮Command1，然后编写程序，程序的功能是单击命令按钮，计算1+2+3+4+5的值，并把结果转化为字符串显示在标签内，能够实现上述功能的程序段是（ ）APrivate Sub Command1_Click() BPrivate Sub Command1_Click() Dim I, R As Integer Dim I, R As IntegerFor I = 1 To 5 Step 1 Fo

9、r I = 1 To 5 Step 1R = R + I R = R + INext NextLb1Result.Name = Str$(R) Lb1Result.Caption = Str$(R)End Sub End SubCPrivate Sub Command1_Click() DPrivate Sub Command1_Click() Dim I, R As Integer Dim I, R As IntegerDo While I5 DoR = R + I R = R + II = I + 1 I = I + 1 Loop Loop While I5Lb1Result.Captio

10、n = Str$(R) Lb1Result.Caption = Str$(R)End Sub End Sub23在窗体中添加两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程：Private Sub Command1_Click()x = 0Do While x 10x = (x - 2) * (x + 3)n = n + 1LoopText1.Text = Str(n)Text2.Text = Str(x)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为（ ）A1和0 B2和24 C3和50 D

11、4和6824在窗体中添加一个命令按钮（其Name属性为Command1），然后编写如下代码：Private Sub Command1_Click()Dim a(10) As IntegerDim p(3) As Integerk = 1For I = 1 To 10a(I) = INext IFor I = 1 To 3p(I) = a(I * 1)Next IFor I = 1 To 3k = k + p(I) * 2Next IPrint kEnd Sub程序运行后，单击命令按钮，输出结果是（ ）A15 B13 C30 D3725阅读程序：Private Sub Command1_Clic

12、k()a = 10: b = 15: c = 20: d = 25Print a; Spc(5); b; Spc(5); cPrint b; Space$(5); b; Space$(5); cPrint c; Spc(2); +; Spc(2); d;Print Spc(2); =; Spc(2); c + dEnd Sub程序运行后，单击窗体，输出结果是（ ）26在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：Private Sub Command1_Click()Dim I As Integer, j As IntegerDim a(10, 10) As Intege

13、rDim sum As IntegerFor I = 1 To 10For j = 1 To 10a(I, j) = (I - 1) * 3 + jNext jNext IPrint sumEnd Sub此过程的功能是计算数组a中的副对角线上元素的和，为实现此；功能，省略号处的程序段应该是（ ）AFor I = 1 To 10 BFor I = 1 To 10For j = 1 To 10 For j = 1 To 10If I + j = 10 Then If I + j = = 10 Thensum = sum + a(I, j) sum = sum + a(I, j)End If End

14、 IfNext j Next jNext I Next ICFor I = 1 To 10 DFor I = 1 To 10For j = 1 To 10 For j = 1 To 10If I + j = 10 Then If I + j = = 10 sum = sum + a(I, j) sum = sum + a(I, j)Next j Next jNext I Next I27阅读程序：Function f(a As Integer)b = 0Static cb = b + 1c = c + 1f = a + b + cEnd FunctionPrivate Sub Command1

15、_Click()Dim a As Integera = 2For I = 1 To 3Print f(a)Next IEnd Sub运行上面的程序，单击命令按钮，输出结果为（ ）A B C D28假定有以下两个过程：Sub S1(ByVal x As Integer, ByVal y As Integer)Dim t As Integert = xx = yy = tEnd SubSub S2(x As Integer, y As Integer)Dim t As Integert = xx = yy = tEnd Sub则以下说法中正确的是（ ）A 用过程S1可以实现交换两个变量值的操作，S

16、2不能实现B 用过程S2可以实现交换两个变量值的操作，S1不能实现C 用过程S1和S2都可以实现交换两个变量值的操作D 用过程S1和S2都不能实现交换两个变量值的操作29在窗体中添加一个通用对话框Commondialog1和一个命令按钮Command1，当单击按钮时打开颜色对话框，能实现此功能的程序段是（ ）APrivate Sub Command1_Click() BPrivate Sub Command1_Click()CommonDialog1.ShowOpen CommonDialog1.ShowColorEnd Sub End SubCPrivate Sub Command1_Cli

17、ck() DPrivate Sub Command1_Click()CommonDialog1.ShowFont CommonDialog1.ShowHelpEnd Sub End Sub30在窗体中添加一个通用对话框，其名称为CommonDialog1，然后添加一个命令按钮。要求单击命令按钮时，打开一个打开文件的通用对话框。该窗口的标题为“打开”，在文件类型框中显示的是TextFiles(*.txt)。则能够满足上述要求的程序是（）APrivate Sub Command1_Click()CommonDialog1.Flags = cdlOFNHideReadOnlyCommonDialog

18、1.Filter = allfiles(*.*)|*.*|textfiles & (*.txt)|*.txt|Batchfiles(*.bat)|*.batCommonDialog1.FilterIndex = 1CommonDialog1.ShowOpenMsgBox CommonDialog1.FileNameEnd SubBPrivate Sub Command1_Click()CommonDialog1.Flags = cdlOFNHideReadOnlyCommonDialog1.Filter = allfiles(*.*)|*.*|textfiles & (*.txt)|*.txt

19、|Batchfiles(*.bat)|*.batCommonDialog1.FilterIndex = 2CommonDialog1.ShowOpenMsgBox CommonDialog1.FileNameEnd SubCPrivate Sub Command1_Click()CommonDialog1.Flags = cdlOFNHideReadOnlyCommonDialog1.Filter = allfiles(*.*)|*.*|textfiles & (*.txt)|*.txt|Batchfiles(*.bat)|*.batCommonDialog1.FilterIndex =1Co

20、mmonDialog1.ShowSaveMsgBox CommonDialog1.FileNameEnd SubDPrivate Sub Command1_Click()CommonDialog1.Flags = cdlOFNHideReadOnlyCommonDialog1.Filter = allfiles(*.*)|*.*|textfiles & (*.txt)|*.txt|Batchfiles(*.bat)|*.batCommonDialog1.FilterIndex = 2CommonDialog1.ShowSaveMsgBox CommonDialog1.FileNameEnd S

21、ub二、填空题1以下语句的输出结果是_a%=4.5678Print a%2下列语句的输出结果是_Print Int(12345.6789*100+0.5)/1003窗体、图片框或图像框中的图形通过对象的_属性设置。4由Arry函数建立的数组的名字必须是_类型5以下程序段的输出结果是_num=0While num amax Thenamax = xEnd IfIf _ Thenamin = xEnd Ifx = InputBox(Enter a score)LoopPrint max=; amax, min=; aminEnd Sub9设计一个计时程序。该程序用户界面如图所示，由一个文本框（Te

22、xt1）、两个按钮：命令按钮1（Command1）、命令按钮2（Command2）组成。程序运行后，单击开始按钮，则开始计时，文本框中显示秒数，单击停止按钮，则计时停止。单击窗口则退出。请将下列程序补充完整。Option ExplicitDim iPrivate Sub Command1_Click()i = 0Timer1.Interval = 1000Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Form_Click()_ MeEnd SubP

23、rivate Sub Form_Load()Timer1.Enabled = FalseText1.Text = 0End SubPrivate Sub Timer1_ _()i = i + 1Text1.Text = _End Sub10下面程序的功能是：输入一个字符串，在“d:f1.dat”文件中查找输入的字符串是否存在，若存在，则输出“找到字符串”，否则输出“没找到字符串”。请将下列程序补充完整。Private Sub Form_Load()a$ = InputBox(请输入要查找的字符串)Open d:f1.dat For _ As #1b$ = Input(LOF(1), 1)_y = InStr(1, b$, a$)If y 0 ThenPrint 找到字符串; a$ElsePrint 没找到字符串; a$End IfEnd Sub答案：一、选择题：1-5 BCCAC6-10 CBCAB11-15 BBCCD16-20 CBAAD21-25 DBBBA26-30 ABABB二、填空题：1、 42、 12345.683、PICTURE4、 VARIANT5、36、 237、 ABC8、 VB9、 X=010、 XAMIN11、 UNLOAD12、 TIMER13、 I14、 INPUT15、 CLOSE