南京工业大学VB期末考试复习VB题库2
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
a=Val(InputBox("请输入")) b=Val(InputBox("请输入")) x=a+b If a>b Then
x=a-b endif Print x End Sub 运行后，从 InputBox 对话框中连续输入 3 和 4，输出结果为_____。 A、3 B、34 C、0 D、7 答案： D 下列程序： Private Sub Form_Click( ) For j=1 To 15
A、②③ B、③④ C、①②④ D、①③④ 答案：
B 以下程序输出的结果是____________。 Dim a a=Array(1,2,3,4,5,6,7) For i=Lbound(a)To Ubound(a) a(i)= a(i)*a(i) Next i Print a(i) A、49 B、程序出错 C、不确定 D、0 答案：
窗体上将输出_____个字母"a"。 Private Sub Timer1_Timer()
For i = 1 To 10 Print "a"
Next i End Sub A、10 次 B、10000 次 C、以上都不对 D、1 000 次 答案：
A Dim y As Integer m=1 Do While m <= 3
B 以下程序的输出结果是_________。 Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer, p(3) As Integer k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next i For i=1 To 3 k=k+p(i)*2 Next i Print k End Sub A、28 B、35 C、33 D、37 答案：
D 在窗体 Form1 上，有一个列表框控件 List1，在窗体的 Click 事件中有如下代码: Private Sub Form_Click()
Dim k As Integer Dim entry As String, item As String entry = "EDCBA" For k = Len(entry) To 1 Step -1
A、Label B、Frame C、Timer D、TextBox 答案： C 当一个 CheckBox 控件的 Value 属性为 2 时，表示该控件_____。 A、未选中 B、以被选中 C、当前不可用 D、未知 答案： C 使用_____方法，可取得列表框中的项数。 A、RemoveItem B、ListCount C、AddItem D、Clear 答案： B 要使标签所在处透明显示背景，应设置 BackStyle 属性的值为_____。 A、False B、True C、1
答案： B 窗体 Form1 的名称属性为 frm，它的 Load 事件过程名为_____。 A、Me_Load B、Frm_Load C、Form_Load D、Form1_Load 答案： C 若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的_____属性。
A、BackColor B、BorderStyle C、BackStyle D、ForeColor 答案： C 有应用代码：Text1.Text="VisualBasic"，其中的 Text1、Text 和"VisualBasic"分别代表_____。 A、对象、方法、属性 B、属性、对象、值 C、对象、属性、值 D、对象、值、属性 答案： C 存在如下程序： Private Sub Command1_Click( )
C 在窗体中添加一个命令按钮，并编写如下程序代码：
Private Sub Command1_Click( ) Dim y As Integer y=0 Do While y<7 y=y+3 Loop MsgBox y
End Sub 程序运行后，消息对话框中显示_____。 A、8 B、9 C、7 D、6 答案：
C 某过程的说明语句中，正确的数组说明语句是____________。Const N as integer=4 Dim L as integer ①.Dim X (L) As Integer ②.Dim A(K) As Integer
Const K As Integer=3 ③.Dim B(N) As Integer ④.Dim Y(2000 To 2008) As Integer
A、对象、属性、方法、事件 B、属性、对象、方法、事件 C、对象、属性、事件、方法 D、属性、对象、事件、方法 答案： D _____在用户的应用程序执行期间发生，比如鼠标单击或敲击键盘。
A、事件 B、工程 C、属性 D、方法 答案： A 引用列表框(List1)最后一个数据项应使用_____。 A、List1.List(List1.ListCount) B、List1.Lis(ListCount)
D、0 答案： D 如果单击一个当前没有被选中的复选框，其他已被选中的复选框会处于_____状态。 A、不显示 B、选中 C、禁止 D、不选中 答案： B 复选框的 Value 属性为 1 时，表示_____。
A、复选框未被选中 B、复选框内有灰色的勾 C、复选框被选中 D、复选框操作有误 答案： C 在 VisualBasic 中最基本的对象是_____，它是应用程序基石，也是其它控件的容器。 A、窗体 B、文本框 C、命令按钮 D、标签 答案： A 以下四个说法中不正确的是_____。 A、控件工具箱中可以添加新的控件 B、可以通过双击工具箱中的控件，将控件加入窗体上 C、VB 中所有基本控件都可以改变大小 D、在窗体上选中控件，按【Del】键可删除该控件 答案： C 使用_____方法可将新的列表项添加到一个列表框中。 A、Clear B、Print C、AddItem D、RemoveItem 答案： C 如果要使文本框同时具有水平滚动条和垂直滚动条，应将 ScrollBars 设置为_____。 A、0 B、3 C、1 D、2
B 在窗体上面一个文本框（其中 Name 属性为 Text1），然后编写如下事件过程： Private Sub Command1_Click ( )
Text1.Text="" For i=1 To 10
Sum=Sum+i Next i Text1.Text=Sum End Sub 上述程序的运行结果是_____。 A、在文本框中 Text1 中输出 0 B、出错 C、在文本框中 Text1 中输出不定值 D、在文本框中 Text1 中输出 55 答案：
a=a+j Mod 3 Next j Print a End Sub 运行后输出的结果是_____。 A、15 B、1 C、90 D、120 答案：
A 哪个程序段不能分别正确显示 1、2、6、24 的值_____。 A、For i=1 To 4 n=1 For j=1 To i N=n*j Next j Print n Next i B、n=1 For j=1 To 4 N=n*j Print n Next j C、n=1 j=1 Do While j<=4 n=n*j Print n j=j+1 Loop D、For i=1 To 4 For j=1 To i n=1 n=n*j Next j Print n Next i 答案：
m=m+1 Print m; Loop A、2 B、2 3 4 C、2 3 D、2 3 4 5 答案：
B
设 a 为 Integer 型变量，s 为 Single 型变量，把 3.75 赋值给 s 后，再执行下列某一语句，则 在文本框中显示
的结果与执行语句 a=s:Text1=a 的结果相同的有_____个。 ①a=Int(s):Text1=a ②a=Fix(s):Text1=a ③a=CInt(s):Text1=a ④a=Format(s,"#####"):Text1=a A、4 B、1 C、2 D、3 答案：
D百度文库
用"冒泡"法将数组 a 中的 10 个整数按升序排列。所谓"冒泡"法就是从第一个数依次比较相 邻数，若不符合排序要求则互换值，直到最后一个数；然后再开始第二轮的比较，至所有数
全部比较结束。排序过程中大数后退，小数前行，犹如水泡往上冒。请完善以下程序段
________。 n=1O For i= 1 to n-1 For j= 1 to n-i If ____________ Then ……'互换语句 End If Next j Next i A、a(i)<a(i+1) B、a(j)>a(j+1) C、a(i)>a(j) D、a(i)<a(j) 答案：
第四套
VisualBasic 是一种面向_____的程序设计语言。 A、过程 B、用户 C、工程 D、对象 答案： D 一个应用程序_____窗体。 A、可包括多个 B、应该有两个 C、只许有一个 D、可以没有 答案： A VisualBasic 中文版的菜单栏包括：文件、编辑、视图、工程、格式、调试、_____、查询、 图表、 工具、外接程序、窗口和帮助。 A、浏览 B、运行 C、属性 D、查看 答案： B 一只白色的足球踢进球门，则白色、足球、踢、进球门是________。
C 下列循环能正常结束循环的是_____。
A、i=5 Do i=i+1 Loop Until i<0 B、i=6 Do i=i-2 Loop Until i=1 C、i=1 Do i=i+2 Loop Until i=10 D、i=10 Do i=i+1 Loop Until i>0 答案：
D 假定时钟控件的 Interval 属性为 1000，Enabled 属性为 True，并且有下面的事件过程，则 1 秒钟的时候
C、List1.List(ListCount-1) D、List1.List(List1.ListCount-1) 答案： D 当文本框的 ScrollBars 属性设置了非零值，却没有效果，原因可能是_____。 A、文本框的 MultiLine 属性为 False B、文本框中没有内容 C、文本框的 MultiLine 属性为 True D、文本框的 Locked 属性为 True 答案： A 将数据项"China"添加到列表框(List1)中成为第一项应使用_____语句。 A、List1.Addltem 1,"China" B、List1.Addltem "China",1 C、List1.Addltem "China",0 D、List1.Addltem 0,"China" 答案： C 下列控件中，_____控件不能改变大小。
B 下列语句可以用来正确地声明一个动态数组的是_____。 A、Private A(n) As Integer B、Dim A() As Integer C、Dim A(1 to n) D、Dim A(,) As Integer 答案：
B 在窗体模块的通用声明处有如下语句，会产生错误的语句是___。 ①Const a as Integer=25 ②Public St As String * 8 ③ReDim B(3) As Integer ④Dim Const X As Integer=10 A、①③ B、②③④ C、①②③ D、①② 答案：
D 下面程序段，显示的结果是_____。 Dim x x=Int(Rnd)+5 select Case x
Case 5 print "优秀" Case 4 print "良好" Case 3 print "通过" Case Else print "不通过" End Select A、通过 B、不通过 C、良好 D、优秀 答案：
item = LCase(Mid(entry, k, 1)) & k List1.AddItem item Next k End Sub 运行此程序，单击窗体,列表框第 4 行为_____。 A、d2 B、b2 C、b4 D、d3 答案：
A 以下程序段运行后，消息框的输出结果是
a=sqr(5) b=sqr(3) c=a>b Msgbox c+2 A、2 B、-1 C、1 D、出错 答案：
x=a-b endif Print x End Sub 运行后，从 InputBox 对话框中连续输入 3 和 4，输出结果为_____。 A、3 B、34 C、0 D、7 答案： D 下列程序： Private Sub Form_Click( ) For j=1 To 15
A、②③ B、③④ C、①②④ D、①③④ 答案：
B 以下程序输出的结果是____________。 Dim a a=Array(1,2,3,4,5,6,7) For i=Lbound(a)To Ubound(a) a(i)= a(i)*a(i) Next i Print a(i) A、49 B、程序出错 C、不确定 D、0 答案：
窗体上将输出_____个字母"a"。 Private Sub Timer1_Timer()
For i = 1 To 10 Print "a"
Next i End Sub A、10 次 B、10000 次 C、以上都不对 D、1 000 次 答案：
A Dim y As Integer m=1 Do While m <= 3
B 以下程序的输出结果是_________。 Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer, p(3) As Integer k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next i For i=1 To 3 k=k+p(i)*2 Next i Print k End Sub A、28 B、35 C、33 D、37 答案：
D 在窗体 Form1 上，有一个列表框控件 List1，在窗体的 Click 事件中有如下代码: Private Sub Form_Click()
Dim k As Integer Dim entry As String, item As String entry = "EDCBA" For k = Len(entry) To 1 Step -1
A、Label B、Frame C、Timer D、TextBox 答案： C 当一个 CheckBox 控件的 Value 属性为 2 时，表示该控件_____。 A、未选中 B、以被选中 C、当前不可用 D、未知 答案： C 使用_____方法，可取得列表框中的项数。 A、RemoveItem B、ListCount C、AddItem D、Clear 答案： B 要使标签所在处透明显示背景，应设置 BackStyle 属性的值为_____。 A、False B、True C、1
答案： B 窗体 Form1 的名称属性为 frm，它的 Load 事件过程名为_____。 A、Me_Load B、Frm_Load C、Form_Load D、Form1_Load 答案： C 若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的_____属性。
A、BackColor B、BorderStyle C、BackStyle D、ForeColor 答案： C 有应用代码：Text1.Text="VisualBasic"，其中的 Text1、Text 和"VisualBasic"分别代表_____。 A、对象、方法、属性 B、属性、对象、值 C、对象、属性、值 D、对象、值、属性 答案： C 存在如下程序： Private Sub Command1_Click( )
C 在窗体中添加一个命令按钮，并编写如下程序代码：
Private Sub Command1_Click( ) Dim y As Integer y=0 Do While y<7 y=y+3 Loop MsgBox y
End Sub 程序运行后，消息对话框中显示_____。 A、8 B、9 C、7 D、6 答案：
C 某过程的说明语句中，正确的数组说明语句是____________。Const N as integer=4 Dim L as integer ①.Dim X (L) As Integer ②.Dim A(K) As Integer
Const K As Integer=3 ③.Dim B(N) As Integer ④.Dim Y(2000 To 2008) As Integer
A、对象、属性、方法、事件 B、属性、对象、方法、事件 C、对象、属性、事件、方法 D、属性、对象、事件、方法 答案： D _____在用户的应用程序执行期间发生，比如鼠标单击或敲击键盘。
A、事件 B、工程 C、属性 D、方法 答案： A 引用列表框(List1)最后一个数据项应使用_____。 A、List1.List(List1.ListCount) B、List1.Lis(ListCount)
D、0 答案： D 如果单击一个当前没有被选中的复选框，其他已被选中的复选框会处于_____状态。 A、不显示 B、选中 C、禁止 D、不选中 答案： B 复选框的 Value 属性为 1 时，表示_____。
A、复选框未被选中 B、复选框内有灰色的勾 C、复选框被选中 D、复选框操作有误 答案： C 在 VisualBasic 中最基本的对象是_____，它是应用程序基石，也是其它控件的容器。 A、窗体 B、文本框 C、命令按钮 D、标签 答案： A 以下四个说法中不正确的是_____。 A、控件工具箱中可以添加新的控件 B、可以通过双击工具箱中的控件，将控件加入窗体上 C、VB 中所有基本控件都可以改变大小 D、在窗体上选中控件，按【Del】键可删除该控件 答案： C 使用_____方法可将新的列表项添加到一个列表框中。 A、Clear B、Print C、AddItem D、RemoveItem 答案： C 如果要使文本框同时具有水平滚动条和垂直滚动条，应将 ScrollBars 设置为_____。 A、0 B、3 C、1 D、2
B 在窗体上面一个文本框（其中 Name 属性为 Text1），然后编写如下事件过程： Private Sub Command1_Click ( )
Text1.Text="" For i=1 To 10
Sum=Sum+i Next i Text1.Text=Sum End Sub 上述程序的运行结果是_____。 A、在文本框中 Text1 中输出 0 B、出错 C、在文本框中 Text1 中输出不定值 D、在文本框中 Text1 中输出 55 答案：
a=a+j Mod 3 Next j Print a End Sub 运行后输出的结果是_____。 A、15 B、1 C、90 D、120 答案：
A 哪个程序段不能分别正确显示 1、2、6、24 的值_____。 A、For i=1 To 4 n=1 For j=1 To i N=n*j Next j Print n Next i B、n=1 For j=1 To 4 N=n*j Print n Next j C、n=1 j=1 Do While j<=4 n=n*j Print n j=j+1 Loop D、For i=1 To 4 For j=1 To i n=1 n=n*j Next j Print n Next i 答案：
m=m+1 Print m; Loop A、2 B、2 3 4 C、2 3 D、2 3 4 5 答案：
B
设 a 为 Integer 型变量，s 为 Single 型变量，把 3.75 赋值给 s 后，再执行下列某一语句，则 在文本框中显示
的结果与执行语句 a=s:Text1=a 的结果相同的有_____个。 ①a=Int(s):Text1=a ②a=Fix(s):Text1=a ③a=CInt(s):Text1=a ④a=Format(s,"#####"):Text1=a A、4 B、1 C、2 D、3 答案：
D百度文库
用"冒泡"法将数组 a 中的 10 个整数按升序排列。所谓"冒泡"法就是从第一个数依次比较相 邻数，若不符合排序要求则互换值，直到最后一个数；然后再开始第二轮的比较，至所有数
全部比较结束。排序过程中大数后退，小数前行，犹如水泡往上冒。请完善以下程序段
________。 n=1O For i= 1 to n-1 For j= 1 to n-i If ____________ Then ……'互换语句 End If Next j Next i A、a(i)<a(i+1) B、a(j)>a(j+1) C、a(i)>a(j) D、a(i)<a(j) 答案：
第四套
VisualBasic 是一种面向_____的程序设计语言。 A、过程 B、用户 C、工程 D、对象 答案： D 一个应用程序_____窗体。 A、可包括多个 B、应该有两个 C、只许有一个 D、可以没有 答案： A VisualBasic 中文版的菜单栏包括：文件、编辑、视图、工程、格式、调试、_____、查询、 图表、 工具、外接程序、窗口和帮助。 A、浏览 B、运行 C、属性 D、查看 答案： B 一只白色的足球踢进球门，则白色、足球、踢、进球门是________。
C 下列循环能正常结束循环的是_____。
A、i=5 Do i=i+1 Loop Until i<0 B、i=6 Do i=i-2 Loop Until i=1 C、i=1 Do i=i+2 Loop Until i=10 D、i=10 Do i=i+1 Loop Until i>0 答案：
D 假定时钟控件的 Interval 属性为 1000，Enabled 属性为 True，并且有下面的事件过程，则 1 秒钟的时候
C、List1.List(ListCount-1) D、List1.List(List1.ListCount-1) 答案： D 当文本框的 ScrollBars 属性设置了非零值，却没有效果，原因可能是_____。 A、文本框的 MultiLine 属性为 False B、文本框中没有内容 C、文本框的 MultiLine 属性为 True D、文本框的 Locked 属性为 True 答案： A 将数据项"China"添加到列表框(List1)中成为第一项应使用_____语句。 A、List1.Addltem 1,"China" B、List1.Addltem "China",1 C、List1.Addltem "China",0 D、List1.Addltem 0,"China" 答案： C 下列控件中，_____控件不能改变大小。
B 下列语句可以用来正确地声明一个动态数组的是_____。 A、Private A(n) As Integer B、Dim A() As Integer C、Dim A(1 to n) D、Dim A(,) As Integer 答案：
B 在窗体模块的通用声明处有如下语句，会产生错误的语句是___。 ①Const a as Integer=25 ②Public St As String * 8 ③ReDim B(3) As Integer ④Dim Const X As Integer=10 A、①③ B、②③④ C、①②③ D、①② 答案：
D 下面程序段，显示的结果是_____。 Dim x x=Int(Rnd)+5 select Case x
Case 5 print "优秀" Case 4 print "良好" Case 3 print "通过" Case Else print "不通过" End Select A、通过 B、不通过 C、良好 D、优秀 答案：
item = LCase(Mid(entry, k, 1)) & k List1.AddItem item Next k End Sub 运行此程序，单击窗体,列表框第 4 行为_____。 A、d2 B、b2 C、b4 D、d3 答案：
A 以下程序段运行后，消息框的输出结果是
a=sqr(5) b=sqr(3) c=a>b Msgbox c+2 A、2 B、-1 C、1 D、出错 答案：