单选题在程序运行时,下面的叙述中正确的是( )。
单选题窗体上有一个名称为Combol的组合框,为了引用Combol中最后一个列表项,应使用的表达式是
单选题假定通过复制、粘贴操作建立了一个命令按钮数组Commandl,以下说法中错误的是______。
A.数组中每个命令按钮的名称(Name属性)均为Commandl
B.若未做修改,数组中每个命令按钮的大小都一样
C.数组中各个命令按钮使用同一个Click事件过程
D.数组中每个命令按钮的Index属性值都相同
单选题窗体上有一个命令按钮,命令按钮的单击事件过程如下。运行程序后,单击命令按钮,输出结果是______。 Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For k=1 To 4 s=s+a(k) Next Print S End Sub A) 10 B) 14 C) 15 D) 120
单选题关于Move方法,下列叙述正确的是
单选题窗体上有2个名称分别为Text1和Text2的文本框,1个名称为Command1的命令按钮。单击Command1时,Text1中选中的文本将显示在Text2中。下列能实现上述操作的事件过程是
单选题设窗体上有3个图像框:Image1、Image2、Image3,并有下面的程序代码:Private Sub Form_Load() Image 1.Picture=LoadPicture("LEAF.bmp") Image2.Picture=LoadPicture("OPEN.bmp") Image3.Visible-FalseEnd Sub Private Sub Image1_Click() Image2.Picture=Image1.PictureEnd Sub Private Sub Image2 Click() Image3.Picture=Image2.Picture Image2.Picture=Image1.Picture Image1.Picture=Image3.PictureEnd Sub在程序运行期间单击Image2,则在窗体上看到的结果是
单选题计算所有职称为正、副教授的平均工资,将结构赋予变量PJ中,应使用命令( )
单选题有三个关系R、S和T,如下:由关系R和5通过运算得到关系T,则所使用的运算为
单选题当一个工程含有多个窗体时,其中启动窗体是( )。
单选题开发大型软件时,产生困难的根本原因是( )。
单选题在菜单设计器中,第一级菜单的“结果”项中选项有( )
单选题在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() For n=1 To 20 If n Mod 3<>0 Then m=m+n/3 Next n Print n End Sub 程序运行后,如果单击命令按钮,则窗体上显示的内容是( )。
单选题在窗体上画一个名称为Timer1的计时器控件,要求每隔0.5秒发生一次计时器事件,则以下正确的属性设置语句是
单选题一个工程中包含两个窗体,名字分别为Form1、Form2,以及一个名为MyFun的标准模块。假定在Foma1、Form2和MyFun中分别建立了自定义过程,其定义格式为: Form 1 中定义的过程: Private Sub Fun 1 () …… End Sub Form 2 中定义的过程: Private Sub Fun 2 () …… End Sub MyFun 中定义的过程: Private Sub fun 3 () …… End Sub在调用上述过程中,如果不指明窗体或者模块的名称,则以下叙述中正确的是______ 。
单选题执行语句Print"Sgn(-34)=";Sgn(-34)后,其输出结果是( )。
单选题以下关于图片框控件的说法中,错误的是 A) 可以通过Print方法在图片框中输出文本 B) 清空图片框控件中图形的方法之一是加载一个空图形 C) 图片框控件可以作为容器使用 D) 用Stretch属性可以自动调整图片框中图形的大小
单选题窗体上有1个名称为Command1的命令按钮,事件过程如下:Private Sub Command1_Click() Dim num As Integer, x As Integer num=Val(InputBox("请输入一个正整数")) Select Case num Case Is>100 x=x+num Case Is<90 x=num Case Else x=x * num End Select Print x;End Sub运行程序,并在三次单击命令按钮时,分别输入正整数100、90和60,则窗体上显示的内容为( )。
单选题设窗体上有2个文本框Text1和Text2,并有下面的事件过程:
Dim n
Private Sub Text1_KeyPress(KeyAscii As Integer)
If"A"<=Chr(KeyAscii)And Chr(KeyAscii)<="Z" Then
n=n+1
End If
If KeyAscii=13 Then
Text2.Text=n
End If
End Sub
程序运行时,在文本框Text1中输入“Visual Basic 6.0”并按同车键后,在文本框Text2中显示的是______。
单选题设有如下事件过程:
Private Sub Command1_Click()
Dim a
a=Array(12,3,8,5,10,3,5,9,2,4)
For k=1 To 9
Print fun(a(k-1),a(k));" ";
Next k
End Sub
Private Function fun(x,y)As Integer
DoWhile x>=y
x=x-y
Loop
fun=x
End Function
程序运行时的输出结果是______。
