单选题在名称为Framel的框架中,有两个名称分别为0p1、op2的单选按钮,标题分别为“单程”、“往返”,如图所示。以下叙述中,正确的是()。
单选题设a=6,则执行X=IIf(a>5,一1,0)后,x的值为( )。
单选题有如下函数过程: Function fun1 (ByVal x As Integer, ByVal y As Integer) As Integer Do While y <> 0 reminder=x Mod y x=y y=reminder Loop fun1=x End Function 在下列按钮单击事件中调节器用该函数,则该程序的运行结果是( )。 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a=100 b=25 x=fun1(a, b) Print x End Sub
单选题写了叙述中正确的是______。
单选题源程序的文档化不包括( )。 A.符号名的命名要有实际意义 B.正确的文档形式 C.良好的视觉组织 D.正确的程序注释
单选题假定程序中有如下语句: answer=MsgBox("第一个字符串",vbAbortRetryIgnore_ Or vbCritieal_ Or vbDefaultButton3,_ "第二个字符串") 执行该语句后,将显示一个信息框,此时如果按回车键,则answer的值为
单选题在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Laloel1,然后编写如下事件过程: Private Sub Command1_Click() Counter=0 For i=1 To 4 For i=6 To 1 Step-2 Counter= Counter+1 Next1 Next i Labl1.Caption-Str(Counter) End Sub 程序运行后,单击命令按钮,标签中显示的内容是( )。 A) 11 B) 12 C) 16 D) 20
单选题如果准备读文件,打开顺序文件"text.dat"的正确语句是 A) Open "text.dat" For Write As#1 B) Open "text.dar" For Binary As#1 C) Open "text.dat" For Input As#1 D) Open "text.dat" For Random As#1
单选题以下叙述中错误的是( )。
单选题下列符号常量的声明中,( )是不合法的。
单选题窗体的左右两端各有一条直线,名称分别为Line1、Line2;名称为Shape1的圆靠在左边的Line1直线上(见下图);另有1个名称为Timer1的计时器控件,其Enabled属性值是True。要求程序运行后,圆每秒向右移动100,当圆遇到Line2时则停止移动。为实现上述功能,某人把计时器的Interval属性设置为1000,并编写了如下程序:PrivateSubTimer1_Timer()Fork=Lind1.X1ToLine2.X1Step100IfShape1.Left+Shape1.width<Line2.X1ThenShape1.Left=Shape1.Left+100EndIfNextkEndSub运行程序时发现圆立即移动到了右边的直线处,与题目要求的移动方式不符。为得到与题目要求相符的结果,下面修改方案中正确的是()A.把计时器的Interval属性设置为1B.把Fork=lind1.X1ToLine2.X1Step100和Nextk两行删除C.把Fork=Line1.X1ToLine2.X1Step100改为Fork=Line2.X1ToLine1.X1Step100D.把IfShape1.Left+Shepe1.Width<Line2.X1Then改为IfShape1.Left<Line2.X1Then
单选题在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click( ) c=“ABCD” For n=l to 4 Print______ Next End Sub 程序运行后,单击命令按钮,要求在窗体上显示如下内容: D CD BCD ABCD 则在______处应填入的内容为
单选题不能正确表示条件“两个整型变量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关键字定义过程是指______。
