您所在的当前位置: 计算机等级考试题库   >  
BASIC题库  
  >  [单项选择题] 以下能正确定义数据类型TelBook的代码是( )。 A.Type TelBook Name As String*10 TelNum As Integer End Type B.Type TelBook Name As String*10 TelNum As Integer End TelBook C.Type TelBook Name String*10 TelNum Integer. EndType TelBook D.Typedef TelBook Name String*10 TelNum Integer End Type
问题:
发布时间:2022-07-01

[单项选择题] 以下能正确定义数据类型TelBook的代码是( )。


A.Type TelBook Name As String*10 TelNum As Integer End Type
B.Type TelBook Name As String*10 TelNum As Integer End TelBook
C.Type TelBook Name String*10 TelNum Integer. EndType TelBook
D.Typedef TelBook Name String*10 TelNum Integer End Type

可能感兴趣的题目:

1

[单项选择题] 下列描述中,是软件调试技术的是( )。


A.错误推断
B.集成测试
C.回溯法
D.边界值分析

2

[单项选择题] 如果一个工程含有多个窗体及标准模块,则以下叙述中错误的是( )。


A.如果工程中含有Sub Main过程,则程序一定首先执行该过程
B.不能把标准模块设置为启动模块
C.用Hide方法只是隐藏一个窗体,不能从内存中清除该窗体
D.任何时刻最多只有一个窗体是活动窗体

3

[单项选择题] 下列标识符中( )是不合法的。


A.BigMeaninglessName
B.$ int
C.1st
D.$1

4

[单项选择题] 在窗体上添加一个文本框,其名称为text1,然后编写如下的Load事件过程,则该程序的运行结果是______。
Private Sub form_ load
Text1. Text = " "
t = 1
for k = 10 To 6 Step -2
t= t* k
Next k
Text1. Text = t
End Sub


A.在文本框中显示120
B.文本框中仍为空
C.在文本框中显示480
D.出错

5

[填空题] 【11】 是Swing新增加的组件,主要功能是把数据以二维表格的形式显示出来。

6

[单项选择题] 阅读下列代码片段
class InterestTest______ActionListener
public void actionPerformed(ActionEvent event)
double interest=balance*rate/100;
balance+=interest;
NumberFormat format=NumberFormat. getCurrencyInstance();
System. out. print]b("balance="+formatter. format(balance));

Private double rate;

在下画线处,应填的正确选项是______。


A.Implementation
B.Inheritance
C.implements
D.extends

7

[填空题] 关系表达式X≤-5或X≥5所对应的布尔表达式是 (12)

8

[单项选择题] 下列正确的Visual Basic注释语句是


A.Dim a(10) As Integer Rem这是一个VB程序
B.这是一个VB程序Private Sub Command1_Click()…
C.a=1:b=2:_Rem这是一个VB程序:c=3
D.If Shift=6 And Button=2 ThenPrint"BBBB" Rem 这是一个VB程序End If

9

[填空题] 数据库保护分为:安全性控制 【5】 并发性控制和数据的恢复。

10

[填空题] 下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a,其中最后一项为n个。
例如:a=5,n=4时,则Sn=5+55+555+5555。请在空白处填入适当的内容,将程序补充完整。
Private Sub Command1_Click()
Dim a As Integer,n As Integer,Cout As Integer
Dim Sn As Long,Tn As Long
  Cout=1
   Sn=0
  Tn=0
   a=InputBox("请输入a的值:")
 n=InputBox("请输入n的值!")
 DO
 Tn=Tn*10+a
  Sn=Sn+Tn
 Cout=Cout+1
  ______
  Debug.Print a,n,Sn
End Sub