单选题下列程序段的执行结果为______。 Dim M(10), N(10) I=3 For T = 1 To 5 M(T) = T N(I) = 2 * I + T Next T Print N(I); M(I)
单选题在窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮。运行后的窗体外观如图所示。设有如下的类型和变量声明:PrivateTypePersonnameAsString*8majorAsString*20EndTypeDimpAsPerson设文本框中的数据已正确地赋值给Person类型的变量p,当单击“保存”按钮时,能够正确地把变量中的数据写入随机文件Test2.dat中的程序段是______。
单选题在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click( )
x=0
Do Until x = -1
a=InputBox("请输入A的值")
a=Val(a)
b=InputBox("请输入B的值")
b=Val(b)
x=InputBox("请输入x的值")
x = Val(x)
a=a+b+x
Loop
Print a
End Sub
程序运行后,单击命令按钮,依次在输入对话框中输入5、4、3、2、1、-1,则输出结果为( )
单选题软件工程方法的产生源于软件危机,下列哪个(些)是产生软件危机的内在原因? Ⅰ.软件复杂性
Ⅱ.软件维护困难 Ⅲ.软件成本太高 Ⅳ.软件质量难保证
A. Ⅰ
B. Ⅲ
C. Ⅰ和Ⅳ
D. Ⅲ和Ⅳ
单选题设a=2,b=3,c=4,d=5,则下面语句的输出是______。
Print 3>2*b Or a=c And b<>c Or c>d
单选题在窗体上画一个名称为Text1的文本框,然后编写如下代码: Option Base 1 Private Sub Form Click() Dim arr Dim Start As Integer, Finish As Integer Dim Sum As Integer arr = Array(12, 4, 8, 16) Start = LBound (arr) Finish = UBound (arr) Sun = 0 For i = Start To Finish Sum = Sum + arr(i) Next i c = Sum/Finish Text1.Text = c End Sub程序运行后,单击窗体,则在文本框中显示的内容是______ 。
单选题数据的存储结构是指
____
。
单选题设在当前目录下有一个名为"file.txt"的文本文件,其中有若干行文本。编写如下程序:Private Sub Command1_Click() Dim ch$, ascii As Integer Open "file.txt" For Input As #1 While Not EOF(1) Line Input #1, ch ascii=toascii(ch) Print ascii Wend Close #1End SubPrivate Function toascii(mystr As String)As Integer n=0 For k=1 To Len(mystr) n=n+Asc(Mid(mystr, k, 1)) Next k toascii=nEnd Function程序的功能是( )。
单选题Print Abs(-5^2)+Int(-5^2)的输出结果是
单选题假定通用对话框的名称为CommonDialogl,命令按钮的名称为Commandl,则单击命令按钮后,能使打开的对话框的标题为"New Title"的事件过程是______。
单选题运行以下程序后,输出结果是________。 for i = 1 to 3 cls print "i = ",i; Next
单选题窗体上有一个名称为List1的列表框,其中已经输入了若干个项目(如图2所示):还有两个文本框,名称分别为Text1、Text2,一个名称为Command1的命令按钮,并有以下程序:PrivateSubCommand1_Click()DimstrAsString,sAsString,kAsIntegers=Text1Str=""Fork=List1.ListCount-1to0Step-1IfInStr(List.List(k),s)>0thenstr=str&List.List(k)&""EndIfNextkIfstr=""ThenText2="没有匹配的项目"ElseText2=strEndIfEndSub程序运行时,在Text1中输入“京”,单击命令按钮,则在Text2中显示的内容是
单选题在过程定义中,Private表示( )。
单选题设有语句: Open"c:\Test.Dat"For Output As #1 则以下叙述中错误的是( )。
单选题在窗体上画一个命令按钮Command1,然后编写如下代码: Private Sub Command1_Click() Dim Arr1(10) As Integer, Arr2(10)As Integer n=3 For i = 1 To 5 Arr1 (i)=i Arr2(n)=2 * n+i Next i Print Arr2(n); Art1 (n)End Sub运行程序后,单击命令按钮,输出结果是( )。A) 11 3 B) 3 11 C) 13 3 D) 3 13
单选题为了调整图像框的大小以与其中的图形相适应,必须把它的Stretch属性设置为
单选题窗体上有一个名称为Commandl的命令按钮,其事件过程如下: Private S ub Commandl_Click() x=”VisualBasicProgramming” a=Right(x,11):b=Mid(x,7,5):c=MsgBox(a,,b) End Sub 运行程序后单击命令按钮。以下叙述中错误的是
单选题假定编写了如下事件过程: Private Sub Form MouseDown (Button As Integer, _ Shift As Integer, X As Single, Y As Single) If Button And 2 Then Print "AAAA" End If End Sub程序运行后,为了在窗体上输出AAAA,应按下的鼠标键为______ 。
单选题下列程序段的结果为 A = "ABBACDDCBA" For i=6 To 2 Step -2 X = Mid(A,i,i) Y=Left(A,i) Z=Right (A,i) Z=X & Y & Z Next Print Z
单选题有下面程序代码:
Private Sub Commandl_Click( )
Dim a
a = Array(1, 2, 3, 4, 5)
Call proc(A)
For k = 0 To 4
Print a(k);
Next k
End Sub
Private Sub proc(ByVal x)
For k = LBound(x)To UBound(x)
x(k) = x(k) * 2
Next k
End Sub
运行Command1_Click过程产生的输出是______。
