您所在的当前位置: 计算机等级考试题库   >  
BASIC题库  
  >  [填空题] 有如下事件过程: Private Sub Form_Adivate() Dim Score(1 to 3 ) As Integer Dim i As Integer Dim t As Variant For i=3 To 1 step-1 Score(i)=2*1 Next For Each t In Score Print t Next End Sub 程序运行后窗体上显示的值为 (10)
问题:
发布时间:2022-07-01

[填空题] 有如下事件过程:
Private Sub Form_Adivate()
Dim Score(1 to 3 ) As Integer
Dim i As Integer
Dim t As Variant
For i=3 To 1 step-1
Score(i)=2*1
Next
For Each t In Score
Print t
Next
End Sub
程序运行后窗体上显示的值为 (10)

可能感兴趣的题目:

1

[单项选择题] 若要将当前盘目录下的文件A.TXT连接在文件B.TXT后面,应使用的命令为( )。


A.COPY A.TXT>>B.TXT


B.MOVE A.TXT>>B.TXT

C.PATH A.TXT>>B.TXT

D.TYPE A.TXT>>B.TXT

2

[问答题] System.out.println(total);

3

[单项选择题] 按条件f对关系R进行选择,其关系代数表达式为( )。


A. R|×|R
B.

C. 6f(R)
D. ∏ f(R)

4

[填空题] 下列程序段的输出结果为 ______。
int a=2;
switch (a)

case 2:
System.out.print("Value is 2.");
case 3:
System.out.println("Value is.");
break;
default:
System.out.println("end");
break;

5

[单项选择题] 下列说法中,不正确的是


A.Cls方法中的对象,可以是窗体或图片框,如果省略则清除当前窗体中显示的内容。
B.当前窗体中用Picture属性装入的图形,不可以用Cls方法清除
C.Move方法用来移动窗体和控件,不能改变大小
D.Cls可以清除由Print方法显示的文本,并把光标移到对象的左上角(0,0)

6

[填空题] 在窗体上有一个“背景色变换”按钮和一个“结束”按钮。单击“背景色变换”按钮,背景色变为红色;再单击,背景色变为绿色;再单击,背景色变为蓝色;再单击背景色变为红色 ……如此循环。单击“结束”按钮,程序运行结束。请填空。  Private Sub cmdChange_Click()   If Mark=0 Then    【 】     Mark=1    ElseIf【 】Then    Forml.BackColor=vbGreen    Mark=2    ElseIf Mark=2 Then    Form1.BackColor;vbBlue    【 】    End If  End Sub  Private Sub cmdExit_Click()   End  End Sub

7

[填空题] 在窗体上画1个命令按钮和1个文本框,其名称分别为Commandl和Textl,然后编写如下代码: Dim Save All As String Private Sub Commandl_C1iCk() Text1.Text=Left(UCase(SaveAU),4) End Sub Private Sub Textl_KeyPress(KeyAscii As Intege) SaveA11=Save All+Chr(KeyAscii) End Sub 程序运行后,在文本框中输入abcdefg,单击命令按钮,则文本框中显示的内容是______。

8

[单项选择题] 下面程序段的运行结果是( )。
char a[7]="abcdef";
char b[4]="ABC";
strcpy(a,b);
printf("%c" ,a[5]);


A.
(其中
表示空格)
B.
C.e
D.f

9

[单项选择题] 信息系统软件开发瀑布模型包括系统规划、系统分析、系统设计、系统实施和系统维护等几个阶段。下面各项工作中,属于系统实施阶段的是___(19)___


A.问题定义
B.可行性研究
C.系统测试
D.绘制E-R图

10

[填空题] 有以下程序段,当在消息框中输入8后,y的值为______。
x=InputBox("Enter an Integer")
x=CInt(x)
Select Case x
Case Is<=0
y=0
Case Is<=10
y=5+2*x
Case Is<=15
y=x-5
Case Is>15
y=0
End Select