(7) 在窗体上画一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程:

(7）在窗体上画1个命令按钮，其名称为Command1，然后编写如下事件过程：~

Private Sub Command1_Click()
Dim arr(1 To 100) As Integer
For i = 1 To 100
arr(i) = Int(Rnd * 1000)
Next i
Max = arr(1): Min = arr(1)
For i = 1 To 100
If arr(i) > Max Then Max = arr(i)
If arr(i) < Min Then Min = arr(i)
Next i
Print "Max="; Max, "Min="; Min
End Sub

msgbox 语句就错了,怎么还会有C的答案呢??
MsgBox a$,b$,c$,1 '你这里的a$,b$,c$中间是逗号,会出现类型不匹配的错误.
我解释下主要的语句吧:
b$=Right(a$,8) '字符串a$的右边8个字符
c$=Mid(a$,1,8) '从字符串a$的第一个字符开始,取8个字符

a$="software and hardware"
b$=Right(a$,8)
c$=Mid(a$,1,8)
MsgBox a$,,b$,c$,1

hardware

---

康平县19219841663： (7)在窗体上画1个命令按钮,其名称为Command1,然后编写如下事件过程: - ？
董巩小眉： Private Sub Command1_Click() Dim arr(1 To 100) As Integer For i = 1 To 100 arr(i) = Int(Rnd * 1000) Next i Max = arr(1): Min = arr(1) For i = 1 To 100 If arr(i) > Max Then Max = arr(i) If arr(i) < Min Then Min = arr(i) Next i Print ＂Max=＂; Max, ＂Min=＂; Min End Sub

康平县19219841663： 、在窗体上画一个命令按钮(名称为Command1),然后编写如下事件过程:Private Sub Command1 - Click()Dim b As Integerb=b+1End Sub运行程序,三... - ？
董巩小眉：[答案] 不管 你点多少次 b的结果都是 1

康平县19219841663： (7) 在窗体上画一个命令按钮,名称为Command1.单击命令按钮时,执行如下事件过程: - ？
董巩小眉： a$=＂software and hardware＂ b$=Right(a$,8) c$=Mid(a$,1,8) MsgBox a$,,b$,c$,1

康平县19219841663： 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1 - Click() x = - 5 If Sgn(x) Then y = Sgn(x ^ 2) Else y = Sgn(x) ... - ？
董巩小眉：[选项] A. -5 B. 25 C. 1 D. -1 为什么选c

康平县19219841663： 在窗体上画一个命令按钮,然后编写如下事件过程: - ？
董巩小眉： 因为a=10,b=3 所以输出x=a-b=7

康平县19219841663： 在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:？
董巩小眉： A啊这么明显.不会我再说吧,好难打字 循环四次; 1:s=0+1*1=1 2:s=1+2*10=21 3:s=21+3*100=321 4:s=321+4*1000=4321

康平县19219841663： 在窗体上画一个名称为Command1的命令按钮,事件过程如下rivate Sub Command1 - Click() Dim sum As Integer - ？
董巩小眉： Private Sub Command1_Click() Dim sum As Integer