在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
n = 5
f = 1
s = 0
For i = 1 To n
f = f______
s = s + f
Next
Print s
End Sub
该事件过程的功能是计算的值。请填空。
发布于 2022-05-11 10:20:01
登录后免费查看答案
关注者
0
被浏览
14
1 个回答
推荐阅读
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:Private Function f(m As Integer)If m Mod 2 = 0 Thenf = mElsef = 1End IfEnd FunctionPrivate Sub Command1_Click()Dim i As Integers = 0For i = 1 To 5s = s + f(i)NextPrint sEnd Sub程序运行后,单击命令按钮,在窗体上显示的是
2022-05-11 关注 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的命令按钮,一个名称为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答案
-
在窗体上画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()x = 0n = InputBox("")For i = 1 To nFor j = 1 To ix = x + 1Next jNext iPrint xEnd Sub程序运行后,单击命令按钮,如果输入3,则在窗体上显示的内容是
2022-05-11 关注 0 浏览20 1答案
-
在窗体上画一个命令按钮,其名称为 Command1,然后编写如下事件过程:Private Sub Command1_Click( ) a$="National Computer Rank Examination" n=Len(a$) s=0 For i=1 To n b$=Mid(a$, i, 1) If b$="n" Then s=s+1 End If Next i Print sEnd Sub程序运行后,单击命令按钮,输出结果是______。
2022-05-11 关注 0 浏览13 1答案
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1 CliCk()a=0n=InputBox(””)For i=1 To nFor i=1 To iA=a+1Next jNext iPrint aEnd Sub程序运行后,单击命令按钮,如果输入4,则在窗体上显示的内容是()。
2022-05-13 关注 0 浏览14 1答案
-
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程:Private Sub Command1_Click()n = Val(Text1.Text)For i = 2 To nFor j = 2 To sqr(i)If i Mod j = 0 Then Exit ForNext jIf j > Sqr(i) Then Print iNext iEnd Sub该事件过程的功能是
2022-05-11 关注 0 浏览15 1答案
-
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:Private Sub Command1_Click()a = 12345Print Format$(a, "000.00")End Sub程序运行后,单击命令按钮,窗体上显示的是
2022-05-11 关注 0 浏览12 1答案
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()a$="VisualBasic"Print String(3,a$)End Sub程序运行后,单击命令按钮,在窗体上显示的内容是
2022-05-11 关注 0 浏览21 1答案