题库 题库

【单选题】

在窗体上画一个名为 Command1 的命令按钮,然后编写如下代码:
Option Base 1
Private Sub Command1_Click( )
  Dim a
  a=Array(1, 2, 3, 4)
  j=1
  For i=4 To 1 Step -1
    s=s+a(i)*j
    j=j*10
  Next i
  Print s
End Sub
运行上面的程序,其输出结果是(    )。
  • A.1234

  • B.12

  • C.34

  • D.4321

参考答案

查看答案

相关试题

单选题 某人为计算 n!(0<n<=12)编写了下面的函数过程:
Private Function fun(n As Integer) As Long
  Dim p As Long
  p=1
  For k=n-1 To 2 Step-1
    p=p*k
  Next k
  fun=p
End Function
在调试时发现该函数过程产生的结果是错误的,程序需要修改。下面的修改方案中有
3 种是正确的,错误的方案是(    )。
查看答案
单选题 设a=4,b=5,c=6,执行语句 Print a<b And b<c 后,窗体上显示的是(    )。 查看答案
单选题 以下不能输出“Program”的语句是(    )。 查看答案
单选题 执行下列语句
strInput=InputBox ("请输入字符串","字符串对话框","字符串")
将显示输入对话框。此时如果直接单击“确定”按钮,则变量 strInput 的内容是(    )。
查看答案
单选题 在长度为 n 的有序线性表中进行二分查找,最坏情况下需要比较的次数是(    )。 查看答案
单选题 在软件开发中,需求分析阶段可以使用的工具是(    )。 查看答案
单选题 为计算 a 的值,某人编写了函数 power如下:
Private Function power (a As Integer, n As Integer) As Long
  Dim p As Long
  p=a
  For k=1 To n
    p=p*a
  Next k
  power=p
End Function
在调试时发现是错误的,例如 Print power(5,4)的输出应该是 625,但实际输出是 3125。
程序需要修改。下面的修改方案中有 3 个是正确的,错误的一个是(    )。
查看答案
单选题 在窗体上画一个名为 Command1 的命令按钮,然后编写如下代码:
Option Base 1
Private Sub Command1_Click( )
  Dim a
  a=Array(1, 2, 3, 4)
  j=1
  For i=4 To 1 Step -1
    s=s+a(i)*j
    j=j*10
  Next i
  Print s
End Sub
运行上面的程序,其输出结果是(    )。
查看答案
单选题 假定有以下函数过程:
Function Fun(S As String)As String
Dim s1 As String
For i=1 To Len(S)
s1=LCase(Mid(S, i, 1))+s1
  Next i
Fun=s1
End Function
在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click( )
Dim Str1 As String, Str2 As String
Str1=InputBox("请输入一个字符串")
Str2=Fun(Str1)
Print Srt2
End Sub
程序运行后,单击命令按钮,如果在输入对话框中输入字符串“abcdefg”,则单击“确
定”按钮后在窗体上的输出结果为(    )。
查看答案
单选题 窗体上有一个名称为 Frame1 的框架(如图),若要把框架上显示的“Frame1”改为
汉字“框架”,下面正确的语句是(    )。
  
查看答案
单选题 窗体上有 Command1、Command2 两个命令按钮。现编写以下程序:
Option Base 0
Dim a( ) As Integer, m As Integer
Private Sub Command1_Click( )
  m=InputBox("请输入一个正整数")
  ReDim a(m)
End Sub
Private Sub Command2_Click( )
  m=InputBox("请输入一个正整数")
  ReDim a(m)
End Sub
运行程序时,单击 Command1 后输入整数 10,再单击 Command2 后输入整数 5,则
数组 a 中元素的个数是(    )。
查看答案
单选题 在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click( )
  Dim I, Num
  Randomize
  Do
    For I=1 To 1000
      Num=Int(Rnd*100)
      Print Num;
      Select Case Num
        Case 12
          Exit For
        Case 58
          Exit Do
        Case 65, 68, 92
          End
      End Select
    Next I
  Loop
End Sub
上述事件过程执行后,下列描述中正确的是(    )。
查看答案
单选题 下列叙述中正确的是(    )。 查看答案
单选题 在设计窗体时双击窗体的任何地方,可以打开的窗口是(    )。 查看答案
单选题 一个栈的初始状态为空。现将元素 1、2、3、4、5、A、B、C、D、E 依次入栈,然后再依次出栈,则元素出栈的顺序是(    )。 查看答案
单选题 为把圆周率的近似值 3.14159存放在变量 pi 中,应该把变量 pi 定义为(    )。 查看答案
单选题 一间宿舍可住多个学生,则实体宿舍和学生之间的联系是(    )。 查看答案
单选题 在窗体上有两个名称分别为 Text1、Text2 的文本框,一个名称为 Command1 的命令
按钮。运行后的窗体外观如图所示。
   
设有如下的类型和变量声明:
Private Type Person
  name As String*8
  major As String*20
End Type
Dim p As Person
设文本框中的数据已正确地赋值给 Person 类型的变量 p,当单击“保存”按钮时,能
够正确地把变量中的数据写入随机文件 Test2.dat 中的程序段是(    )。
查看答案
单选题 若变量 a 未事先定义而直接使用(例如:a=0),则变量 a 的类型是(    )。 查看答案
单选题 在面向对象方法中,不属于“对象”基本特点的是(    )。 查看答案