单选题下列程序段的执行结果为( )。 x=Int(Rnd+4) Select Case x Case 5:Print"A Class" Case 4:Print"B Class" Case 3:Print"C Class" Case Else:Print"D Class" End Select
单选题在文本框中,要设置显示的文本颜色,应该设置( )属性。
单选题设运行程序时弹出的菜单如图所示:关于该菜单,以下叙述中错误的是______。A.菜单中能够显示分隔线是因为该菜单项的标题为"-"B.分隔线对应的菜单项的Name属性可以为空C.“退出”菜单项的有效性属性被设为FalseD.使用PopupMenu方法能够显示如图所示的菜单
单选题有如下程序:
Private Type stu
X As String
Y As Integer
End Type
Private Sub Command1 Click()
Dim a As stu
a.X="ABCD"
a.Y=12345
Print a
End Sub
程序运行时出现错误,错误的原因是( )。
单选题有下面的程序段,其功能是按下图左图所示的规律输出数据:Dima(3,5)AsIntegerForj=1To3Forj=1To5a(i,j)=i+jPrinta(i,j);NextPrintNext若要按下图右图所示的规律继续输出数据,则接在上述程序段后面的程序段应该是()A.Fori=1To5Forj=1To3Printa(j,i);NextPrintNextB.B.Fori=1To3Forj=1To5Printa(j,i);NextPrintNextC.Forj=1To5Fori=1To3Printa(j,i);NextPrintNextD.Fori=1To5ForjW=1To3Printa(i,j);NextPrintNext
单选题在E-R图中,用来表示实体联系的图形是( )。
单选题在窗体上画一文本框,其名称为Text1,为了在程序运行后隐藏该文本框,应使用的语句为
单选题以下叙述中,错误的是( )。
单选题某人编写了下面的程序
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a=InputBox("请输入整数"):b=InputBox("请输入整数")
pro a:pro b
Callpro(a+b)
End Sub
Private Sub pro(n As Integer)
While(n>0)
Print n Mod 10; n=n/10
Wend
Print
End Sub
此程序功能是:输入2个正整数,反序输出这2个数的每一位数字,再反序输出这2个数之和的每一位数字。例如:若输入123和234,则应该输出:3 2 1 4 3 2 7 5 3但调试时发现只输出了前2行(即2个数的反序),而未输出第3行(即2个数之和的反序),程序需要修改。下面的修改方案中正确的是
单选题通常情况下,垂直滚动条的值是
单选题在随机文件中,下列正确的选项是( )。
单选题执行下面的程序段后,变量S的值为( )。 S=5 For i=2.6 To 4.9 Step 0.6 S=S+1 Next i
单选题在程序运行时,下面的叙述中正确的是( )。
单选题设有如下变量声明语句: Dim a, b As Boolean 则下面叙述中正确的是( )。
单选题在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim i As Integer,n As Integer For i=0 To 50 i=i+3 n=n+1 If i>10 Then Exit For Next Text1.Text=Str(n) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是 ______。
单选题窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。要求编写一个程序,统计文本框中0~9各数字字符的个数。某人编写如下程序:
Private Sub Command1_Click()
Dim count(10) As Integer
第1个For循环
For i=0 To 9
count(i)=0
Next
S=Trim(Text1.Text)
strLen=Len(S)
第2个For循环
For i=1 To strLen
C=Mid(g,i,1)
If e>="0" And C<="9" Then
x=Val(c)
count(i)=count(i)+1
End If
Next
第3个For循环
For i=0 To 9
Print Str(i), count(i)
Next
End Sub
运行程序后,发现不能实现题目的要求,程序应该进行的修改是______。
单选题窗体上有1个名称为Command1的命令按钮,事件过程如下: Private Sub Command1_Click() Dim art_x(5,5)As Integer For i=1 To 3 For j=2 To 4 arr_x(i,j)=i*j Next i Next i Print arr_x(2,1);arr_x(3,2);art_x(4,3) End Sub 运行程序,并单击命令按钮,窗体上显示的内容为
单选题数据库应用系统中的核心问题是
单选题下列程序段的执行结果为______。 A="abcd" B="bcdc" E=Right(A,3) F=Mid(B,2,3) If E<FThen PrintE+F Else Ptint F+E
单选题窗体上有1个名称为Command1的命令按钮,事件过程如下:Private Sub Command1_Click() m=-3.6 If Sgn(m)Then n=Int(m) Else n=Abs(m) End If Print nEnd Sub运行程序,并单击命令按钮,窗体上显示的内容为( )。
