填空题
在窗体上画一个命令按钮Command1,然后编写如下代码:
Private Sub Command1_Click()
Dim a(5)
For i=0 To 4
a(i)=i+1:t=i+1
If t=3 Then
a(t-1)=a(i-2)
ElseIf i=4 Then
Exit For
Else
a(t)=a(i)
End If
Next i
End Sub
程序运行后,单击命令按钮,数组a的元素值是______。
【参考答案】
1 2 1 4 5
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
填空题
窗体中有一组文件系统控件,分别是驱动器列表框drive1、目录列表框dir1和文件列表框file1,在它们下面有一个图片框pic1。要求选择一个bmp文件,即单击文件列表框中的某个文件时,将该文件显示在图片框中。请在空白处填入适当的内容,将程序补充完整。 Option Explicit Private Sub File1_Click() Dim fn As String If Len(Dir1.Path)=3 Then Fn=Dir1.Pach+File1.FileName Else Fn=Dir1.Path & &______ End if Pic1.AutoSize=True:Pic1.ScaleMode=vbPixels Pic1.Picture=______ End Sub Private Sub Form Load() File1.FileName= *.bmp End Sub Private Sub Dir1_Change() File1.Path=Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path=Drive1.Drive End Sub
点击查看答案&解析
填空题
以下程序用于在带垂直滚动条的文本框Text1中输出3到100之间的全部素数。 Private Sub Command1_Click() Text1.Text= For n=3 To 100 k=Int(Sqr(n)) i=2:Flag=0 Do While i<=______And Flag=0 If n Mod i=0 Then Flag=1 Else i=i+1 End If Loop If______Then Text1.Text=Text1.Text & Str(n) & Chr(13) & chr(10) End If Next n End Sub
点击查看答案&解析
相关试题
以下程序用于在带垂直滚动条的文本框Text1...
使用( )方法,可清除列表框中所有的列表项。
已知在菜单编辑器中设计了窗体的快捷菜单,...
下列程序段执行后,输出的结果是( )。 ...
在软件生产过程中,需求信息的来源是( )。