单选题以下关于VB对象属性的叙述中,错误的是
单选题下面正确使用动态数组的是
单选题以下关于VB的叙述中,错误的是( )。
单选题在窗体上画一个文本框(名称为Text1)和一个标签(名称为Labe11),程序运行后,在文本框中每输入一个字符,都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是______。
A.Private Sub Text1_Change()
Labe11.Caption=Str(Len(Text1.Text)) End Sub
B.Private Sub Text1_Click()
Labe11.Caption=Str(Len(Text1.Text)) End Sub
C.Private Sub Text1_Change() Labe11.Caption=Text1.Text
End Sub
D.Private Sub Label1_Change()
Labe11.Caption=Str(Len(Text1.Text)) End Sub
单选题下面为单精度实型(即单精度浮点型)变量的是
单选题若在窗体模块的声明部分声明了如下自定义类型和数组 Pfivme Type rec Code As Integer:Caption As String End Type Dim arr(5)As lee 则下面的输出语句中正确的是
单选题若在窗体模块的声明部分声明了如下自定义类型和数组
Private Type rec
Code As Integer
Caption As String
End Type
Dim arr(5) As rec
则下面的输出语句中正确的是
单选题窗体上有一个名称为Shape1的形状控件和由三个命令按钮组成的名称为cmdDraw的控件数组。窗体外观如下图所示(从上到下的3个命令按钮的下标值分别为0、1、2)。有事件过程如下:PrivateSubcmdDraw_Click(IndexAsInteger)SelectCaseIndexCase0Shape1.Shape=0Case1Shape1.Shape=1Case2Shape1.Shape=3EndSelectEndSub当单击“画圆”命令按钮时,会执行cmdDraw_Click事件过程。以下叙述中正确的是______。
单选题设程序中有如下语句:
X=inputbox(“输入”,“数据”,100)
Print X
运行程序,执行上述语句,输入5并单击输入对话框上的“取消“按钮,则窗体上输出( )。
单选题在窗体上画一个图片框,在图片框中画一个命令按钮,位置如图所示。 则命令按钮的Top属性值是
单选题以下关于VB特点的叙述中,错误的是( )。
单选题标准模块中有如下程序代码: Public x As Integer, y As Integer Sub var_pub() x=10:y=20 End Sub 在窗体上有一个命令按钮,并有如下事件过程: Private Sub Command1_Click() Dim x As Integer Call var_pub x=x+100:y=y+100 Print x;y End Sub 运行程序后单击命令按钮,窗体上显示的是
单选题在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,在文本框中输入以下字符串: Microsoft Visual Basic Programming 然后编写如下事件过程: Private Sub Command1_CIick() Open"d:/temp/outf. txt" For Output As #1 For i=1 To Len(Text1. Text) c=Mid(Text1. Text, i, 1) If c>="A" And c<="Z" Then Print #1, LCase(C) End If Next i Close End Sub 程序运行后,单击命令按钮,文件outf. txt中的内容是______。
单选题以下关于事件、事件驱动的叙述中,错误的是______。
A.事件是可以由窗体或控件识别的操作
B.事件可以由用户的动作触发
C.一个操作动作只能触发一个事件
D.事件可以由系统的某个状态的变化而触发
单选题设x是整型变量,与函数IIf(x>0,-x,x)有相同结果的代数式是 A)|x| B)-|x| C)x D)-x
单选题用下面的语句所定义的数组的元素个数是: ______。 Dim arr(3 To 5,-2 to 2)
单选题在窗体上添加一个命令按钮,名为 command1,一文本框,名为text1,则执行如下事件过程后,文本框中的输出为______。 For i = 1 To 3 For j = 1 To 3 For k = 1 To 2 x=x+ 3 Next k Next j Next i Text1. Text =str (x)
单选题以下叙述中错误的是
单选题下列程序的运行结果是( )。 Private Function myfun(m,n) Do While m>n Do While m>n:m=m-n:Loop Do While n>m:n=n-m:Loop Loop my fun=m End Function Private Sub Command1_Click() Print myfun(9,8) End Sub
单选题在窗体上画一个命令按钮,其名称为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(a,k,1)
End If
k=k+1
Loop
Print c
End Sub
运行程序,单击命令按钮,输出结果是______。