单选题下面列表框属性中,是数组的是______。
A.ListCount
B.Selected
C.ListIndex
D.MultiSelect
单选题在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command 1 Clickf) For i=1 To 4 X=4 Forj=1 To 3 X=3 For k=1 to 2 X=X+6 Next k Nextj,i Print X End Sub 运行程序后,单击命令按钮,输出结果是( )。
单选题语句Print "25*40"输出的结果是 ______。
A. "25*40"
B. 出现错误信息
C. 25*40
D. 1000
单选题数据独立性是数据库技术的重要特点之一。所谓数据独立性是指 A) 数据与程序独立存放 B) 不同的数据被存放在不同的文件中 C) 不同的数据只能被对应的应用程序所使用 D) 以上三种说法都不对
单选题在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1),然后编写如下事件过程:
Private Sub Command1_Click()
x=0
Do While x<50
x=(x+2)*(x+3):n=n+1
Loop
Text1.Text=Str(n):Text2.Text=Str(x)
End Sub
程序运行后,单击命令按钮,在两个文本框中显示的值分别为
单选题在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Label1,然后编写如下事件过程: Private Sub Command1_Click() Dim arr(10) For i=6 To 10 arr(i)=i-5 Next i Label1.Caption=arr(0)+arr(arr(10)/arr(6)) End Sub 运行程序,单击命令按钮,则在标签中显示的是
单选题下列对于线性链表的描述中正确的是______。
单选题设窗体上有一个文本框Text1和一个命令按钮Commandl,并有以下事件过程: Private Sub
Commandl_Click() Dim S As String,ch As String
s="" For k=1 To Len(Text1)
ch=Mid(Text1,k,1) s=ch+s Nextk
Text1.Text=S End Sub
程序执行时,在文本框中输入“Basic”,然后单击命令按钮,则Text1中显示的是______。
A.Basic
B.cisaB
C.BASIC
D.CISAB
单选题以下叙述中错误的是
单选题在窗体上画一个名称为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 该事件过程的功能是 ______。
A. 输出n以内的奇数
B. 输出n以内的偶数
C. 输出n以内的素数
D. 输出n以内能被j整除的数
单选题在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1),然后编写如下两个事件过程:
Private Sub Command1_Click{{U}} {{/U}}
A=Text1.Text+Text2.Text Print a End
Sub Private Sub Form_Load{{U}} {{/U}}
Text1.Text="" Text2.Text="" End Sub
程序运行后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入33和44,然后单击命令按钮,则输出结果为______。
A. 77
B. 33+44
C. 3344
D. 4433
单选题在窗体上画一个命令按钮,名称为Command1。然后编写如下程序: Private Sub Command1_Click() Dim i As Integer,a As Integer Do While i<20 Do While True If i Mod 10=0 Then Exit Do Else i=i-1 End If Loop i=i+11 a=a+i Loop Printa End Sub程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。
单选题以下程序执行后,在窗体上输出的图案是( )。 Form1.Cls For a=1 To 5 Print Space(5-
单选题假定有以下函数过程: Function Fun(S As String)As String Dim sl As String For i=1 To Len(S) sl=LCase(Mid(S,i,1))+s1 Next i Fun=s1 End Function 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim Strl As String,Str2 As String Strl=InputBox("请输入一个字符串") Str2=Fun(Strl) Print Str2 End Sub 程序运行后,单击命令按钮,如果在输入对话框中输入字符串“abcdefg”,则单击“确定”按钮后在窗体上的输出结果为( )。
单选题设用复制、粘贴的方法建立了—个命令按钮数组Command1,以下对该数组说法错误的是
A. 命令按钮的所有Caption属性都是Command1
B. 在代码中访问任意一个命令按钮只需使用名称Command1
C. 命令按钮的大小都相同
D. 命令按钮共享相同的事件过程
单选题在窗体上画一个名称为Commandl的命令按钮,一个名称为Labell的标签,然后编写如下事件过程:
Private Sub Commandl_Click() S=0
Fori=1 To 15 x=2*i-1
If x Mod3=0 Thens=S+1 Nexti
Labe11.Caption=S End Sub
程序运行后,单击命令按钮,则标签中显示的内容是{{U}} {{/U}}。
A.1
B.5
C.27
D.45
单选题下面程序计算并输出的是______
单选题单击命令按钮时,下列程度段的执行结果为( )。 Pfivate Sub Command1_Click() Dima As Integer,b As Integer, c As Integer a=2:b=4:c=6 Call S1(a,b) Print "a=";a;"b=";b;"c=";c Call S2(a,b) Print "a=";a;"b=";b;"c=";c; End Sub Private Sub S1(x As Integer, y As Integer) Dim c As Integer x=2*x:y=y+2:c=x+y End Sub Sub S2(x As Integer, By Val y As Integer) Dim e As Integer x=2*x:y=y+2:e=x+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(By Val x) x=x*x f2=x+x+x End Function 程序运行后,单击命令按钮,在窗体上显示的是 ______。
