单选题下面程序的运行结果是______。
Private Sub Form_Click()
i=0
Do Until 0
i=i+1
If i>10 Then Exit Do
Loop
Print i
End Sub
单选题在Visual Basic中最基本的对象是______,它是应用程序的基石,也是其他控件的容器。
单选题可设置文字字体为斜体的属性是( )。
单选题以下过程定义中正确的过程首行是
单选题在窗体上画一个名称为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
arrayl(i,j)=i+j
Next j
Next i
Text1.Text=array1(2,3)+array1(3,4)
End Sub
程序运行后,单击命令按钮,在文本框中显示的值是______。
单选题有如下一个函数过程: Function Fun(a As Integer) Stcitic C b=0:b=b+1:c=c+1 Fu n=a+b+c End Function 在窗体上添加一个命令按钮,事件过程如下: Private Sub Command1_Click() Dim a As Integer a=2 For i=1 To 3 Print Fun(A): Next End Sub 运行该程序,单击命令按钮,输出结果是( )。 A) 4 4 4 B) 4 5 6 C) 6 7 8 D) 4 7 9
单选题在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim k As Integer For i=1 To 3 k = i Call sub1(k) m=m + k Next i Print m; i End Sub Private Sub sub1(n As Integer) n = 1 + 2 * n End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是
单选题窗体上有一个名称为Command1的命令按钮,其单击事件过程及相关的代码如下:
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x=Val(InputBox("输入整数"))
y=Val(InputBox("输入整数"))
Print str(fun(x,y)+x+y)
End Sub
Private Function fun(ByRef m As Integer, ByVal n As Integer)
m=m*m
n=n+n
fun=m+n
End Function
运行程序,单击命令按钮时,出现输入对话框,分别输入3、5,则窗体上显示的是______。
单选题有以下程序: Option Base 1 Dim arr() As Integer Private Sub Form_Click() Dim i As Integer,j As Integer ReDim arr(3,2) Fori=1 To 3 Forj=1 To 2 arr(i,j)=i*2+j Next j Next i ReDim Preserve arr(3,4) Forj=3 To 4 arr(3,j)=j+9 Nextj Print arr(3,2);arr(3,4) End Sub程序运行后,单击窗体,输出结果为______。 A) 0 0 B) 7 12 C) 0 13 D) 8 13
单选题设有如下程序: Private Static Function Fac(n As Integer)As Integer Dim f As Integer f=f+n Fac=f End Function Private Sub Form_Click( ) Dim I As Integer For 1=2 To 3 Print"#";I&“=”&Fac(1) Next I End Sub 程序运行后,单击窗体,在窗体上显示的是
单选题在窗体上画一个名称为Text1的文本框,然后编写如下事件过程:Private Sub Form_Load( )
Text1. Text=" "
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Const Alt = 4
Const Key_F2 = &H71 "&H71是F2键的键码
AltD = (Shift And Mt) > 0
F2D = (KeyCode = Key_F2)
If AltD And F2D Then
Text1. Text = "abl"
End If
End Sub
程序运行后,如果按Shift+F2键,则文本框中的内容是______。
单选题执行x$=InputBox("请输入x的值")时,在弹出的对话框中输入123,在列表框List1选中1个列表项(数据为456),下面值是123456的语句是
单选题软件测试是保证软件质量的重要措施,它的实施应该是在______。
A. 程序编码阶段
B. 软件定义阶段
C. 软件开发阶段
D. 软件维护阶段
单选题执行下列语句后,显示输入对话框,此时如果单击“确定”按钮,则变量strlnput的内容是______。 atrInput=Input Box("请输入字符串","字符串对话框","字符串")
单选题设窗体上有一个名称为List1的列表框和一个名称为Check1的复选框数组(下标从0开始)。程序运行时,单击某个复选框,如果列表框中没有该复选框的标题,则把该复选框的标题添加到列表框中,否则从列表框中把该复选框标题删除。Private Sub Check1_Click(Index As Integer)For k=0 To List1.ListCount-1If Check1(Index).Caption=List1.List(k)ThenExit ForEnd IfNext kIf k<List1.ListCount ThenList1.RemoveItem kElseList1.AddItem______________End IfEnd Sub为使上面程序可以实现该功能,程序代码中横线上应该填入的代码是
单选题以下叙述中错误的是
单选题设a=5,b=6,c=7,d=8,执行下列语句后,X的值为【 】
X=IIF((a>b)And(C>d),10,20)
单选题窗体上有一个名称为Optionl的单选按钮数组,程序运行时,当单击某个单选按钮时,会调用下面的事件过程 Private Sub Optionl_Click(Index As Integer) End Sub 下面关于此过程的参数Index的叙述中正确的是
单选题下列有关文件叙述中,正确的是( )。
单选题当一个复选框被选中时,它的Value属性的值是
