单选题如果需要线控件在窗体上成为一条与水平线呈45°的斜线，它的属性值应满足的条件是______。
单选题下列程序段的执行结果为( )。 x=Int(Rnd+4) Select Case x Case5：Print"A Class" Case4：Print"B Class" Case3：Print"C Class" Case Else：Print"D Class" End Select
单选题执行下列程序段 a$="Visual Basic Programming" b$="C++" c$=UCase(Left$(a$,7))&b$&Right$(a$,1 2) 后，变量c$的值为( ) A．Visual BASIC Programming B．VISUAL C++Programming C．Visual C++Programming D．VISUAL BASIC Programming
单选题设窗体上有1个滚动条,要求单击滚动条右端的鬻按钮一次,滚动块移动一定的刻度值,决定此刻度值的属性是【 】
单选题设有下面程序代码： Option Base1 Private Sub Command1_Click() Dim x(6) a=Array(4，2，5，1，6，3) b=Array(64，24，98，27，58，41) For k=1 To 6 x(a(k))=b(k) Next k For k=1 To 6 Print x(k)； Next k End Sub 程序运行时的输出是
单选题下面程序运行时，单击窗体后，窗体上显示的结果是( )。Private Sub Form_Click()Dim i As Intege，sum As LongDimt As Longt=1：sum=0For i=1To3t=t*isum=sum+tNextiPrint sumEnd Sub
单选题下列操作中，不能向工程中添加窗体的是 ______。
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub
Command1_Click{{U}} {{/U}} Dim n As Integer
For n=0 To 9 Step 3 Print rel(n)； Next
n End Sub Private Function tel(ByVal i As
Integer)As Integer Dim x As Integer
x=0 For j=1 To i If i＜5 Then rel=i：Exit
Function x=x+j Next j
rel=x End Function
程序运行后，单击命令按钮，则窗体上显示的内容是______。
A. 1 3 5 7
B. 2 8 14 53
C. 0 3 21 45
D. 0 5 11 34
单选题单击命令按钮时，下列程序的运行结果为
Private Sub Command1_Click()
Print Fun(23，18)
End Sub
Public Function Fun(m As Integer，n As Integer) As Integer
DO While m＜＞n
DO While m＞n:m=m-n:Loop
DO While m＜n:n=n-m:Loop
Loop
Fun=m
End Function
单选题有如下的程序： Private Sub Command1_Click() Dim k As Integer,m As Integer Dim P As Integer k=4:m=1 P=Fun(k，m)：Print P： P=Fun(k，m)：Print P End Sub Private Function Fun(a As Integer,b As Integer) Static m As Integer,i As Integer m=5:i=2 i=i+m+1 m=i+a+b Fun=m/2 End Function 单击命令按钮后，输出结果为( )。 A) 2 2 B) 4 4 C) 5 5 D) 6 6
单选题设窗体上有一个名称为Check1的复选框，并有下面程序代码：Private Sub Check1_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single)Check1．Value=1End Sub根据上面的事件过程，可以得出结论
单选题下列循环中，可以正常结束的是
单选题下列程序代码实现生成20个0～100之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。请选择正确的程序段是( )，完成程序。 Private Sub Commandl_Click() Dim arr(1 To 20) For i=1 To 20 arr(i)=______ Textl.Text=Textl.Text & arr(i)& Chr(13)& Chr(10) Next i Sum=0 For Each X ______ If X＞50 Then Print Tab(20)；X Sum=Sum+X End If Next X Print Tab(20)；"Sum="；Sum End Sub
单选题在变量的隐式说明中，下列( )是单精度型变量。
单选题以下Visual Basic不支持的循环结构是
单选题设在窗体上有一个名称为Check1的复选框数组，并有以下事件过程：Private Sub Check1_Click(Index As
Integer) …End Sub则下面叙述中错误的是______。
A.单击数组中任何复选框都会调用此事件过程
B.参数Index的值等于单击数组中某个复选框的Index属性的值
C.上面的过程是数组中第1个复选框的事件过程
D.从过程的首部(即第1行)无法确定数组中复选框的个数
单选题默认情况下，下面声明的数组的元素个数是( )。 Dim a(5，-2 To 2)
单选题为了实现鼠标自动拖放，必须把( )属性设置为1；而为了执行手动拖放，必须把该属性设置为0。
单选题在程序运行期间可以将图形载入窗体、图片框或图像框的函数是
单选题下列程序 Private Sub Command1_Click( ) x = "abcd" y = "1234" For i = 1 To 4 z = z + Mid(x, i, 1)+ Left(y, 1) Next i Print z End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是________。