在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:
Private Function f(m As Integer)
If m Mod 2 = 0 Then
f = m
Else
f = 1
End If
End Function
Private Sub Command1_Click()
Dim i As Integer
s = 0
For i = 1 To 5
s = s + f(i)
Next
Print s
End Sub
程序运行后,单击命令按钮,在窗体上显示的是
发布于 2022-05-11 10:19:59
登录后免费查看答案
关注者
0
被浏览
17
1 个回答
推荐阅读
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:Private Function fun(ByVal m As Integer)If m Mod 2 = 0 Thenfun = 2Elsefun = 1End IfEnd FunctionPrivate Sub Command1_Click()Dim i As Integer, s As Integers = 0For i = 1 To 5s = s + fun(i)NextPrint sEnd Sub程序运行后,单击命令按钮,在窗体上显示的是( )。
2022-05-11 关注 0 浏览9 1答案
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()n = 5f = 1s = 0For i = 1 To nf = f______s = s + fNextPrint sEnd Sub该事件过程的功能是计算的值。请填空。
2022-05-11 关注 0 浏览14 1答案
-
在窗体上画1个命令按钮,其名称为Command1,然后编写如下程序:Private Sub Command1_Click()Dim a(10)As IntegerDim x As IntegerFor i=1 To 10a(i)=8+iNextx=2Print a(f(x)+x)End SubFunction f(x As Integer)x=x+3f=xEnd Function程序运行后,单击命令按钮,输出结果为。
2022-05-11 关注 0 浏览13 1答案
-
在窗体上有1个名称为Command1的命令按钮,并有如下事件过程和函数过程:Private Sub Command1_Click()Dim p As Integerp = m(1) + m(2) + m(3)Print pEnd SubPrivate Function m(n As Integer) As IntegerStatic s As IntegerFor k = 1 To ns = s + 1Nextm = sEnd Function运行程序,单击命令按钮Commandl后的输出结果为 ______ 。
2022-05-11 关注 0 浏览16 1答案
-
在窗体上画1个名称为Command1的命令按钮,然后编写如下事件过程Option Base 1Pribate Sub Command1_Click()Dim a(5.5) As IntegerFor i=1 To 5a(I,j)*5\10Next jNext iS=0For i=1 To 5S=s+a(i,i)Next iPrint sEnd Sub程序运行后,单击命令按钮,输出结果是( )
2022-05-11 关注 0 浏览14 1答案
-
在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:Private Sub Command1_Click() For I=1 To 4 For J=0 To 1 Print Chr$(65+I); Next J Print Next IEnd Sub程序运行后,如果单击命令按钮,则在窗体上显示的内容是
2022-05-11 关注 0 浏览11 1答案
-
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:Private Sub Command1_Click()Dim i As Integer, x As IntegerFor i = 1 To 6If i = 1 Then x = iIf i <= 4 Thenx = x + 1Elsex = x + 2End IfNext iPrint xEnd Sub程序运行后,单击命令按钮,其输出结果为( )。
2022-05-11 关注 0 浏览16 1答案
-
在窗体上画一个名称为Command1的命令按钮,一个名称为Label1的标签,然后编写如下事件过程:Private Sub Command1_Click()s = 0For i = 1 To 15x = 2 * i - 1If x Mod 3 = 0 Then s = s + 1Next iLabel1.Caption = sEnd Sub程序运行后,单击命令按钮,则标签中显示的内容是
2022-05-11 关注 0 浏览13 1答案
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Option Base 1Private Sub Command1_Click()Dim aa= Array(1,2,3,4,5)For i=1 To UBound(a)a(i) = a(i)+i-1NextPrint a(3)End Sub程序运行后,单击命令按钮,则在窗体上显示的内容是
2022-05-11 关注 0 浏览11 1答案
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Private Sub Command1_Click()Dim i As Integer,j As IntegerDim a(10,10)As IntegerFor i=1 To 3For j=1 To 3a(i,j)=(i-1)*3+jPrint a(i,j);Next jPrintNext jEnd Sub程序运行后,单击命令按钮,窗体上显示的是
2022-05-11 关注 0 浏览20 1答案