单项选择题

程序代码如下，当单击窗体上的Command1控件时，窗体上显示的结果是( )。 Option Base 1 Private Sub Command1_Click() Dim i As Integer Dim x(3，3)As Integer For i=1 To 3 For j=1 To 3 x(i,j)=(i-1)*3+j Next j Next i For i=1 To 3 Print x(i,4-i)； Next i End Sub

A．1 5 9
B．1 4 7
C．3 5 7
D．3 6 9
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体Form1中有一个名称为Image1的图像框，在窗体加载的时候为它装载了一幅图片，该图片比图像框要小如图20-2a所示，现在单击一下图像框，将把照片放到和图像框一样大，如图20-2b所示。再单击它将其还原，然后再单击放大，再单击还原，如此反复。下划线处应填( )。 图20-2 Private Sub Form_Load() Image1．Stretch=True __________ End Sub Private Sub Image1_click() Image1．Height=3000 _________ End Sub
A．Image1．Picture=LoadPictrue("gg1．gif’)
B．Image1．Picture="gg1．gif’ Image1．Stretch=True Image1．Stretch=Not Image1．Stretch
C．Image1．Picture=Loadptctrue("gg1．gif")
D．Image1．Picture="gg1．gif" Image1．Sbetch=Not Image1．Stretch Image1．Stretch=True
单项选择题
当Form1_Click事件发生时，写出在窗体上显示的第二行和第三行是( )。 Private a As Integer,c As Integer Private Sub Form_Click() Dim a As Integer,b As Integer a=10：b=10：c=10 Print a,b,c Call test1(a,b) Print a,b,c End Sub Private Sub test1(m As Integer,ByVal n As Integer) Dim c As Integer m=5：n=5：c=5 Print m,n,c End Sub
A．5 5 5 5 10 10
B．5 5 5 5 5 10
C．5 5 10 5 10 10
D．5 5 5 10 10 10
相关试题