24 喜欢·239 浏览
单选题

有如下的记录类型

Type student

id As String

name As String

age As Integer

End Type

则正确引用该记录类型变量的代码是( )

s.mane=”Sias”

s.name=”Sias”

s.name=”Sias”

A
student.name=”Sias”
B
Dim s As student
C
Dim s As type student
D
Dim s As type

题目答案

B

答案解析

暂无解析
举一反三
单选题

有如下语句:

str1=InputBox(“输入 ”,” ”,”联系 ”)

从键盘上输入字符串“学生”后,str1的值为( )

A
“输入”
B
“ ”
C
“联系”
D
“学生”

题目答案

D

答案解析

暂无解析
单选题

在窗体上添加一个命令按钮,名为command1,事件过程为:

Private Sub command1_Click( )

x=0

Do Until c=-1

a= val(InputBox(“输入a的值”))

b= val(InputBox(“输入b的值”))

c= val(InputBox(“输入c的值”))

Loop

Print a

End Sub

程序运行后,单击命令按钮,依次在输入对话框中输入5,4,3,2,1,-1后,输出的结果是 ( )

A
2
B
3
C
4
D
5

题目答案

A

答案解析

暂无解析
单选题

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:

Option Base 1

Private Sub Command1_Click( )

Dim s As Integer

Dim aa(3, 2) As Integer

For i = 1 To 3

For j = 1 To 2

aa(i, j) = i + j

Next j

Next i

s = aa(1, 2) + aa(2, 1)

Print s

End Sub

程序运行后,单击命令按钮,窗体上显示的值是( )

A
4
B
5
C
6
D
7

题目答案

D

答案解析

暂无解析
单选题

在窗体中先建立一个名称为label1的控件数组(它的index属性为0),当执行以下程序段

PrivateSubForm_Load()

DimmtopAsInteger,mleftAsInteger,iAsInteger,jAsInteger

mtop=0

Fori=1To8

mleft=50

Forj=1To8

k=(i-1)*8+j

LoadLabel1(k)

Label1(k).BackColor=IIf((i+j)Mod2=0,QBColor(0),QBColor(15))

Label1(k).Visible=True

Label1(k).Top=mtop

Label1(k).Left=mleft

mleft=mleft+Label1(0).Width

Nextj

mtop=mtop+Label1(0).Height

Nexti

EndSub

执行后的效果是( )

A
在窗体中显示16行的黑、白颜色相间的棋盘
B
在窗体中显示8行10列的黑色棋盘
C
在窗体中显示8行8列的黑、白颜色相间的棋盘
D
以上说法都不正确

题目答案

C

答案解析

暂无解析
单选题

文件可从多角度加以分类,根据文件的访问方式可以分为顺序文件、随机文件和( )

A
文本文件
B
二进制文件
C
数据文件
D
图形文件

题目答案

B

答案解析

暂无解析
单选题

若要再窗体代码编辑器的"通用声明"部分定义窗体模块级Sub过程,则正确的语句是( )

A
PublicSub
B
PublicFunction
C
PrivateSub
D
PrivateFunction

题目答案

C

答案解析

暂无解析