单选题通常情况下,垂直滚动条的值是
A. 由下往上递增
B. 由上往下递增
C. 由左到右递增
D. 由右到左递增
单选题通过一个属性可以获得文件列表框中当前被选中文件的文件名,这个属性是( )。
单选题如果一个菜单项的Enabled属性被设置为False,则程序运行时,该菜单项
单选题窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列程序: Dim y As Integer Private Sub Command1_Click() Dim x As Integer x=2 Text1.Text=p2(pl(x),y):Text2.Text=pl(x) End Sub Private Function pl(x As Integer)As Integer x=x+y:y=x+y pl=x+y End Function Private Function p2(x As Integer,y As Integer)As Integer p2=2*x+y End Function 程序运行后,第一次单击和第二次单击命令按钮后,文本框Text1和Text2内的值分别是( )。 A) 2 4 2 4 B) 2 4 4 8 C) 10 10 58 58 D) 4 4 8 8
单选题双精度浮点数的类型说明符为
单选题下面控件中,没有Caption属性的是( )。 A) 复选框 B) 单选按钮 C) 组合框 D) 框架
单选题在利用菜单编辑器设计菜单时,为了把组合键<Alt+O>设置为“打开(O)”菜单项的访问键,可以将该菜单项的标题设置为( )。
单选题选择循环结构的作用是( )。
单选题在设计窗体时双击窗体的任何地方,可以打开的窗口是( )。
单选题阅读下面程序代码:
Private Sub Command1_Click()
Dim temp As Integer
a=Array(2,7,4,10,0,1,8,5,3,9,6)
For i=7 To 4 Step-1
For j=3 To i-1
If a(j)>a(j+1) Then
temp=a(j)
a(j)=a(j+1)
a(j+1)=temp
End If
Next j
Next i
For i=0 To 10
Print a(i);
Next i
End Sub
此程序代码运行后的输出是______。
单选题结构化程序设计方法的3种基本控制结构中不包括
单选题设窗体上有一个文本框Text1,程序代码中有以下赋值语句(假定用到的控件和变量都存在),其中错误的是( )。
单选题窗体上有两个水平滚动条HV、HT,还有一个文本框Text1和一个标题为“计算”的命令按钮Commandl,并编写了以下程序:PrivateSubCommandl_Click()Callcalc(HV.Value,HT.Value)EndSubPublicSubcalc(xAsInteger,yAsInteger)Text1.Text=x*yEndSub运行程序,单击“计算”按钮,可根据速度与时间计算出距离,并显示计算结果。对以上程序,下列叙述中正确的是______。A.过程调用语句不对,应为calc(HV,HT)B.过程定义语句的形式参数不对,应为Subcalc(xAsControl,yAsControl)C.计算结果在文本框中显示出来D.程序不能正确运行
单选题在属性窗口中把窗体的KeyPreview属性设置为True,然后编写如下两个事件过程:Private Sub Form_KeyDown(KeyCode AsInteger,Shift As Integer)Print Chr(KeyCode)End SubPrivate Sub Form_KeyPress(KeyAscii AsInteger)Print Chr(KeyAscii)End Sub在一般情况下(即不按住Shift键和锁定大写),运行程序,如果按“A”键,则程序输出的是( )。
单选题设有声明语句
Dim b(-1 To 10,2 To 9,20)As Integer
则数组b中全部元素的个数
单选题在文本框所能响应的事件中,当一个对象获得焦点时,发生的事件是______。
A. Change事件
B. KeyPress事件
C. LostFocus事件
D. GotFocus事件
单选题关于Visual Basic"方法"的概念错误的是( )。
单选题在窗体上画一个组合框,其名称为Combol,然后编写如下事件过程: Private Sub Form_Load() Combol.Text="1" For i=1 To 10 Sum=Sum+i Next i Combol.Text=Sum End Sub 程序运行后,输出结果为
单选题设有如下关系表______。则下列操作中,正确的是______。
单选题下列程序运行时输出的结果是 Private Sub Form_Click() Dim x x=Array(“天天向上”,“清华大学”,“天上人间”,“程序设计”) For i=LBound(a,1)to UBound(a,1) If Left(a(i),1)=“天”Then Print a(i); Next End Sub