在窗体上画两个标签和一个命令按钮,其名称分别为Label1、Label2和Co mmand1,然后编写下列程序:Private Sub func(LAs Label)L .Caption ="1234"End SubPrivate Sub Form_Load()Label1.Caption ="ABCDE"Label2.Caption =10End SubPrivate Sub Co mmand1_Click()a=Val(Label2.Caption)Call func(Label1)Label2.Caption =aEnd Sub程序运行后,单击命令按钮,则在两个标签中显示的内容分别为( )。
A.ABCD 和10
B.1234和100
C.ABCD 和100
D.1234和10
试卷相关题目
- 1某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值:Private Sub Co mmand1_Click( )Di ma(10)As Integer ,max As IntegerFor k =1TO 10a(K)=InputBox("输入一个整数")Next kMax=0For k =1To 10If a(k)>max ThenMax=a(k)End IfNext kPrint maxEnd Sub运行程序时发现,当输入10个正数时,可以得到正确结果,但输入10个负数时结果是错误的,程序需要修改,下面的修改中可以得到正确运行结果的是( )。
A.把If a(k)>max Then 改为If a(k)<max Then
B.把max=a(k)改为a(k)=max
C.把第2个循环语句For k =1TO 10改为For k =2TO 10
D.把max=0改为max=a(10)
开始考试点击查看答案 - 2在窗体上画两个文本框(其Name 属性分别为Text1和Text2)和一个命令按钮(其Name 属性为Co mmand1),然后编写如下事件过程:Private Sub Co mmand1_Click()x=0Do While x<50x=(x+2)*(x+3)n =n +1LoopText1.Text =Str(n)Text2.Text =Str(x)End Sub程序运行后,单击命令按钮,在两个文本框中显示的值分别为( )。
A.1和0
B.2和72
C.3和50
D.4和168
开始考试点击查看答案 - 3窗体上有一个名称为Co mmand1的命令按钮,其事件过程如下:Private Sub Co mmand1_Click()Di mi As Integer ,j As Integer ,k As IntegerDi ms As Doubles =0:i =1:j=0:k =-1Do While i <6s =s +k*(j/i)i =i +1j=j+1k =-kLoopPrint sEnd Sub以上程序所计算的表达式是( )。
A.1/2-2/3+3/4-4/5
B.-1/2+2/3-3/4+4/5
C.1-1/2+2/3-3/4+4/5
D.-1+1/2-2/3+3/4-4/5
开始考试点击查看答案 - 4下列叙述中错误的是( )。
A.在通用过程中,多个形式参数之间可以用逗号作为分隔符
B.在Print 方法中,多个输出项之间可以用逗号作为分隔符
C.在Di m 语句中,所定义的多个变量可以用逗号作为分隔符
D.当一行中有多个语句时,可以用逗号作为分隔符
开始考试点击查看答案 - 5设有变量声明为"Di m aDate As Date",则为变量aDate 正确赋值的表达方式是( )。
A.aDate =#8/2008#
B.aDate =#"8/8/2008"#
C.aDate =Date("8/8/2008")
D.aDate =Format("m/d/yy","8/8/2008")
开始考试点击查看答案 - 6要在命令按钮控件上显示图像应( )。
A.设置Picture 属性
B.实现不了
C.先将Style 设置为1,然后再设置Picture 属性
D.以上都不对
开始考试点击查看答案 - 7窗体上有一个名称为CD1的通用对话框,一个名称为Co mmand1的命令按钮。命令按钮的单击事件过程如下:Private Sub Co mmand1_Click()CD1.File Name =""CD1.Filter ="All Files|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt"CD1.FilterIndex=2CD1.Action =1End Sub关于以上代码,叙述错误的是( )。
A.执行以上事件过程,通用对话框被设置为"打开"文件对话框
B.通用对话框的初始路径为当前路径
C.通用对话框的默认文件类型为*.Txt
D.以上代码不对文件执行读写操作
开始考试点击查看答案 - 8可以产生30~50(含30和50)之间的随机整数的表达式是( )。
A.Int(Rnd*21+30)
B.Int(Rnd*20+30)
C.Int(Rnd*50-Rnd*30)
D.Int(RND*30+50)
开始考试点击查看答案 - 9在窗体上建立通用对话框需要添加的控件是( )。
A.Data 控件
B.Fro m 控件
C.Co mmonDialog 控件
D.VBCo mboBox 控件
开始考试点击查看答案 - 10设在菜单编辑器中定义了一个菜单项,名为Menu1。为了在运行时隐藏该菜单项,应使用的语句是( )。
A.Menu1.Enabled =True
B.Menu1.Enabled =False
C.Menu1.Visi ble =True
D.Menu1.Visi ble =False
开始考试点击查看答案
最新试卷
注册安全工程师注册安全工程师安全生产管理知识2014年安全工
类别:建筑类其它注册安全工程师注册安全工程师安全生产管理知识2014年安全工
类别:建筑类其它注册安全工程师注册安全工程师安全生产管理知识2014年安全工
类别:建筑类其它注册安全工程师注册安全工程师安全生产管理知识2014年安全工
类别:建筑类其它注册安全工程师注册安全工程师安全生产管理知识2014年安全工
类别:建筑类其它注册安全工程师注册安全工程师安全生产管理知识2014年安全工
类别:建筑类其它注册安全工程师注册安全工程师安全生产管理知识2014年安全工
类别:建筑类其它注册安全工程师注册安全工程师安全生产管理知识2014年安全工
类别:建筑类其它注册安全工程师注册安全工程师安全生产管理知识2014年安全工
类别:建筑类其它注册安全工程师注册安全工程师安全生产管理知识2014年安全工
类别:建筑类其它