单选题以下关于图片框、图像框的叙述中,正确的是
单选题在窗体上画一个名称为Commana1的命令按钮,然后编写如下程序:
Dim SW As Boolean
Function func(X As Integer)As Integer
If X<20 Then
Y=X
Else
Y=20+X
End If
func = Y
End Function
Private Sub Form MouseDown(Button As Integer,_
Shift As Integer,X As Single, Y As Single)
SW = False
End Sub
Private Sub Form_MouseUp( Button As Integer,_
Shift As Integer ,X As Single, Y As Single)
SW = True
End Sub
Private Sub Commandl_Click( )
Dim intNum As Integer
intNum = InputBox(" ")
If SW Then
Print func(intNum)
End If
End Sub
程序运行后,单击命令按钮,将显示一个输入对话框,如果在对话框中输入25,则程序的执行结果为
单选题在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim I,Num Randomize Do For I=1 To 1000 Num=Int(Rnd * 100):Print Num; Select Case Num Case 12 Exit For Case 58 Exit Do Case 65,68,92 End End Select Next I Loop End Sub 上述事件过程执行后,下列描述中正确的是
单选题下列程序段的执行结果为 a=3:b=1 For i=1
To 3 f=a+b:a=b:b=f Print
f Next I
A. 4 3 6
B. 4 5 9
C. 6 3 4
D. 7 2 8
单选题如果在c盘当前文件夹下已存在名称为studata.dat的顺序文件,那么执行语句Open“c:/studatadat”For Append As#1之后,将( )。 A) 删除文件中原有内容 B) 保留文件中原有内容,并在文件尾填加新内容 C) 保留文件中原有内容,并在文件头填加新内容 D) 以上均不对
单选题设a=10,b=5,c=1,执行语句Print a>b>c窗体上显示的是
单选题如果要在文本框中输入字符时,只显示某个字符,如星号(*),应设置文本框的( )属性。
单选题已知a=6,b=15,c=23,则语句Print Sgn(a+b.Mod 6-c\a)&a+b的输出结果为
单选题若看到程序中有以下事件过程,则可以肯定的是,当程序运行时 Private Sub Click_MouseDown(Button As Integer,_Shift As Integer,X As Single,Y As Single) Print”VB Program” End Sub
单选题有下面程序代码:Pfivate Sub Commandl_Click() Private Sub proc(ByVal a As Integer) Dim x As Integer,s As Integer Static x As Integer x=1 x=x+1:a=a+x For k=1 To 3 End Sub x=x+1:proc x:s=s+x Next k Print sEnd Sub程序运行后,单击命令按钮Commandl,输出结果是
单选题在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click() Dim i As Integer, n As Integer For i=0 To 50 i=i+3 n=n+1 If i>10 Then Exit For Next Text1.Text=Str(n) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是( )。
单选题在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签,两个名称分别为Conmmnd1和Com—mand2、标题分别为“开始”和“停止”的命令按钮,然后画一个名称为Timer1的计时器控件,并把其Interval属性设置为500,如图所示。编写如下程序:PrivateSubForm_Load()Timer1.Enabled=FalseEndSubPrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Fimerl.Enabled=FalseEndSubPrivateSubTimer1_Timer()IfLabel1.Left<WidthThenLabel1.Left=Label1.1eft+20ElseLabel1.Left=0EndIfEndSub程序运行后单击“开始”按钮,标签在窗体中移动。对于这个程序,以下叙述中错误的是
单选题已知A$="Welcome",下列语句操作能够正确执行的是( )。
单选题设窗体名称为frm1。以下叙述中正确的是
单选题删除列表框中指定的项目所使用的方法为
单选题设窗体的名称为Form1,标题为Win,则窗体的MouseDown事件过程的过程名是______。 A) Form_MouseDown B) Forml_MouseDown C) Win_MouseDown D) MouseDown_Form1
单选题如果执行一个语句弹出如下图所示的窗口,则这个语句是______。
单选题某人编写了下面的程序,希望能把Text1文本框中的内容写到out.tXt文件中: Private Sub Command1_Click() Open"out.txt"For Output As # 2 Print"Text1" Close # 2 End Sub 调试时发现没有达到目的,为实现上述目的,应做的修改是( ) A.把Print"Text1"改为Print # 2,Text1 B.把Print"Text1"改为Print Text1 C.把Print"Text1"改为Write"Text1" D.把所有#2改为#1
单选题假设X=3,Y=6,Z=5,则表达式:(X^2+Y)\Z的值是( )
单选题某人创建了1个工程,其中的窗体名称为Form1;之后有添加了1个名为Form2的窗体,并希望程序执行时先显示Form2窗体,那么,他需要做的工作是