单选题窗体的单击事件过程代码如下:Private Sub Form_Click() Dim a(5, 5) As Integer For i = 1 To 5 For j = 1 To 5 a(i, j) = i + j Print a(i, j); Next j Print Next iEnd Sub运行程序,单击窗体后,窗体上显示的是
单选题下面程序运行后的输出结果是______。Private Sub Command1_ Click ( ) for j = 1 To 10 if j Mod 3 <> 0 then a =a+j/3 Next j Print aEnd Sub
单选题在设计阶段,当双击窗体上的某一个文本框控件时,系统将在代码窗口中显示该文本框控件的 事件过程模板。
单选题编写如下程序:Private Sub Commandl_Click() Dim nAs Long,SAs String n=InputBox("输入一个数") Do While n<>0 S=S&n Mod 10:s=s&n\10 Mod 10 n=n\100 Loop Print sEnd Sub程序运行后,单击命令按钮Commandl,并输入数值123456,则输出结果为
单选题如果要在窗体上使用2组单选按钮,每组都可以有一个被选中,则应该做的是
单选题以下选项中,不是VB标准控件的是( )
单选题以下关于VB的叙述中,错误的是( )。
单选题有下面事件过程: Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single) If Button=2 Then Form1.PSet(X,Y)'PSet方法可以在X,Y处画一个点 End If End Sub 程序运行后,产生的效果是
单选题复选框是否被选中,取决于复选框的( )。
单选题下列程序段的执行结果为
____
。
a=6
For k=1 To n
a=a+k
Next
Print k; a
单选题为了使文本框同时具有水平和垂直滚动条,应先把MuhiLine属性设置为True,然后再把ScrollBars属性设置为______。
单选题以下不能在“工程资源管理器”窗口中列出的文件类型是( )。
单选题现有如下程序:Private Sub Commandl_Click() s=0 For i=1 To 5 S=S+f(5+i) Next Print sEnd SubPublic Function f(x As Integer) If x>=10 Then t=x+1 Else t=x+2 End If f=tEnd Function运行程序,则窗体上显示的是( )。
单选题下面程序的输出是______。A.********B.*********C.*1***1*****D.*Space(1)***Space(1)*****
单选题为了读取数据,需打开顺序文件“D:\data5.txt”,以下正确的命令是
单选题下列叙述中错误的是( ) A.在程序运行时,通用对话框控件是不可见的 B.调用同一个通用对话框控件的不同方法(如ShowOpen或ShowSave),可以打开不同的对话框窗口 C.调用通用对话框控件的ShowOpen方法,能够直接打开在该通用对话框中指定的文件 D.调用通用对话框控件的ShowColor方法.可以打开颜色对话框窗口
单选题求1!+2!+……+10!的程序如下: Private Function s(x As Integer) Private Sub Command1_Click() f=1 Dim i As Integer,y As Long For i=1 To x For i=1 To 10 f=f*i ( ) Next Next s=f Print y End Function End Sub 为实现功能要求,程序的括号中应该填入的内容是
单选题“工程窗口”的主要用途是______。
单选题Rnd函数不可能产生 ______值。
单选题以下程序段运行的结果为( )
Private Sub Form_Click( )
MyDate = #7/21/1997#
Print Format(MyDate, "dddd,mmmm,dd,yyyy")
End Sub
