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
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1