填空题
在窗体上建立一个单选钮组Option1和一个图片框Picture1,如下图所示。当选择不同的单选钮时,图片框中填充不同的图案,请填写程序的空白处,使程序完整。
Private Sub Option1_Click(______)
Dim H, W
Picture1.Cls
Picture1.FillStyle =______
W = Picture1.ScaleWidth/2
H = Picture1.ScaleHeight/2
Picture1.Circle (W, H), W/2
End Sub
【参考答案】
Index As Integer Index
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
填空题
设有如下程序段,其功能是查找并输出该数组中的最小值。请在空白处填入适当的内容,将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim arr1 Dim Min As Integer, i As Integer arr1 = Array(12, 435, 76, -24, 78, 54, 866, 43) Min = arr1(1) For i=2 To 8 If arr1(i)<Min Then Next i Print 最小值是: ; Min End Sub
点击查看答案&解析
填空题
如果在“立即”窗口中执行以下操作: a=8 b=9 print(a>B) ; 则输出结果为______。
点击查看答案&解析
相关试题
下列事件过程的功能是:建立一个名为Data1...