文本框TextBox中的内容若要设置为用户不能修改，应设置( )属性。

单项选择题

运行下列语句后，输出的结果是( )。

Option Base 1

Dim a

i=1

a=Array(1,-2,9,0,-1,9)

Do

k=a(i)

For m=10 To k Step-2

n=k+m

Next m

Print n+m

i=i+1

Loop While Abs(m+n)＜＞27

A．3 27-8
B．3-8 27
C．-8 27 3
D．-8 3 27

单项选择题

有下列函数过程：

Function Func2(a As Integer,b As Integer)As Integer

Staticm As Integer,i As Integer

m=0

i=2

a=i+m+1

b=i+a+b

Func2=m

End Function

在窗体上画一个命令按钮，然后编写下列事件过程：

Private Sub Command1_Click()

Dim p As Integer,k As Inmger,m As Integer

k=4

m=1

p=Func2(k,m)

Prim k;m

p=Func2(k,m)

Print k;m

End Sub

程序运行后，单击命令按钮，输出结果是( )。

A．3 6＜CR＞3 6
B．3 6＜CR＞3 11
C．3 11＜CR＞3 6
D．3 11＜CR＞3 11

单项选择题

阅读下列程序：

Private Sub Command1_Click()

Dim i As Integer,k As Integer

k=2

For i=1 To 3

Print H(k);

Next i

End Sub

Function H(j As Integer)

Static b

a=0

a=a+1

b=b+1

H=a*b+j

End Funmion

单击命令按钮，执行程序，输出结果是( )。

A．2 3 4
B．3 4 5
C．5 6 7
D．3 5 6

单项选择题

下列事件过程的功能是：建立一个名为Data1的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整( )。

Private Type Ang

K As Integer

Sinx As Single

Cosx As Single

End Type

Dim Ksc As Ang

Private Sub Form_Click()

Dim Y As Single

Dim i As Integer

Dim Ksc As Ang

Open______

Y=3.14159/180

For i=1 To 90

Ksc.K=i

Ksc.Sinx=Sin(iY)

Ksc.Cosx=Cos(iY)

Next i

Close #2

End Sub

A．"..\Data1.txt"For Random As #1 Len=10 Put#1,i,Ksc
B．"..\Data1.txt"For Random As #1 Len=10 Put#1,Y,Ksc
C．"..\Data1.txt"For Random As #1 Put#1,i,Ksc
D．"..\Data1.txt"For Random As #1 Put#1,Y,Ksc

单项选择题

窗体上有一个命令按钮Command1和一个列表框List1。先选择列表框中的某一个项目，然后单击命令按钮，将该项目从列表框删除。程序如下：

Private Sub Command1_Click()

Dim In As Integer

In=______

List.Remove Ind

End Sub

则在程序的空白行的语句是( )。

A．List1.Index
B．List1.ListIndex
C．List1.Text
D．List1.ListCount

文本框TextBox中的内容若要设置为用户不能修改，应设置( )属性。

你可能感兴趣的试题

删除组合框中指定的项目所使用的方法是( )。

有下列二叉树，对此二叉树前序遍历的结果是( )。

过程共有3种，它们分别是( )。

语句Dim Arr(-3 To 5)As Integer定义的数组的元素个数是( )。

用Print方法在Form1窗体中显示出4个#号的正确代码为( )。

下列操作不能向工程中添加宙体的是( )。

下列叙述不正确的是( )。

对象名.Cls方法对( )控件有效。

如果A为整数且，|A|＞=10，则打印“OK”，否则打印“Error”，表示这个条件的单行格式If语句是( )。

下列( )标识符不能作为VisualBasic的变量名。

在文本框中输入字符时，通过( )事件过程可以得到字符的ASCII码值。

使用“打开”对话框的方法是( )。

下列不属于软件工程3个要素的是( )。

如果文本框的Locked属性设置为True，则下列说法正确的是( )。

设有语句Open"C:\Test.Dat"For OutPut As#1，则下列叙述错误的是( )。

对建立良好的程序设计风格，下列描述正确的是( )。

按照“先进后出”原则组织数据的数据结构是( )。

只能用来显示文本信息的控件是( )。

文本框TextBox中的内容若要设置为用户不能修改，应设置( )属性。

执行语句Open"TC.dat"For Random As #1 Len=50后，对文件TC.dat中的数据能执行的操作是( )。

下列描述中，不是线性表顺序存储结构特征的是( )。

下列选项中不属于软件生命周期开发阶段任务的是( )。

按文件的访问方式不同，可以将文件分为( )。

Sub过程与Function过程最根本的区别是( )。

使用白盒测试法时，确定测试数据应该根据( )和指定的覆盖标准。

对关系S和R进行集合运算，结果中既包含s中的所有元组也包含R中的所有元组，这样的集合运算称为( )。

算法的时间复杂度是指( )。

若要将复选框设置成图形模式，则应设置( )属性值为“1-vbButtonGmphical”。

执行语句Open"C:\SDat.dat"For Input As#2后，系统( )。

数据库DB、数据库系统DBS、数据库管理系统DBMS之间的关系是( )。

运行下列语句后，输出的结果是( )。 Option Base 1 Dim a i=1 a=Array(1,-2,9,0,-1,9) Do k=a(i) For m=10 To k Step-2 n=k+m Next m Print n+m i=i+1 Loop While Abs(m+n)＜＞27

阅读下列程序： Private Sub Command1_Click() Dim i As Integer,k As Integer k=2 For i=1 To 3 Print H(k); Next i End Sub Function H(j As Integer) Static b a=0 a=a+1 b=b+1 H=a*b+j End Funmion 单击命令按钮，执行程序，输出结果是( )。

运行下列语句后，输出的结果是( )。

Option Base 1

Dim a

i=1

a=Array(1,-2,9,0,-1,9)

Do

k=a(i)

For m=10 To k Step-2

n=k+m

Next m

Print n+m

i=i+1

Loop While Abs(m+n)＜＞27

阅读下列程序：

Private Sub Command1_Click()

Dim i As Integer,k As Integer

k=2

For i=1 To 3

Print H(k);

Next i

End Sub

Function H(j As Integer)

Static b

a=0

a=a+1

b=b+1

H=a*b+j

End Funmion

单击命令按钮，执行程序，输出结果是( )。