单选题表示滚动条控件取值范围最大值的属性是( )。 A) Max B) LargeChange C) Value D) Max-Min
单选题下列程序段的执行结果为______。 Private Sub Command1_Click() n = 0 For a = 1 To 20 For b = 1 To 20 For c = 1 To 20 If a * a + b * b - c * c Then n=n+l End If Next c Next b Next a Print n End Sub
单选题在下面语句或函数中,不能描述选择结构的是
单选题设有如下通用过程:
Public Sub Fun(a(), ByVal x As Integer)
For i=1 To 5
x=x+a(i)
Next
End Sub
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim art(5)As Variant
For i=1 To 5
art(i)=i
Next
n=10
Call Fun(art(), n)
Text1. Text=n
End Sub
程序运行后,单击命令按钮,则在文本框中显示的内容是______。
单选题返回文件大小应使用的函数为____。
单选题下列程序段的执行结果为
m=2
n=3
Do
m=m+n
n=n+1
Loop While m<10
Print m;n
单选题以下关于弹出式菜单的叙述中,错误的是( )。
单选题如果要在命令按钮上显示图形文件,应设置命令按钮的
单选题窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据:Private Sub Command1 C1ick() Dim S1 As String.s2 As String Open"c:\d4.dat"For Append As#3 Line Input#3,s1 Line Input#3,s2 Text1.Text=s1+s2 CloseEnd Sub该程序运行时有错误,应该进行的修改是
单选题窗体上有一个名称为Picture1的图片框控件。一个名称为Label1的标签控件,如图所示。现有如下程序:PublicSubdisplay(xAsControl)IfTypeOfxIsLabelThenx.Caption="计算机等级考试"Elsex.Picture=LoadPicture("pic.jpg")EndIfEndSubPrivateSubLabel1_Click()Calldisplay(Label1)EndSubPrivateSubPicture1_Click()Calldisplay(Picture1)EndSub对以上程序,下列叙述中错误的是______。
单选题若变量a未事先定义而直接使用,变量b在定义的时候省略其数据类型,则变量a和b的数据类型分别为______。 A) Integer, Variant B) Variant, String C) Boolean, String D) Variant,Variant
单选题为了在按下Esc键时执行某个命令按钮的Click事件过程,需要把该命令按钮的一个属性设置为True,这个属性是
A. Value
B. Default
C. Calicel
D. Enabled
单选题窗体上有文本框Text1,执行下列程序后在文本框输入123abc,单击按钮后输出结果为______。
Private Sub From_Load()
Text1.Text=" "
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Char=Chr(KeyAscii)
KeyAscii=Asc(UCase(Char))
Eud Sub
Private Sub Command1_Click()
Print Text1.Text
End Sub
单选题编写如下程序:
Private Sub Command1_Click()
Dim a As Integer,b As Integer
a=3:b=2
If a*b0
End Sub
程序运行后,单击命令按钮Command1,输出结果为
单选题在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下程序: Private Sub Command1_Click() Dim x, y, z As Integer x = 1:y = 2:z = 3 Text1. Text= " " Call P1(x, y, z) Text1.Text = Str(z) End Sub Sub P1 (ByVal a As Integer, ByVal b As Integer, c As Integer) a= a + b b= b + c c= a + b End Sub 程序运行后,单击命令按钮,则在文本框中显示的内容是
单选题窗体上有名称为Command1的命令按钮和名称为Text1的文本框 Private Sub Commandl_Click() Text1.Text=“程序设计” Text1.SerFocus End Sub Private Sub Text1_GotFocus() Text1.Text=”等级考试” End Sub 运行以上程序,单击命令按钮后
单选题某线性表最常用的运算是插入和删除,插入运算是指在表尾插入一个新元素,删除运算是指删除表头第一个元素,那么最节省运算时间的存储方式是,
单选题为了使一个复选框被禁用(灰色显示),应把它的Value属性设置为______。
A.0
B.1
C.2
D.False
单选题用来设置文字字体是否为粗体的属性是( )。
单选题下列程序在运行时输出的结果是( )。 Option Base 1 Private Sub Form_Click() Dim x(10) For i=1 To 10 x(i)=10-i+1 Next i For i=10 To 1 Step-2 Print x(i) Next i End Sub