第1题
下列程序的作用是:输入一个字符串,将其逆序输出。 说明:在窗体上放置两个文本框控件,其名称分别为Text1和Text2,分别存放输入的字符串和逆序后的字符串,单击窗体上的Command1按钮,将把Text1中输入的字符串反序后输出到Text2中。程序运行时的界面如图20-14所示。
Private Sub Command1_Click() Dim y As String,S As String S=Text1.Text 【 】 TextText=y End Sub Private Sub Rever(S As String,y As String) Dim i As Integer y=" " For i=Len(S) To 1 Step-1 y=y&【 】 Next i End Sub
请帮忙给出正确答案和分析,谢谢!
第2题
下列程序的功能是:单击窗体时将随机生成10个1~100之间的数,求出它们的总和及平均数。请填空。 Option Base 1 Private Sub Form_Click() Dim a(10)As Integer,i As Integer Dim sum As Integer,aver As Single 【 】 For i=1 To 10 a(i)=Int(100*Rnd)+1 sum=sum+a(i) Next i 【 】 Print sum,aver End Sub
请帮忙给出正确答案和分析,谢谢!
第3题
以下程序的功能是单击Command1按钮,将输出1~100之间的所有同构数。同构数是指该数出现在它的平方数的右边,如52=25、252=625。 Private Sub Command1_Click() Dim i As Integer,ip As Integer For i=1 To 100 ip=【 】 If i<10 Then If【 】Then Print i,ip End If Else If【 】Then Print i,ip End If End If Next i End Sub
请帮忙给出正确答案和分析,谢谢!
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!