题目
A.同轴度
B.偏心度
C.偏差度
D.弯曲度
第2题
以下能实现上述操作的程序段是
A.Private Sub Hscroll1_Change() Text1.Text=Hscroll1.Value End Sub
B.Private Sub Hscroll1_Click() Text1.Text=Hscroll1.Value End Sub
C.Private Sub Hscroll1_Change() Text1.Text=Hscroll1.Caption End Sub
D.Private Sub Hscroll1_Click() Text1.Text=Hscroll1.Caption End Sub
第3题
A.Private Sub Hscroll1_Change()
Text1.Text=HScroll1.Value
End Sub
B.Private Sub Hscroll1_Click()
Text1.Text=HScroll1.Value
End Sub
C.Private Sub Hscroll1_Change()
Text1.Text=Hscroll1.Caption
End Sub
D.Private Sub Hscroll1_Click()
Text1.Text=Hscroll1.Caption
End Sub
第4题
设有以下程序:
Option Base 1
Private Sub Command1_Click()
Dim arr1 ,Max as Integer
art1 = Array(12,435,76,24,78,54,866,43)
【 】= arr1(1)
For i = 1 To 8
If arrl(i)>Max Then【 】
Next i
Print "最大值:"; Max
End Sub
以上程序的功能是:用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中元素的最大值。
第5题
设有程序:
Option Base 1
Private Sub Command1_Click()
Dim arr1,Max as Integer
arr1=Array(12,435,76,24,78,54,866,43)
【 】=arr1(1)
For i=1 To 8
If arr1(i)>Max Then【 】
Next i
Print"最大值是:";Max
End Sub
以上程序的功能是:用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中元素的最大值。请填空。
为了保护您的账号安全,请在“赏学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!