有如下事件过程:
Private Sub Form Click( )
Dim n As Integcr
x=0
n=InputBox("请输入一个整数")
For i=1 To i
for j =1 To j
x=x+1
Next j
Next i
Print x
End sub
程序运行后,单击窗体,如果在输入对话框中输入5,则在窗体上显示的内容是( )。
发布于 2022-05-11 09:57:46
登录后免费查看答案
关注者
0
被浏览
9
1 个回答
推荐阅读
-
有如下事件过程:Private Sub Form_Click()Dim n As Integerx = 0n = InputBox("请输入一个整数")For i = 1 To nFor j = 1 To ix = x + 1Next jNext iPrint xEnd Sub程序运行后,单击窗体,如果在输入对话框中输入5,则在窗体上显示的内容是( )。
2022-05-11 关注 0 浏览11 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答案
-
在窗体上有一个命令按钮Commandl和一个文本框Textl,编写事件代码如下:Private Sub Commandl一Click( )Dim i,j,XFor i=1 TO 20 step 2X=0For j=i TO 20 step 3X=X+1Next jNext i.Textl.Value=Str(x)End Sub打开窗体运行后,单击命令按钮,文本框中显示的结果是( )。
2022-05-13 关注 0 浏览19 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(.Dim i, j, xFor i = 1 To 20 Step 2x = 0For j = i To 20 Step 3x = x + 1Next jNext iText1.Value = Str(x.End Sub打开窗体运行后,单击命令按钮,文本框中显示的结果是
2022-05-13 关注 0 浏览16 1答案
-
设有下列程序Private Sub Form Click( )X=50For i=1 T0 4y=InputBox("请输入一个整数")y=Val(v)If y Mod 5=0 Thena=a+yx=yElsea=a+xEnd IfNext iPrint aEnd Sub程序运行后,单击窗体,在输入对话框中依次输入15、24、35、46,输出结果为( )。
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答案
-
设有下列程序Private Sub Form_Click()x=50For i =1To 4y =InputBox("请输入一个整数")y =Val(y)If y Mod 5=0Thena=a+yx=yElsea=a+xEnd IfNext iPrint aEnd Sub程序运行后,单击窗体,在输入对话框中依次输入15、24、35、46,输出结果为( )。
2022-05-11 关注 0 浏览15 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答案
-
在窗体上画一个名称为 Commandl 的命令按钮,然后编写如下程序:Private Sub Commandl Click()Dim i As Integer, j As IntegerDim a (10,10)As IntegerFor i=1 To 3For j= i To 3a(i,j)=(i-1)*3+jPrint a (i,j);Next jPrintNext iEnd Sub程序运行后,单击命令按钮,窗体上显示的是 ( ) 。
2022-05-11 关注 0 浏览15 1答案