您所在的当前位置: 计算机等级考试题库   >  
BASIC题库  
  >  [填空题] 下面程序运行后,单击命令按钮,输出的结果是 【12】 Private Sub Command1_Click() Dim a%(1 To 4),b%(2 To 6),i%,str1#,str2# For i=1 To 4 a(i)=i Next For i=2 To 6 b(i) =i Next str1 = YAG(a) str2 = YAG(b) Print "str1 ="; str1; "str2 ="; str2 End Sub Function YAG (a ( ) As Integer) Dim t#, i% t=1 For i = LBound(a) To UBound(a) t=t * a(i) Next YAG = t End Function
问题:
发布时间:2022-07-01

[填空题] 下面程序运行后,单击命令按钮,输出的结果是 【12】
Private Sub Command1_Click()
Dim a%(1 To 4),b%(2 To 6),i%,str1#,str2#
For i=1 To 4
a(i)=i
Next
For i=2 To 6
b(i) =i
Next
str1 = YAG(a)
str2 = YAG(b)
Print "str1 ="; str1; "str2 ="; str2
End Sub
Function YAG (a ( ) As Integer)
Dim t#, i%
t=1
For i = LBound(a) To UBound(a)
t=t * a(i)
Next
YAG = t
End Function

可能感兴趣的题目:

1

[填空题] 数据独立性分为逻辑独立性与物理独立性。当数据的存储结构改变时,其逻辑结构可以不变,因此,基于逻辑结构的应用程序不必修改,称为()。

2

[单项选择题] 如果程序里有叫obj1和obj2的对象,当使用语句“obj2=obj1;”时的结果是( )。


A.在obj2中的实例变量被赋予obj1中相同的值
B.obj2和obj1被认为是同一个变量
C.obj2的值赋给了obj1,而obj2为空
D.以上都不对

3

[单项选择题] 用FontSize、FontBold、FontItalic、FontStrikethru和FontUnderline属性来设置大小和样式属性前,要先改变的属性是


A.Enabled
B.FontName
C.Checked
D.Visible

4

[单项选择题] 下列程序通过实现Runnable接口创建一个线程,选择正确的语句填入程序的横线处。
class MyRun implements Runnable

String str;
MyRun(String s)

str = s;

public void run()
System.out.println(str);


public class ex40

public static void main(String[] args)

String name = "实现阶段Runnable 接口";
MyRun my = new MyRun(name);
Thread th =
th. start ( );


A. new MyRun(my)
B. new Thread()
C. new Thread(my)
D. Thread(my)

5

[填空题] 在AWT的菜单结构中, 【13】 类是菜单树的根基。

6

[单项选择题] 下列关于转义字符的说法中,不正确的是______。


A.f表示走纸换页
B. 表示回车
C. 表示横向跳格
D.表示换行

7

[单项选择题] 最简单的交换排序方法是


A.快速排序
B.选择排序
C.堆排序
D.冒泡排序

8

[填空题] 设有如下程序
Private Sub Fom1_Click( )
Dim s As Integer,b As Integer
a=20:b=50
p1 a,b
p2 a,b
p3 a,b
Print"a=";a,"b=";b
End Sub
Sub pl(x As Integer,ByValy As Integer)
x=x+10
y=y+20
End Sub
Sub p2(ByVal x As Integer,y As Integer)
x=x+10
y=y+20
End Sub
Sub p3(ByVal x As Integer,ByValy As Integer)
x=x+10
y=y+20
End Sub
该程序运行后,单击窗体,则在窗体上显示的内容是:a= 【9】 和b= 【10】

9

[填空题] 下列程序段的输出结果为 ______。 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; }

10

[填空题] 执行下面程序,第一行输出结果是 [11] ,第二行输出结果是 [12]
Option Explicit
Private Sub Form_Click()
Dim A As Integer
A=2
Call Sub1(A)
End Sub
Private Sub1(x As Integer)
x=x*2+1
If x<10 Then
Call Sub1(x)
End If
x=x*2+1
Print x
End Sub