A.Width和Height
B.Width或Height
C.Top和Left
D.Top或Left
单选题 | 语句Print 5/4*6\5 Mod 2的输出结果是 | 查看答案 |
单选题 | 以下关于变量作用域的叙述中,正确的是 | 查看答案 |
单选题 | 以下关于图片框控件的说法中,错误的是 | 查看答案 |
单选题 | 以下叙述中错误的是 | 查看答案 |
单选题 | 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() x = -5 If Sgn(x) Then y = Sgn(x ^ 2) Else y = Sgn(x) End If Print y End Sub 程序运行后,单击命令按钮,窗体上显示的是 |
查看答案 |
单选题 | 以下叙述中错误的是 | 查看答案 |
单选题 | 在窗体上画一个名称为Text1的文本框,一个名称为Command1的命令按钮,然后编写如下事件过程和通用过程: Private Sub Command1_Click() n = Val(Text1.Text) If n\2 = n/2 Then f = f1(n) Else f = f2(n) End If Print f; n End Sub Public Function f1(ByRef x) x=x*x f1=x+x End Function Public Function f2(ByVal x) x=x*x f2=x+x+x End Function 程序运行后,在文本框中输入6,然后单击命令按钮,窗体上显示的是 |
查看答案 |
单选题 | 以下关系表达式中,其值为False的是 | 查看答案 |
单选题 | 在窗体上画四个文本框,并用这四个文本框建立一个控件数组,名称为Text1(下标从0开始,自左至右顺序增大),然后编写如下事件过程: Private Sub Command1_Click() For Each TextBox In Text1 Text1(i) = Text1(i).Index i = i + 1 Next End Sub 程序运行后,单击命令按钮,四个文本框中显示的内容分别为 |
查看答案 |
单选题 | 在窗体上画一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框。当改变当前驱动器时,目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中,这个事件过程是 | 查看答案 |
单选题 | 在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() a = 12345 Print Format$(a, "000.00") End Sub 程序运行后,单击命令按钮,窗体上显示的是 |
查看答案 |
单选题 | 以下定义数组或给数组元素赋值的语句中,正确的是 | 查看答案 |
单选题 | 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程 Private Sub Command1_Click() Text1.Text = "Visual" Me.Text1 = "Basic" Text1 = "Program" End Sub 程序运行后,如果单击命令按钮,则在文本框中显示的是 |
查看答案 |
单选题 | 以下Case语句中错误的是 | 查看答案 |
单选题 | 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim array1(10, 10) As Integer Dim i As Integer, j As Integer For i = 1 To 3 For j = 2 To 4 array1(i, j) = i + j Next j Next i Text1.Text = array1(2, 3) + array1(3, 4) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是 |
查看答案 |
单选题 | 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程: Private Sub Command1_Click() n = Val(Text1.Text) For i = 2 To n For j = 2 To sqr(i) If i Mod j = 0 Then Exit For Next j If j > Sqr(i) Then Print i Next i End Sub 该事件过程的功能是 |
查看答案 |
单选题 | 在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和Command1,然后编写如下两个事件过程: Private Sub Command1_Click() strText = InputBox("请输入") Text1.Text = strText End Sub Private Sub Text1_Change() Label1.Caption = Right(Trim(Text1.Text), 3) End Sub 程序运行后,单击命令按钮,如果在输入对话框中输入abcdef,则在标签中显示的内容是 |
查看答案 |
单选题 | 在窗体上画一个名称为Text1的文本框,要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是 | 查看答案 |
单选题 | 执行语句s=Len(Mid("VisualBasic",1,6))后,s的值是 | 查看答案 |
单选题 | 确定一个控件在窗体上的位置的属性是 | 查看答案 |