题目内容（请给出正确答案）

[主观题]

下列程序的功能是：单击窗体时将求出随机生成的10个两位数中的最大数及其下标，请填空。 Option

Base 1 Private Sub Form_Click() Dim a(10) As Integer，i As Integer Dim max As Integer，max_i As Integer Randomize For i=1 To 10 a(i)=【】 Next i max=a(1)：max_i=1 For i=1 To 10 If【】Then max=a(i) max_i=i End If Next i Print max,max_i End Sub

查看答案

如果结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装优题宝APP，拍照搜题省时又省心！

更多“下列程序的功能是：单击窗体时将求出随机生成的10个两位数中的…”相关的问题

第1题

下列程序的功能是：单击窗体时将随机生成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

点击查看答案

第2题

下列程序实现的功能是：当在窗体上单击时，将随机产生100个3位数，并把它们写到D盘根目录下的文件my

file1．Dat中。 Private Sub Form_Click() Dim k As Integer Open【】 Randomize For i=1 To 10 k=100+Int(899*Rnd) 【】 Next i 【】 End Sub

点击查看答案

第3题

下列程序的功能是：单击窗体时将随机生成10个0～99之间的随机数，并赋值给数组A，然后利用选择法排序

；并把排序后的结果输出。 Private Sub Form_Click() Dim A(9) As Integer,i As Integer Dim j As Integer,k As Integer Randomize For i=0 To 9 A(i)=Int(100*Rnd) Next i For i=0 To 8 k=【】 For j=i To 9 If(A(k)＞A(j))Then 【】 End If Next j If k＜＞i Then t=A(k)：A(k)=A(i)：A(i)=t End If Next i For i=0 To 9 Print A(i)， Next i Print End Sub

点击查看答案

第4题

下列程序的功能是：单击窗体时将随机生成20个两位数依次赋值给一个由20个元素组成的数组，然后把数

组反序存放，再输出。 Option Base 1 Private Sub Form_Click() Dim a(20) As Integer,i As Integer Dim t As Integer,j As Integer Randomize For i=1 To 20 a(i)=10+Int(90*Rnd) Print a(i)； Next i Print i=1：【】 Do While i＜j t=a(i)：【】：a(i)=t i=i+1：j=j-1 Loop For i=1 To 20 Print a(i)； Next i Print End Sub

点击查看答案

第5题

下列程序的功能是：当发生窗体的单击事件时，求出3～1000之间的所有素数的和以及所有能被3和5整除的

数的和(素数是指只能被1和它本身整除的数)，并在窗体上把这两个和显示出来。 Private Sub Form_Click() Dim s1 As Long，s2 As Long Dim i As Integer For i=3 To 1000 If prime(i) Then s1=s1+i Else If【】Then s2=s2+i End If Next i Print s1，s2 End Sub Public Function prime(ByVal n As Integer)As Boolean Dim j As Integer For j=2 To n-1 If n Mod j=0 Then Exit For End If Next j If j=n Then 【】 Else prime=False End If End Function

点击查看答案

第6题

下列程序实现的功能是：当在窗体上单击时，将输出a1．txt 文件中的数字字符的个数。 Private Sub fo

rm_ Click() Dim Ch As String * 1 Dim n As Integer Open "c:\a1. txt" for Input As 10 do while【】 Ch = Input(1, 10) if【】 then n=n+1 End if Loop【】 Close 10 End Sub

点击查看答案

第7题

设有如下记录类型： Type student Number As String*10 Name As String*8 End Type 窗体中有

若干控件，单击其中的一个按钮Command1时，执行如下事件过程，该过程的功能是把数据输出到指定的文件中。根据题意，请完善下列程序。 Private sub Command1_click() Dim stu As student Open "C:\file, dat" For Random As 1 Len=Len(【】) Title $="写记录到随机文件" Str1 $="请输入学生名" Str2 $="请输入学生名" For i=1 To 5 stu. Number=InputBox(Str1 $, Title $) stu. Name=InputBox$(Str2 $, Title $) 【】1, i, stu Next i Close【】 End Sub

点击查看答案

第8题

下列程序实现的功能是：当在窗体上单击时，将在窗体上输出c:\a1．txt文件中的所有小写字母。 Pri

vate Sub Form_Click() Dim Ch As String*1 Open"c:\a1．txt"For Input As 10 Do While【】 Ch=Input(1，10) If【】Then Print Ch； End If Loop 【】 End Sub

点击查看答案

第9题

在窗体上画一个名为Command1的命令按钮。下列程序的功能是：从输入对话框输入一个正整数n。用随机函

数产生n个1～100范围的随机数，然后求出去掉一个最大数和最小数的平均数。根据题意，请完善下列程序： Private Sub Command1_Click() Dim ave As Single, max As Integer, i As Integer, n As Integer Dim min As Integer, Sum As Integer, s As String Dim t As Integer s=InputBox("输入一个正整数:") n=Val(s) If n＞0 Then max=n: min=n: Sum=0 For j=1 To n t=【】 Print t; Sum=Sum+t If t＜min Then min=t Elself max＜t Then max=t End If Next j 【】 ave=Sum/n MsgBox"平均值="+Str(ave)，，"去掉最大数和最小数后" End If End Sub

点击查看答案

第10题

窗体中有两个命令按钮：“显示”（控件名为CmdDisplay)和“测试”（控件名为CmdTest)。单击“测试”按钮时，

窗体中有两个命令按钮：“显示”(控件名为CmdDisplay)和“测试”(控件名为CmdTest)。单击“测试”按钮时，执行如下事件过程。此事件过程的功能是：当在窗体中出现消息框并选中其中的“确定”按钮时，隐藏“显示”按钮。否则退出。根据题意，请完善下列程序。 Private Sub CmdTest_Click() Answer=【】 ("隐藏按钮") IF Answer=vbOK then CmdDisplay. visible=【】 Else End End IF End Sub

点击查看答案

湘ICP备20004669号-2 营业执照

违法和不良信息举报电话：400-118-7898

举报/反馈/投诉邮箱：deng＃ujigu.com（请将＃替换成@）