您所在的当前位置: 计算机等级考试题库   >  
BASIC题库  
  >  [填空题] 有下列程序,程序运行后,单击“Command1”按钮,在列表框List1中显示的第一行和第二行的结果分别是 【13】 和 【14】 ,最后一行的结果是 【15】 。 Type type_a chr1 As String*1 num1 As Integer End Type Private Sub Command1_Click() Dim testdata As type_a, n As Integer Dim f1 As Integer, c()As String*1 f1=FreeFile Open "d:data. txt" For Random As #f1 Len=Len(testdata) n=1 For I=97 To 102 ReDim Preserve c(n) c(n)=Chr(I) testdata. chr1=c(n) testdata. num1=I n=n+1 Put #f1, , testdata Next I Seek #f1, 1 For I=1 To UBound(c) Get #f1, , testdata List1. AddItem testdata. chr1 & testdata num1 Next I List1. AddItem UBound(c) Close End Sub
问题:
发布时间:2022-07-01

[填空题] 有下列程序,程序运行后,单击“Command1”按钮,在列表框List1中显示的第一行和第二行的结果分别是 【13】 【14】 ,最后一行的结果是 【15】 。 Type type_a chr1 As String*1 num1 As Integer End Type Private Sub Command1_Click() Dim testdata As type_a, n As Integer Dim f1 As Integer, c()As String*1 f1=FreeFile Open "d:data. txt" For Random As #f1 Len=Len(testdata) n=1 For I=97 To 102 ReDim Preserve c(n) c(n)=Chr(I) testdata. chr1=c(n) testdata. num1=I n=n+1 Put #f1, , testdata Next I Seek #f1, 1 For I=1 To UBound(c) Get #f1, , testdata List1. AddItem testdata. chr1 & testdata num1 Next I List1. AddItem UBound(c) Close End Sub

可能感兴趣的题目:

1

[填空题] 窗体上有一个名称为List1的列表框,一个名称为Picture 1的图片框。Form_ Load事件过程的作用是,把Datal.txt文件中的物品名称添加到列表框中。运行程序,当双击列表框中的物品名称时,可以把该物品对应的图片显示在图片框中如图所示。以下是类型定义及程序,请填空。 Private Type Pic  gName As String*10‘物品名称  picFile As String*20 ‘物品图片的图片文件名  End Type  Dim p(4)As Pic,pRec As Pic  Private Sub Form Load()  Open”Datal.txt" For Random As#1 _【11】_=Len(pRec)  For i=0 To 4  Get#1,i+l,P(i)  LIStI.AddItem p(i).gNaine  Next i  Close#1  End Sub    Private Sub List I-DbICIickO  For i=OTo4  If RTrim(List一List(i))=RTrim(_【12】_)Then  Picture l.,Picture=LoadPicture(p(i)._【13】_)  Exit For  End If  Next  End Sub

2

[单项选择题] 如果要在任何新建的模块中自动插入option Explicit 语句,则应采用下列______ 操作步骤。


A.在“工具”莱单中选取“选项”命令,打开“选项”对话框,单击“编辑器”选项卡,选中“要求变量声明”选项
B.在“编辑”菜单中执行“插入文件”命令。
C.在“工程”菜单中执行“添加文件”命令。
D.以上操作均不对

3

[填空题] 计算机网络分为局域网和广域网,因特网属于______。

4

[单项选择题] 下列不属于低级事件的一项是______。


A.PaintEvent
B.InputEvent
C.FocusEvent
D.ActionEvent

5

[单项选择题] 调用以下哪些方法可以使运行状态的线程进入阻塞状态( )


A.start( ),yield( ),sleep( ),join( )和wait( )
B.start( ),yield( ),sleep( ),join( ),wait( )和stop( )
C.yield( ),sleep( ),join( )和wait( )
D.yield( ),sleep( ),join( ),wait( )和stop( )

6

[填空题] 请完善程序(程序文件名:Java_2.java)并进行调试。请在下画线处填入正确内容,然后删除下画线。请勿删除注释行和其他已有的语句内容。
题目要求:
程序中HandleButton类是“Please press me”按钮的监听器类。
完成程序,使在单击“Please press me”按钮时在命令窗口中打印“The button is pressed”,并且在点击窗口右上方的“关闭窗口”按钮时能够关闭窗口。
源程序:
import java.awt.*;
import java.awt.event.*;
public class Java_2 extends Frame
public Java_2(String s)super(s);
public static void main(String args[])
Java_2 fr=new Java_2("Testing");
Button b=new Button("Please press me!");
b.addActionListener( (1) );
fr.add(b);
fr.setSize(200, 200);
fr.addWindowListener(new WindowAdapter()
public void windowClosing(WindowEvent C)System.exit(0);
);
fr.setVisible( (2) );


class HandleButton implements ActionListener
public void actionPerformed(A

7

[填空题] 下列Applet在窗口中实现一个不可编辑的TextField,并且显示“ok”。请填写正确的程序在横线处。
import java.applet.Applet;
import java.awt.*;
public class Test14 extends Applet

TextFiled tf;
public void init()

setLayout( new GridLayout(1,0));
tf=new TextField("Ok");
【15】
add( tf);

8

[单项选择题] 软件生命周期是指( )。


A.软件产品从提出、实现、使用维护到停止使用退役的过程
B.软件产品从提出、实现到使用维护的过程
C.软件产品从提出到实现的过程
D.软件产品从提出、实现到使用的过程

9

[问答题] 下面是一个Applet程序,其功能是输出已定义好的两个变量x和chr。请改正程序中的错误(有下划线的语句),使用序能输出正确的结果。 注意:不改动程序的结构,不得增行或删行。 程序运行结果如下: import java.awt.*; import java.Applet; /* <applet Code="ex34_3.class" width=800 height=400 > </applet> */ public class ex34_3 implements Applet { int x=10; char chr=’R’; Label output1; Label output2; private void init() { output1=new Label ( "定义int类型变量"+ "x,的初值为"+x); output2 =new Label ( "定义char类型变量" +" chr, 的初值为"+chr); add(output1); add(output2); } } ex34_3.html <HTML> <HEAD> <TITLE>ex34_3</TITLE> </HEAD> <BODY> <applet code="ex34_3.class" width=400 height=400 > </applet> </BODY> </HTML>

10

[单项选择题] 设置标签边框的属性是( )。


A.BorderStyle
B.BackStyle
C.AutoSize
D.Alignment