题目内容

程序完善题：求变量a、b、c中的最大值。请补充完整：Dim max as Integerif a>b then Else End if

查看答案

搜索结果不匹配？点我反馈

更多问题

程序完善题：从键盘上任意输入10个整数，然后从中查找出最大数并显示出来，事件代码如下：Private Sub s1() Dim A(1 to 10) as IntegerDim Max As Integer‘从键盘输入10个整数For i=1 to 10 A(i)=InputBox(“请输入第”& str(i) & “个数据：”, “输入数据”)Next i ‘从10个数中查找出最大的数Max=A（1） ‘先假设数组中第一个数据最大 __ ‘显示查找的结果MsgBox “最大值为：”& MaxEnd Sub

程序阅读题：Private Sub Command1_Click( ) Dim b,k For k=1 to 6 b=23+k Next k MsgBox b+kEnd Sub窗体打开运行后，消息框的输出结果是______

程序阅读题：Private Sub Commandl_Click() Dim Sum As Double, x As Double Sum=0 n=0 For i=1 To 5 x=n/i n=n +1 Sum=Sum+x Next i End Sub 上面程序运行结束后，得到的表达式是______

程序阅读题：s="ABBACDDCBA" For I=6 To 2 Step -2 x=Mid(s,I,I) y=Left(s,I) z=Right(s,I) z=x & y & z Next I MsgBox z 上面程序运行结束后，消息框的输出结果是______