A.abe和ABC
B.空白
C.ABC和abc
D.出错
单选题 | 面向对象方法中,继承是指( )。 | 查看答案 |
单选题 | 下列叙述中错误的是( )。 | 查看答案 |
单选题 | 下列叙述中正确的是( )。 | 查看答案 |
单选题 | 在窗体上画一个命令按钮和两个文本框,其名称分别为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 运行上面的程序,单击命令按钮,则输出结果是( )。 |
查看答案 |
单选题 | 下面描述中,不属于软件危机表现的是( )。 | 查看答案 |
单选题 | 设窗体上有一个命令按钮数组,能够区分数组中各个按钮的属性是( )。 | 查看答案 |