单选题以下程序的功能是:把父目录下顺序文件smtext1.txt的内容读入内存,并在文本框Text3中显示出来。请选择适合横线处的语句{{U}}
{{/U}}。 Private Sub Command1_Click() Dim inData
As String Text3.Text="" Open
"../smtext1.txt"______As#1 Do While______
Input #1.inData Text3.Text=Text3.Text & inData
Loop Close #1 End Sub
A. For Input Not EOF(1)
B. For Output EOF(1)
C. For Append Not EOF(1)
D. For Random EOF(1)
单选题现有语句:y=IIf(x>0,x Mod 3,0)
设x=10,则y的值是______。
单选题在程序中要使用Array函数给数组arr赋初值,则以下数组变量定义语句中错误的是( )。 A) Static arr B) Dim arr(5) C) Dim arr() D)Dim arr As Variant
单选题( )使图像(Image)控件中的图像自动适宜控件的大小。
单选题要使两个单选按钮属于同一个框架,下面三种操作方法中正确的是①先画一个框架,再在框架中画两个单选按钮②先画一个框架,再在框架外画两个单选按钮,然后把单选按钮拖到框架中③先画两个单选按钮,再画框架将单选按钮框起来
单选题在窗体上画一个名称为Command1的命令按钮,然后编写如下代码: Option Base 1 Private Sub Command1_Click( ) d = 0 : c = 10 x = Array(10, 12, 21, 32, 24) For i = 1 To 5 If x(i) > c Then d = d + x(i) c = x(i) Else d = d - c End If Next i Print d End Sub 程序运行后,如果单击命令按钮,则在窗体上输出的内容为________。
单选题以下程序运行后,输出结果是( )。 a=1:b=2:c=3 a=a+b:b=b+c:c=b+a If a<>3 Or b<>3 Then a=b-a:b=c-a:c=b+a End If Print a+b+c
单选题窗体上有一个名称为Command1的命令按钮,并有如下程序代码: Private Sub Commandl_Click() Static a a=1:b=2:c=3 Call f(a,b,c) Print a;b;c End Sub Sub f(ByVal x,ByRef y,z) x=x+1 y=y+1 z = z + 1 End Sub运行程序,单击命令按钮,窗体上显示的是( )。
单选题下列能打开工具箱窗口的操作是( )
单选题以下关于单选按钮和复选框的叙述中,正确的是( )。
单选题以下叙述中错误的是( )。 A) 顺序文件中的数据只能按顺序读写 B) 对同一个文件,可以用不同的方式和不同的文件号打开 C) 执行Close语句,可将文件缓冲区中的数据写到文件中 D) 随机文件中各记录的长度是随机的
单选题窗体上有一个名称为CD1的通用对话框控件和由四个命令按钮组成的控件数组Command1,其下标从左到右分别为0、1、2、3,窗体外观如图所示。命令按钮的事件过程如下:PrivateSubCommand1_Click(IndexAsInteger) SelectCaseIndex Case0 CD1.Action=1 Case1 CD1.ShowSave Case2 CD1.Action=5 Case3 End EndSelectEndSub对上述程序,下列叙述中错误的是( )。
单选题在窗体上画一个列表框和一个命令按钮,其名称分别为listl和Command1,然后编写如下事件过程: Private Sub Form load() List1.Addltem"Iteml":List1.Addltem"Itern2":List1.Addltem"Item3" End Sub Private Sub Command1_Click() List1.List(List1.ListCount)="AAAA" End Sub. 程序运行后,单击命令按钮,其结果为
单选题
单选题下列可作为Visual Basic变量名的是
单选题下面程序的功能是输出100以内所有素数: Private Sub Commandl_Click() For n=2 To 100 isprime=True:k=2 Do While k<=n/2 And_______ Ifn Mod k=0 Then isprime=False k=k+1 Loop If isprime Then Print n Next nEnd Sub 为使上面程序可以实现该功能,程序代码中横线处应填写的代码是
单选题窗体上有1个名称为Command1的命令按钮,事件过程如下:
Private Sub Command1_Click()
Dim x%,y%,z%
x=InputBox("请输入第1个整数")
y=InpntBox("请输入第2个整数")
DoUntil x=y
If x>y Then x=x-y Else y=y-x
Loop
Print x
End Sub
运行程序,单击命令按钮,并输入两个整数169和39,则在窗体上显示的内容为______。
单选题以下关于VB的叙述中,错误的是
单选题以下关于文件的叙述中,错误的是
单选题在窗体上画一个命令按钮,然后编写如下事件过程: 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 上述事件过程执行后,下列叙述中正确的是
