填空题

在窗体上建立一个单选按钮组Option1和一个图片框Picture1，如图所示。当选择不同的单选按钮时，图片框中填充不同的图案，请填写程序的空白处，使程序完整。

Private Sub Optionl_Click()
Dim H,W
Picture1.Cls
Picturc1.PillStyle=
W=Picture1.ScaleWidth/2
H=Picture1.ScaleHeight/2
Picturc1.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 arr(i)＜Min Then______ Next i Print 最小值是: ;Min End Sub

填空题

下列事件过程的功能是：建立一个名为Datal的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填上合适的代码，将程序补充完整。 Private Type Ang KA3 Integer Sinx As Single Cosx As Single End Type ______’定义Ang类型的变量Ksc Private Sub Form Click() Dim Y As Single Open C: Data1.txt For Random As #1 Len=10 Put #1,1,Ksc Y=3.14159 180 For i=1 To 90 Ksc.K=i ______=Sin(i*Y)’给变量Ksc的正弦函数值赋值 Ksc.Cosx=Cos(i*Y) Next i Close #1 End Sub

相关试题