您所在的当前位置: 计算机等级考试题库   >  
BASIC题库  
  >  [填空题] 下列程序的功能是:将数据1,2,…,8写入顺序文件Num.txt中,请填空。 Private Sub Form_Click()   Dim i As Integer   Open"Num.txt"For Output As #1   For i=1 To 8    ______ Next i Close #1 End Sub
问题:
发布时间:2022-07-01

[填空题] 下列程序的功能是:将数据1,2,…,8写入顺序文件Num.txt中,请填空。
Private Sub Form_Click()
  Dim i As Integer
  Open"Num.txt"For Output As #1
  For i=1 To 8
   ______
Next i
Close #1
End Sub

可能感兴趣的题目:

1

[单项选择题] 有如下程序:
Option Base 1
Private Sub Form_Click()
Dim arr, Sum
Sum=0
arr=Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19)
For i=1 To 10
If arE(i)/3=arr(i)3 Then
Sum=Sum+arr(i)
End If
Next i
Print Sum
End Sub
程序运行后,单击窗体,输出结果为______。


A.25
B.26
C.27
D.28

2

[单项选择题] 单个用户使用的数据视图的描述称为


A.外模式
B.概念模式
C.内模式
D.存储模式

3

[单项选择题] 在堆栈类Sharedstack的定义中,为了保证堆栈在并发操作中数据的正确性,应在下画线处填入的修饰符是(两个下画线的填写内容相同)( )。
public class SharedStack
______int idx=0;
char[]data=new chaf[10];
public synchtonized void push(char c)......)
public synchronized void pop()......)


A.public
B.不使用修饰符
C.private
D.protected

4

[单项选择题] 下面概念中,不属于面向对象方法的是


A.对象
B.继承
C.类
D.过程调用

5

[单项选择题] 下列叙述中错误的是


A.一种数据的逻辑结构可以有多种存储结构
B.数据的存储结构与数据处理的效率无关
C.数据的存储结构与数据处理的效率密切相关
D.数据的存储结构在计算机中所占的空间不一定是连续的

6

[填空题] 使用Swing编写Applet,则该Applet的主类应该定义为________类的子类。

7

[填空题] 在窗体上画一个名为Command1的命令按钮,然后编写如下程序: Option Base 1 Private Sub Command1_ Click() Dim arr arr = Array(358, 32, 46, 73, 23, 59, 26, 91, 583, 12) For i = ______ For j = ______ If arr(i) >= arr(j) Thena = arr(j)arr(j) = arr(i)arr(i) = a End If Next j Next i For i = 1 To 10 Print arr(i); Next i End Sub程序运行后,单击命令按钮,将把数组arr中的10个数按升序排序,请填空。

8

[单项选择题] 下面关于类及其修饰符的一些描述,正确的是______。


A.abstract类可以用来派生子类,也可以用来创建abstract类的对象
B.abstract能与final同时修饰一个类
C.final类不但可以用来派生子类,也可以用来创建final类的对象
D.abstract方法必须在abstract类中声明,但abstract类定义中可以没有abstract方法

9

[填空题] Applet是能够嵌入到【 】格式的文件中,并能够在浏览器中运行的Java类。

10

[填空题] 在n个运动员中选出任意r个人参加比赛,有很多种不同的选法,选法的个数可以用公式计算。窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值,单击Command1按钮即可求出选法的个数,并显示在Text3文本框中。请填空。
Private Sub Command1_Click()
Dim r As Integer,n As Integer
n=Text1
r=Text2
Text3:fun(n)/funf (9) )/funfr)
End Sub
Function fun(n As Integer)As long
Dim t As Long
(10)
For k=1 To n
t=t*k
Next
fun=t
End Function