单选题不能正确表示条件“两个整型变量A和B之一为0,但不能同时为0”的布尔表达式是( )。
单选题在面向对象的程序设计中,下列叙述错误的是 ______ 。
单选题已知在4行3列的全局数组score(4,3)中存放了4个学生3门课程的考试成绩(均为整数)。现需要计算每个学生的总分,某人编写程序如下: Option Base 1 Private Sub Command1_Click() Dim sum As Integer sum=0 For i=1 To 4 For j=1 To 3 sum=sum+score(i,j) Next j Print“第”&i&“个学生的总分是:”;sum Next i End Sub运行此程序时发现,除第1个人的总分计算正确外,其他人的总分都是错误的,程序需要修改。以下修改方案中正确的是( )。
单选题在窗体上画一个名称为Command1的命令按钮,并编写如下程序:Function Fun(x) y=0 If
x<10 Then y=x Else y=y+10 End If Fun=yEnd
FunctionPrivate Sub
Command1_Click() n=InputBox("请输入一个数") n=Val(n) P=Fun(n) Print
PEnd Sub运行程序,单击命令按钮,将显示输入对话框,如果在对话框中输入100,并单击“确定”按钮,则输出结果为______。
A.10
B.100
C.110
D.出错信息
单选题下列选项中,不属于数据模型所描述的内容的是( )。 A) 数据类型 B) 数据操作 C) 数据结构 D) 数据约束
单选题以下叙述中错误的是
A.一个工程可以包括多种类型的文件
B.Visual Basic应用程序既能以编译方式执行,也能以解释方式执行
C.程序运行后,在内存中只能驻留一个窗体
D.对于事件驱动型应用程序,每次运行时的执行顺序可以不一样
单选题在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:
Private Sub Command1_Click()
Dim a$, b$, c$, k%
a="ABCD"
b="123456"
c=""
k=1
Do While k<=Len(A) Or k<=Len(B)
If k<=Len(A) Then
c=c&Mid(a,k,1)
End If
If k<=Len(B) Then
c=c & Mid(b,k,1)
End If
k=k+1
Loop
Print c
End Sub
运行程序,单击命令按钮,输出结果是
单选题用Static关键字定义过程是指______。
单选题运行下面程序后,正确的输出结果是 ______。Private Sub Command1_ Click() x = 6 if x >6 then Print "x>6": Else if x <8 then Print "x<8"; Else if x = 6 then Print "x=6": End if End if End ifEnd Sub
单选题窗体上有一个文本框,用于接收正整数。为保证输入数据是合法性的(即正整数),可以在该数据输入结束后准备继续其他操作时进行数据的合法性检查。为实现上述目的,应选用的事件是______。
单选题设有如下程序:
Option Base 1
Private Sub Form_Click()
Dim a(5) As String, i As Integer
For i=1 To 5
a(i)=Chr(Asc("A")+i)
Call f(a, i)
Next i
End Sub
Sub f(ta()As String, n As Integer)
Dim i As Integer
For i=1 To n
Print ta(i);
Next i
Print
End Sub
时上述程序,以下叙述中正确的是______。
单选题工程中包含Form1、Form2两个窗体,Form1是启动窗体,两个窗体上都有名称为Label1的标签和名称为Command1的命令按钮,窗体外观分别如图1、图2所示。图1Form1窗体外观图2Form2窗体外观Form1中的事件过程如下:PrivateSubCommand1_Click()Form2.ShowEndSubForm2中的事件过程如下:PrivateSubCommand1_Click()Label1.Caption=Form1.Label1.CaptionEndSub关于以上程序,下面叙述中错误的是
单选题设有如下函数:
Function DelSpace(ch As String)As Integer
Dim n%,st$,c$
st=" "
n=0
For k=1 To Len(ch)
c=Mid(ch,k,1)
If c<>" "Then
st=st & c
Else
n=n+1
End If
Next k
ch=st
DelSpace=n
End Function
函数的功能是______。
单选题有如下程序代码: Private Sub Form Click() Dim x As Integer,y As Integer,Bum As Integer x=3 y=x Do Until x>=6 nun=x*y Print“Bum=”:Bum x=x+y y=y+x LoopEnd Sub下列程序代码仅修改了循环语句,循环体未变,其中运行结果不变的是( )。
单选题如果在框架中画了2个复选框,且框架的Enabled属性被设置为False,2个复选框的Enabled属性被设置为True,则下面叙述中正确的是( )。
单选题设有如下通用过程: Public Sub Fun(a() As Integer,x As Integer) For i=1 To 4 x=x*a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim arr(5)As Integer,n As Integer n=1 For i=1 To 4 arr(i)=i+i Next Fun arr,n Text1.Text=Str(n) End Sub 程序运行后,单击命令按钮,则在文本框中显示的内容是( )。
单选题设窗体上有一个水平滚动条,已经通过属性窗口把它的Max属性设置为1,Min属性设置为100,下列叙述中正确的是
单选题数据的存储结构是指______。
A. 存储在外存中的数据
B. 数据所占的存储空间
C. 数据在计算机中的顺序存储方式
D. 数据的逻辑结构在计算机中的表示
单选题用于去掉—个字符串的右边的空白部分的函数是 ______。
单选题下面的语句用Array函数为数组变量a的各种元素赋值整数值: