如果结果不匹配，请 
更多“当窗体最小化后，再次还原成为活动窗体时将自动触发Paint事…”相关的问题
第1题
在窗体上画一个名为Label1的标签和一个名为List1的列表框。程序运行后，在列表框中添加若干列表项。
当双击列表框中的某个项目时，在标签Label1中显示所选中的项目，如图16-1所示。请在【 】和【 】处填入适当的内容，将程序补充完整。(2002年9月) Private Sub Form_load() List1. AddItem"北京" List1. AddItem"上海" List1. AddItem"河北" End Sub Private Sub【 】 () Label1. Caption=【 】 End Sub
点击查看答案
.jpg){kind=spacer}
第2题
在窗体中添加一个名称为Lablel1的标签、两个名称为Text1和Text2的文本框以及名称为Command1的按钮
。程序运行后，在两个文本框中输入数据，当单个按钮时，标签Label1中显示运算的结果。程序的功能是计算，n!+(n+1)!+(n+2)!+…+(n+m)!。 请在【 】处填入适当的内容，将程序补充完整。 Private Sub Command1_Click() Dim a，b，c，d As Double Dim i，n，m As Integer n=Val(Text1.Text):m=Val(【 】) a=0： b=1： c=0： d=1 For i=1 TO m b=b*i a=a+b Next i For i=1 To n d=d*i C=c+d Next i Label1.Caption=a-c End Sub
点击查看答案
第4题
假设窗体中已经有了一个驱动器列表框Drivel和一个目录列表框Dirl，如图20-10所示。当改变了驱动器
列表框中的驱动器时，希望在目录列表框中显示相应驱动器的目录结构，可在Drive1_Change事件中输入语句【 】。
点击查看答案
第5题
在窗体上建立—个名称为Text1的文本框，用来接收一个整数。当form1_ Click事件发生时，将在窗体上显
示输入整数的各位数字和。 Private Function fun(m As Integer) As Integer Dim k As Integer, n As Integer do n =【 】 k=k+ n m= m\10 Loop until m = 0 fun = k End Function Private Sub form_ Click() Dim n As Integer n = Val(Text1. Text) Print【 】 End Sub
点击查看答案
第9题
阅读如下程序； Private Sub Form. Click（) msg1$=“继续吗？” msg2$=“操作对话
阅读如下程序； Private Sub Form. Click() msg1$=“继续吗？” msg2$=“操作对话框” r=MsgBox(msg1$，vbYesNo OrvbDefaultButton2，msg2$) End Sub 程序运行后，单击窗体，将产生一个信息框。此时如果直接按回车键，则相当于用鼠标单击信息框中的【 】按钮。
第10题
下列程序实现的功能是：当在窗体上单击时，将输出a1．txt 文件中的数字字符的个数。 Private Sub fo
rm_ Click() Dim Ch As String * 1 Dim n As Integer Open "c:\a1. txt" for Input As 10 do while【 】 Ch = Input(1, 10) if【 】 then n=n+1 End if Loop【 】 Close 10 End Sub
点击查看答案
第11题
下列程序的功能是：单击窗体时将随机生成10个1～100之间的数，求出它们的总和及平均数。请填空。
Option Base 1 Private Sub Form_Click() Dim a(10)As Integer,i As Integer Dim sum As Integer,aver As Single 【 】 For i=1 To 10 a(i)=Int(100*Rnd)+1 sum=sum+a(i) Next i 【 】 Print sum,aver End Sub
点击查看答案
