单项选择题
下列程序段的输出结果为( )。
Dim M(5,5), S(5)
For i = 1 To 5
S(i) = 0
For j = 1 To 5
M(i, j) = i + j
S(i) = S(i) + M(i, j)
Next j
Next i
For Each x In S
Print x;
Next x
A.2023 24 3540
B.2025 30 3540
C.2023 25 35 40
D.2025 354045
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
单项选择题
在窗体上面有一个文本框,其名称为Text1,然后编写如下事件过程: Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String str=Chr(KeyAscii) KeyAscii=Asc(UCase(str)) Text1.Text=String(2,KeyAscii) End Sub 程序运行后,如果在键盘上输入字母“a”,则在文本框Text1中显示的内容为( )。
A.aaa
B.AAA
C.AA
D.aa
点击查看答案&解析
单项选择题
窗体上有两个文本框Text1、Text2以及一个命令按钮Command1,编写下列程序: Dim y As Integer Private Sub Command1_Click() Dim x As Integer x=2 Text1.Text=p2(p1(x),y) Text2.Text=p1(x) End Sub Private Function p1(x As Integer) As Integer x=x+y:y=x+y p1=x+y End Function Private Function p2(x As Integer, y As Integer)As Integer p2=2*x+y End Function 当单击1次和单击2次命令按钮后,文本框Text1和Text2内的值分别为( )。
A.2 4
2 4
B.2 4
4 8
C.4 4
8 8
D.10 10
58 58
点击查看答案&解析
相关试题
下面程序的功能是找出给定的12个数中最大...
如果要通过程序代码来一次性删除列表框中所...
窗体中有图片框(Picture1)和计时器(Tim...
下列程序功能为:弹出一个对话框询问用户是...
设当前日期为2008年4月28日,星期一...