VB选择题库.docx

VB选择题库1.不论哪种控件，共同具有的属性是 Name 2.要使某控件在运行时不可显示，应对其设置的属性是 Visible 3.要是窗体在运行时不可改变窗体的大小和没有最大化、最小化按钮，需设置的属性是 Borderstyle 4.当程序运行时，系统自动执行启动窗体的事件过程是 Load 5.要判断在文本框中是否按下了Enter键，应在文本框的 Keypress 事件中判断 6.要使标签控件显示时不覆盖其背景内容，要对其设置的属性是 Backstyle 7.复选框的Value属性为0时，表示 复选框未被选中 8.将数据项“语文”添加到列表框中成为第一项应使用的语句是 “List1.Addltem”“语文”，“0” 9.执行下面的程序,列表框中的数据项有 “1，3” Sub Form_Click For i = 0 To 4 List1.AddItem i Next For i = 0 To 2 List1.RemoveItem i Next End Sub 10.如果列表框中没有被选定的项目，则执行List1.RemoveItem List1.ListIndex语句的结果是 D A移去第一项 B移去最后一项 C移去最后加入列表的项 D其他都不对 11.下列可以把当前目录下的图形文件Pic1.jpg装入图片框Picture1中的语句为 “Picture1. Picture=Load Picture(“”Pic1.jpg”)” 12.假定在图片框Picture1中装入了一个图形，为了清除该图形应采用的正确方法是 “ 执行语句Picture1. Picture =Load Picture(“”)” 13.当组合框的Style属性值设置为2时，其为 下拉式列表框 14.要使定时器无效应将Interval属性取值为 0 15.假定定时器控件的Interval属性为1000，Enable属性为Ture，并且有下面的事件过程 Private Sub Timer1_Timer Beep End Sub 计算机将发出Beep声的次数为 A.1000次 B0次 C1次 D其他都不对 16.下面语句能正确地把列表框list1从1数起的第4项的内容设置为“aaaa”的是 “List1.List(3)=”aaaa” 17. 下面语句能正确地把列表框list1从1数起的第3项的内容设置为“aaaa”的是 “List1.List(2)=”aaaa” 18.在窗体上画一个文本框，为了在程序运行后隐藏该文本框，应使用的语句为 Text1.Visible=False 19.在窗体上画一个文本框Text1和一个标签Label1，要求程序运行后，如果在文本框输入字符，则立即在标签中显示相同的内容，一下可以实现上述操作的事件过程的是 “Private Sub Text1_Change Lebel1.Caption = Text1.Text End Sub” 20.在设置阶段，如果把窗体的MaxButton属性和MinButton属性设置为False，则 最大、最小化按钮均消失 21. 下列程序 Private Sub Text1_Change Print Text1; End Sub 在文本框输入“abcd”这4个字符时，print方法在窗体上显示的是 aababcabcd 22.要设置命令按钮的背景图形，必须设置的两个属性是 Style 和Picture 23.要清除列表框的所有内容，可用来实现的方法是 Clear 24.要获得用户在组合框输入的内容，应利用的属性是 Text 25.下列控件中，没有Caption属性的是 列表框 26.引用列表框List1最后一个数据项应使用的语句是 List1.List 27.执行下面的程序： Private Sub Form_Click For I = 1 To 6 List1.AddItem I Next For I = 1 To 3 List1.RemoveItem I Next End Sub 列表框中的数据项是 “1，3，5” 28.下列说法正确的是 框架也有Click和DblClick事件 29.下列叙述错误的是 KeyPress事件可以识别键盘上某个键的按下与释放 30.编写如下两个事件过程 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 在不按Shift键，并锁定大写的情况下运行程序，如按“A”键，则程序输出的是 “A A” 31.以下程序功能是：用鼠标右键单击窗体，将画一个直径为300的圆。 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If ( ) Then Circle (X, Y), 300 End If End Sub 括号中应该填 Button=2 32.有如下事件过程： Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 And Shift = 2 Then Print ""山西大学 "" End If End Sub 程序运行后，为了在窗体上输出“山西大学”，应该进行的操作是 同时按下Ctrl键和鼠标右键 33.编写如下过程： Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode + 2) End Sub 程序运行后，如果单击键盘“A”键，则窗体上输出为 “AC” 34. 在鼠标事件MouseDown、MouseUp、MouseUp中，代表鼠标的按键状态的参数是 Button 35.在窗体上松开鼠标键时触发的事件是 MouseUp 36.下列叙述正确的是 窗体的Name属性指定窗体的名称，用来识别一个窗体 37.要把窗体中的文字加粗显示，可设置窗体的 FontBold 属性 38.当窗体被覆盖后又显示时，要要想自动刷新窗体上的图形，应设置窗体上的 AutoRedraw属性 39.要改变窗体最小化时的图标，应设置窗体的 Icon属性 40. 要想运行后窗体自动充满整个屏幕或自动缩小为一个图标，应设置窗体的 WindowState属性 41. 要想使窗体中的文字以斜体字显示，应设置窗体的 FontItalic 42.下面数组声明语句，正确的是 “Dim c(8,12) As Integer” 43.数组a中的所有元素已经赋值了数据，将数组a中的所有数据打印出来，下面的那段程序能完成此功能？ “For l=Lbound(a) to Ubound(a) Print a(l) Next l” 44. 数组a中的所有元素已经赋值了数据，将数组a中的所有数据打印出来，下面的那段程序能完成此功能？ For l=1 to 20 Print a(l) Next l” 45. 数组a中的所有元素已经赋值了数据，将数组a中的所有数据打印出来，下面的那段程序能完成此功能？ For l= Lbound(a) to 20 Print a(l)；) Next l” 46. 数组a中的所有元素已经赋值了数据，将数组a中的所有数据打印出来，下面的那段程序能完成此功能？ “For l=1 to Ubound(a) Print a(l)； Next l” 47. 数组a中的所有元素已经赋值了数据，将数组a中的所有数据打印出来，下面的那段程序能完成此功能？ “For l=Lbound(a) to 20 Print a(l)， Next l” 48. 数组a中的所有元素已经赋值了数据，将数组a中的所有数据打印出来，下面的那段程序能完成此功能？ “For l=1 to Ubound(a) Print a(l)， Next l” 49. 数组a中的所有元素已经赋值了数据，将数组a中的所有数据打印出来，下面的那段程序能完成此功能？ For l=1 to 20 Print a(l)， Next l” 50.关于redim的下列说法中，正确的是： 一般与整形变量结合使用） 51.关于redim的下列说法中，正确的是： 可以改变动态数组的维数 52.关于redim的下列说法中，正确的是： 可以改变动态数组的上、下界 53.要储存n个单精度数，下列语句正确的是 “dim a as single n=inputbox(“inputn”) redim a(1 to n) 54.已知有数组声明：Dim a(-1 to 3,2 to 5)as integer,引用数组元素，正确的是 “a” “a” “a” 55. 已知有数组声明：Dim a(-2 to 3,-2 to 5)as integer,引用数组元素，正确的是“a” “a” “a” “a” 56.在模块中dim定义的变量，其作用域的正确描述是 在定义它的模块中的所有程序中都有效 57. 在模块中public定义的变量，其作用域的正确描述是 在所有模块中都有效 58. 关于dim语句的正确说法是 在任何模块中的任何地方都有用 59. 关于private语句的正确说法是 在任何模块中的任何地方都有用 60. 关于public语句的正确说法是 只能在窗体模块和标准模块中的通用声明中使用 61.再次定义动态数组使用哪个定义关键字？ Redim 62.定义的变量哪个是动态数组？Private Dim A1,A2(3),A3(3,4),A4 A1 63. 下面过程中定义了的数组，哪个是动态数组？ Private Sub Command1_Click Dim al(3), bl ReDim a2(4), b2(3) End Sub a2,b1,b2都是 64. 下面过程中定义了的数组，哪个不是动态数组？ Private Sub Command1_Click Dim al(2，3), bl ReDim a2(4), b2(3) End Sub a1 65.如下数组声明语句Dim a(3,-2 To 2,5),则该数组a包含的元素的个数为 120 4*5*6 66.若默认数组下界为1，并有数组声明语句Dim a(3,-1 To 16),则该数组a包含的元素的个数为 54 3*18 67.下面的程序段 Dim aa(1 To 10) For Each X In aa Print X Next X 重复的次数是 10 68. 下面的语句 Dim a(1 To 100, 0 To 50, -3 To 4) Print LBound(a, 20), UBound(a, 2) 执行后的输出结果是 0 50 69.要分配如下方阵的数据： 1.1 2.2 3.3 4.4 5.5 6.6 7.7 8.8 9.9 数组声明语句能实现的是 Dim a(-1 to 1,-5 to -3) As Single 70.与语句static elec等价的语句是 Static Elec 71. redim只能出现在事件过程或通用过程中，用它定义的数组是一个 72.根据内存区开辟时机的不同，可以把数组分为 73.下面程序段 option base 1 private dim tt tt=array(one,two,three,four) print tt(4) 输出是 74.程序 dim arrl(10)as integer,arr2(10)as integer n=3 for i=1to5 arr1(i)=i arr2(i)=2*n+i next i print arr2(n),arr1(n) 输出结果为 75声明语句dim中不能有未知数 76.dim x(5)这一形式是数组说明符，temp =x(5)是数组元素 77数组声明语句形式为as integer） 78.数组元素形式为 79.静态数组定义后，不可以再次定义 80.用下面的语句可以建立一个对话框 81.通用对话框控件的action属性设置为1，含义是 82.通用对话框控件的action属性设置为2，含义是 83.通用对话框控件的action属性设置为3，含义是 84.通用对话框控件的action属性设置为4，含义是 85.通用对话框控件的action属性设置为5，含义是 86.在窗体上画一个通用对话框，程序运行后，通过openshow方法打开，要求在该对话框的文件类型栏87显示扩展名为doc的文件，则对通用对话框的filter属性的正确设置为 88.显示字体对话框前必须设置属性 89.通用对话框控件的showsave方法执行后，操作是打开对话框 90.通用对话框控件的showcolor方法执行后，操作是打开对话框 91.通用对话框控件的showfont方法执行后，操作是打开对话框 92.通用对话框控件的showprint方法执行后，操作是打开对话框 93.通用对话框控件的showopen方法执行后，操作是打开对话框 94.年龄变量为整型可使用表达式为 select case nl case x=0 for i=1to10 select case i case2,4,6,8,10 x=x+1 end select next i 96.当设计程序时按钮的属性值为1，运行时单击按钮，当奇数次单击，按钮的属性值为2.否则为1，下面应是哪条命令 if command2.caption="1"then command2.caption=“2”else command2.caption="1" 97.当设计程序时按钮的属性值为1，运行时单击按钮，按钮上显示“笑”，再次单击，按钮上显示“哭”，再次单击，按钮上显示“笑”，如此往复。下面程序正确是 if command1.caption="笑"then command1.caption="哭" else command1.caption="笑" 98.单击按钮，当按钮上显示“开始考试”，将计时器的属性为真，程序为 if command1.caption="开始考试"，then timer1.enabled=true 99. 单击按钮，当按钮上显示“开始考试”，将按钮的显示改为“考试结束”，程序为 if command1.caption="开始考试"“then commend1.caption=”“ 考试结束” 100.当每单击标签框一次，标签框的背景颜色就变化一次，但如果新的背景色和前景色是一个颜色，则不改变背景色，下面那段命令是正确的 Private Sub Command1_Click mcolor = Int(Rnd * 50000) If mcolor <> Label.ForeColor Then Label.BackColor = mcolor End Sub 101.如果成绩>=80分标签框显示“优秀”，成绩>=60并且<80显示“及格”，成绩>0且<60显示“不及格”，下列哪段程序是正确的？ if cj >=80 Then label1.caption=""优秀"" Elself cj >= 60 Then label1.caption=""及格"" Elself cj >0 Then label1.caption=""不及格"" End If 102.计算1到10的积，下面划线处应该使用哪组命令？ “s=1 (2)s=s*j” 103.下面的程序功能是什么？ S=0 While s <100 Print int(rnd*20) S=s+2 Wend 打印50个20以内的随机整数 104. 下面的程序功能是什么？ S=1 While s >100 Print int(rnd*20) S=s+3 Wend 什么也没做 105.如果备注是“退学“，成绩(cj)=-1; 如果备注是“缺考“，成绩(cj)=0; 如果备注是“缓考“，成绩(cj)=-2。下面那段程序正确？ If bz =”退学” Then cj=-1 If bz =”缺考” Then cj=0 If bz =”缓考” Then cj=-2 106. 如果成绩>=80分标签框显示“优秀”，成绩>=60并且<80显示“及格”，成绩>0且<60显示“不及格”，成绩>100且<60标签框显示数据错误，下列哪段程序是正确的？ if cj >100 and <0 Then label1.caption=""数据错误"" Else label1.caption= l If( cj >=80 ,""优秀"",l lf( cj >= 60 ,""及格"",l lf cj >0 ,""不及格"") End If 107.下面程序执行后，会输出那个结果？ nl = 8 Select Case nl Case 8 Print 1; Case Is <= 8 Print 3 Case 8, 10, 15 Print 4 End Select 1