设X是整型变量，与函数IIf(x>0，-x，x)有相同结果的代数式是（　　）。

试卷相关题目

• 1下列不能扫开菜单编辑器的操作是（　　）。

  A.按“Ctrl+E”组合键

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

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

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

  开始考试点击查看答案
• 2为了使列表框中的项目分为多列显示，需要设置的属性为（　　）。

  A.Columns

  B.Style

  C.List

  D.MultiSelect

  开始考试点击查看答案
• 3执行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))

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

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

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

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

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

  开始考试点击查看答案
• 5某人编写了下面的程序，希望能把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

  开始考试点击查看答案
• 6窗体上有一个名为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个数中偶数的累加和

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

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

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

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

  D.以上三种说法都不对

  开始考试点击查看答案
• 8下面程序运行时，若输入“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

  开始考试点击查看答案
• 9设有下列程序Private Sub Form Click（　）X=50For i=1 T0 4y=InputBox("请输入一个整数")y=Val(v)If y Mod 5=0 Thena=a+yx=yElsea=a+xEnd IfNext iPrint aEnd Sub程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为（　）。

  A.100

  B.50

  C.120

  D.70

  开始考试点击查看答案
• 10下面正确使用动态数组的是（　　）。

  A.Dim arr（　　）As Integer…ReDim arr(3，5)

  B.Dim arr（　　）As Integer…ReDim arr(50)As String

  C.Dim arr（　　）…RcDim arr(50)As Integer

  D.Dim arr(50)AS Integer…ReDim arr(20)

  开始考试点击查看答案