题库
题库
A．一对一
B．一对多
C．多对一
D．多对多
| 单选题 | 下列叙述中正确的是（ ）。 | 查看答案 |
| 单选题 | 在窗体上画一个名称为 Command1 的命令按钮，再画两个名称分别为 Label1、Label2 的标签，然后编写如下程序代码： Private X As Integer Private Sub Command1_Click( ) X=5: Y=3 Call proc(X, Y) Label1.Caption=X Label2.Caption=Y End Sub Private Sub proc(a As Integer, ByVal b As Integer) X=a*a Y=b+b 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”，则单击“确 定”按钮后在窗体上的输出结果为（ ）。 |
查看答案 |
| 单选题 | 在窗体上画一个名为 Command1 的命令按钮，然后编写以下程序： Private Sub Command1_Click( ) Dim M(10) As Integer For k=1 To 10 M(k)=12-k Next k x=8 Print M(2+M(x)) End Sub 运行程序，单击命令按钮，在窗体上显示的是（ ）。 |
查看答案 |
| 单选题 | 在设计窗体时双击窗体的任何地方，可以打开的窗口是（ ）。 | 查看答案 |
| 单选题 | 在窗体上画一个命令按钮和一个标签，其名称分别为 Command1 和 Labcl1，然后编 写如下事件过程： Private Sub Command1_Click( ) Counter=0 For i=1 To 4 For j=6 To 1 Step -2 Counter=Counter+1 Next j Next i Label1.Caption=Str(Counter) End Sub 程序运行后，单击命令按钮，标签中显示的内容是（ ）。 |
查看答案 |
| 单选题 | 窗体上有一个名称为 Frame1 的框架（如图），若要把框架上显示的“Frame1”改为 汉字“框架”，下面正确的语句是（ ）。  |
查看答案 |
| 单选题 | 在长度为 n 的有序线性表中进行二分查找，最坏情况下需要比较的次数是（ ）。 | 查看答案 |
| 单选题 | 某人为计算 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 种是正确的，错误的方案是（ ）。 |
查看答案 |
| 单选题 | 以下叙述中错误的是（ ）。 | 查看答案 |
| 单选题 | 以下不能输出“Program”的语句是（ ）。 | 查看答案 |
| 单选题 | 在软件开发中，需求分析阶段可以使用的工具是（ ）。 | 查看答案 |
| 单选题 | 有三个关系 R、S和 T 如下： 由关系 R 和S通过运算得到关系 T，则所使用的运算为（ ）。 |
查看答案 |
| 单选题 | 设有如下通用过程： Public Function Fun(xStr As String)As String Dim tStr As String, strL As Integer tStr="" strL=Len(xStr) i=1 Do While i<=strL/2 tStr=Tstr & Mid(xStr, i, 1)& Mid(xStr, strL-i+1, 1) i=i+1 Loop Fun=tStr End Function 在窗体上画一个名称为 Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click( ) Dim S1 As String S1="abcdef" Print UCase(Fun(S1)) End Sub 程序运行后，单击命令按钮，输出结果是（ ）。 |
查看答案 |
| 单选题 | 为把圆周率的近似值 3.14159存放在变量 pi 中，应该把变量 pi 定义为（ ）。 | 查看答案 |
| 单选题 | 假定有以下循环结构 Do Until 条件表达式 循环体 Loop 则以下正确的描述是（ ）。 |
查看答案 |
| 单选题 | 在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编 写如下事件过程： Private Sub Command1_Click( ) Dim i As Integer, n As Integer For i=0 To 50 i=i+3 n=n+1 If i>10 Then Exit For Next Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（ ）。 |
查看答案 |
| 单选题 | 数据流图中带有箭头的线段表示的是（ ）。 | 查看答案 |
| 单选题 | 在窗体上画一个名为 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 运行上面的程序，其输出结果是（ ）。 |
查看答案 |