题库
题库
A．Private Sub Text1_Change()
Label1.Caption = Text1.Text
End Sub
B．Private Sub Label1_Change()
Label1.Caption = Text1.Text
End Sub
C．Private Sub Text1_Click()
Label1.Caption = Text1.Text
End Sub
D．Private Sub Label1_Click()
Label1.Caption = Text1.Text
End Sub
| 单选题 | 面向对象方法中，继承是指（ ）。 | 查看答案 |
| 单选题 | 下列叙述中错误的是（ ）。 | 查看答案 |
| 单选题 | 下列叙述中正确的是（ ）。 | 查看答案 |
| 单选题 | 在窗体上画一个命令按钮和两个文本框，其名称分别为Commandl、Textl和Text2，在属性窗口中把窗体的KeyPreview属性设置为True，然后编写如下程序： Dim S1 As String, S2 As String Private Sub Form_Load() Text1.Text = "" Text2.Text = "" Text1.Enabled = False Text2.Enabled = False End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) S2 = S2 & Chr(KeyCode) Print S2 End Sub Private Sub Form_KeyPress(KeyAscii As Integer) S1 = S1 & Chr(KeyAscii) Print S1 End Sub Private Sub Command1_Click() Text1.Text = S1 Text2.Text = S2 S1 = "" S2 = "" End Sub 程序运行后，先后按“a”、“b”、“c”键，然后单击命令按钮，在文本框Textl和Text2中显示的内容分别为（ ）。 |
查看答案 |
| 单选题 | 以下说法中错误的是（ ）。 | 查看答案 |
| 单选题 | 在窗体上画一个图片框，再在图片框中画一个命令按钮，位置如图。则命令按钮的Top属性值是（ ）。 |
查看答案 |
| 单选题 | 在窗体上画一个文本框（名称为Textl）和一个标签（名称为Label1），程序运行后，如果在文本框中输入文本，则标签中立即显示相同的内容。以下可以实现上述操作的事件过程是（ ）。 | 查看答案 |
| 单选题 | Fibonacci数列的规律是：前2个数为1，从第3个数开始，每个数是它前2个数之和，即：1，1，2，3，5，8，13，21，34，55，89，…。某人编写了下面的函数，判断大于1的整数x是否是Fibonacci数列中的某个数，若是，则返回True，否则返回False。 Function Isfab(x As Integer) As Boolean Dim a As Integer, b As Integer, c As Integer, flag As Boolean flag = False a = 1 : b = 1 Do While x < b c = a + b : a = b : b = c If x = b Then flag = True Loop Isfab = flag End Function 测试时发现对于所有正整数x，函数都返回False，程序需要修改。下面的修改方案中正确的是（ ）。 |
查看答案 |
| 单选题 | 设a=5，b=6，c=7，d=8，执行语句x=IIf((a>b) And (c>d),10,20)后，x的值是（ ）。 | 查看答案 |
| 单选题 | 以下关于局部变量的叙述中错误的是（ ）。 | 查看答案 |
| 单选题 | 如果执行一个语句后弹出如图所示的窗口，则这个语句是（ ）。 |
查看答案 |
| 单选题 | 请阅读程序： Option Base 1 Private Sub Form_Click() Dim arr(4, 4) As Integer For i = 1 To 4 For j = 1 To 4 arr(i, j) = (i - 1) * 2 + j Next Next For i = 3 To 4 For j = 3 To 4 Print arr(j, i); Next j Next End Sub 程序运行后，单击窗体，则输出结果是（ ）。 |
查看答案 |
| 单选题 | 在VisualBasic集成环境的设计模式下，用鼠标双击窗体上的某个控件打开的窗口是（ ）。 | 查看答案 |
| 单选题 | 滚动条可以响应的事件是（ ）。 | 查看答案 |
| 单选题 | 层次型、网状型和关系型数据库划分原则是（ ）。 | 查看答案 |
| 单选题 | 有如下事件过程： Private Sub Form_Click() Dim n As Integer x = 0 n = InputBox("请输入一个整数") For i = 1 To n For j = 1 To i x = x + 1 Next j Next i Print x End Sub 程序运行后，单击窗体，如果在输入对话框中输入5，则在窗体上显示的内容是（ ）。 |
查看答案 |
| 单选题 | 在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim a$, b$, c$, k% a = "ABCD" b = "123456" c = "" k = 1 Do While k <= Len(a) Or k <= Len(b) If k <= Len(a) Then c = c & Mid(a, k, 1) End If If k <= Len(b) Then c = c & Mid(b, k, 1) End If k = k + 1 Loop Print c End Sub 运行程序，单击命令按钮，输出结果是（ ）。 |
查看答案 |
| 单选题 | 请阅读程序： Sub subp(b() As Integer) For i = 1 To 4 b(i) = 2 * i Next End Sub Private Sub Command1_Click() Dim a(1 To 4) As Integer a(1) = 5: a(2) = 6: a(3) = 7: a(4) = 8 subp a() For i = 1 To 4 Print a(i) Next End Sub 运行上面的程序，单击命令按钮，则输出结果是（ ）。 |
查看答案 |
| 单选题 | 下面描述中，不属于软件危机表现的是（ ）。 | 查看答案 |
| 单选题 | 设窗体上有一个命令按钮数组，能够区分数组中各个按钮的属性是（ ）。 | 查看答案 |