为了使列表框中的项目分为多列显示，需要设置的属性为（　　）。

试卷相关题目

• 1执行x$=InputBox("请输入x的值")时，在弹出的对话框中输入123，在列表框List1中选中一个列表项(数据为456)，使结果为123456 的语句是（　　）。

  A.y=x$+List1．List(0)

  B.y=x$+List1．List(1)

  C.y=Val(x$)+Val(List1．List(0))

  D.y=Val(x$)＆Val(List1．List(1))

  开始考试点击查看答案
• 2下列叙述中正确的是（　　）。

  A.对长度为n的有序链表进行查找，最坏情况下需要的比较次数为n

  B.对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为(n／2)

  C.对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为(1og2n)

  D.对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为(nlog2n)

  开始考试点击查看答案
• 3某人编写了下面的程序，希望能把Text1文本框中的内容写到out．txt文件中：Private Sub Command1Click（　　）Open"out．txt" For Output As#2Print”Text1”Close#2End Sub调试时发现没有达到目的，为实现上述目的，应做的修改是（　　）。

  A.把Print”Text1¨改为Print#2，Text1

  B.把Print”Text 1”改为Print Text1

  C.把Print”Text1”改为Write”Text1”

  D.把所有#2改为#1

  开始考试点击查看答案
• 4在窗体上画一个文本框(名称为Text1)和一个标签(名称为Labe11)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。下列可以实现上述操作的事件过程是（　）。

  A.Private Sub Text1 Change（　）Labe11．Caption=Str(Len(Text1．Text))End Sub

  B.Private Sub Text1 Click（　）Labe11．Caption=str(Len(Text1．Text))End Sub

  C.Private Sub Text1 Change（　）Labe11．Caption=Text1．TextEnd Sub

  D.Private Sub Labe1 1_Change（　）Labe11．Caption=Str(Len(Text1．Text))End Sub

  开始考试点击查看答案
• 5下面有关标准模块的叙述中，错误的是（　　）。

  A.标准模块不完全由代码组成，还可以有窗体

  B.标准模块中的Private过程不能被工程中的其他模块调用

  C.标准模块的文件扩展名为．bas

  D.标准模块中的全局变量可以被工作中任何模块引用

  开始考试点击查看答案
• 6下列不能扫开菜单编辑器的操作是（　　）。

  A.按“Ctrl+E”组合键

  B.单击工具栏中的“菜单编辑器”按钮

  C.执行“工具”菜单中的“菜单编辑器”命令

  D.按“Shift+AIt+M”组合键

  开始考试点击查看答案
• 7设X是整型变量，与函数IIf(x>0，-x，x)有相同结果的代数式是（　　）。

  A.|X|

  B.-|X|

  C.X

  D.-X

  开始考试点击查看答案
• 8窗体上有一个名为Command1的命令按钮，并有如下程序：Private Sub Command1Click（　　）Dim a(10)，x％Fork=1 To 10a(k)=Int(Rnd*90+10)x=x+a(k)Mod 2Next kPrint XEnd Sub程序运行后，单击命令按钮，输出结果是（　　）。

  A.10个数中奇数的个数

  B.10个数中偶数的个数

  C.10个数中奇数的累加和

  D.10个数中偶数的累加和

  开始考试点击查看答案
• 9下列关于栈的叙述正确的是（　　）。

  A.栈顶元素最先能被删除

  B.栈顶元素最后才能被删除

  C.栈底元素永远不能被删除

  D.以上三种说法都不对

  开始考试点击查看答案
• 10下面程序运行时，若输入“Visual Basic Prograrmming”，则在窗体上输出的是（　　）。Private Sub Command1Click（　　）Dim cout(25)As Integer，ch As Stringch=Ucase(Int,utBox("请输入字母字符串"))For k=1 To i en(ch)．n=ASC(Mid(ch，k，1))-Asc("A")If n>=0 Thencount(n)=count(n)+1End IfNext km=count(0)For k=1 To 25If m<COUNT(K)THENm=count(k)End IfNext kPrint mEnd Sub

  A.0

  B.1

  C.2

  D.3

  开始考试点击查看答案