位置:首页 > 题库频道 > 其它分类 > 计算机其它 > 二级二级VB2014年全国计算机等级《二级VB》考前押密试题(4)

设有变量声明为"Di m aDate As Date",则为变量aDate 正确赋值的表达方式是(  )。

发布时间:2024-07-09

A.aDate =#8/2008#

B.aDate =#"8/8/2008"#

C.aDate =Date("8/8/2008")

D.aDate =Format("m/d/yy","8/8/2008")

试卷相关题目

  • 1执行下列程序段后,整型变量n 的值为(  )。n =0For i =1To 20Step 5n =n +1Next i

    A.50

    B.4

    C.15

    D.210

    开始考试点击查看答案
  • 2在窗体上画一个命令按钮(名称为Co mmand1),并编写下列代码:Function Funl (ByVal a As Integer ,b As Integer)As IntegerDi mt As Integer t =a-bb =t +aFunl =t +bEnd FunctionPrivate Sub Co mmand1_Click()Di mx As Integerx=10Print Funl(Funl(x,(Funl(x,x-1))),x-1)End Sub程序运行后,单击命令按钮,输出结果是(  )。

    A.10

    B.0C.11D.21

    开始考试点击查看答案
  • 3下列说法正确的是(  )。

    A.任何时候都可以使用标准工具栏的"菜单编辑器"按钮打开菜单编辑器

    B.只有当代码窗口为当前活动窗口时,才能打开菜单编辑器

    C.只有当某个窗体为当前活动窗体时,才能打开菜单编辑器

    D.任何时候都可以使用D.任何时候都可以使用"工具"菜单下的"菜单编辑器"命令,打开菜单编辑器

    开始考试点击查看答案
  • 4MsgBox 函数的返回值的类型为( )。

    A.数值型

    B.变体类型

    C.字符串型

    D.日期型

    开始考试点击查看答案
  • 5下列符号常量的声明中,不合法的是(  )。

    A.Const a As Si ngle =1.1

    B.Const a="OK"

    C.Const a As Double =Si n(1)

    D.Const a As Integer ="12"

    开始考试点击查看答案
  • 6下列叙述中错误的是(  )。

    A.在通用过程中,多个形式参数之间可以用逗号作为分隔符

    B.在Print 方法中,多个输出项之间可以用逗号作为分隔符

    C.在Di m 语句中,所定义的多个变量可以用逗号作为分隔符

    D.当一行中有多个语句时,可以用逗号作为分隔符

    开始考试点击查看答案
  • 7窗体上有一个名称为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

    开始考试点击查看答案
  • 8在窗体上画两个文本框(其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

    开始考试点击查看答案
  • 9某人编写了如下程序,用来求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)

    开始考试点击查看答案
  • 10在窗体上画两个标签和一个命令按钮,其名称分别为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

    开始考试点击查看答案
返回顶部