英语翻译Dim s,i,j,arr(1 To 10),t,sumFor i = 1 To 10s = InputBox("输入评分(0-10分):","第" & i &"个分数")If IsNumeric(s) Thens = Val(s)If s < 0 Or s > 10 Theni = i - 1Elsearr(i) = sEnd IfElsei = i - 1End IfNextFor i = 1 To 9For j = i

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/03 23:14:58
英语翻译Dim s,i,j,arr(1 To 10),t,sumFor i = 1 To 10s = InputBox( 10 Theni = i - 1Elsearr(i) = sEnd IfElsei = i - 1End IfNextFor i = 1 To 9For j = i" />

英语翻译Dim s,i,j,arr(1 To 10),t,sumFor i = 1 To 10s = InputBox("输入评分(0-10分):","第" & i &"个分数")If IsNumeric(s) Thens = Val(s)If s < 0 Or s > 10 Theni = i - 1Elsearr(i) = sEnd IfElsei = i - 1End IfNextFor i = 1 To 9For j = i
英语翻译
Dim s,i,j,arr(1 To 10),t,sum
For i = 1 To 10
s = InputBox("输入评分(0-10分):","第" & i &"个分数")
If IsNumeric(s) Then
s = Val(s)
If s < 0 Or s > 10 Then
i = i - 1
Else
arr(i) = s
End If
Else
i = i - 1
End If
Next
For i = 1 To 9
For j = i + 1 To 10
If arr(i) > arr(j) Then
t = arr(i):arr(i) = arr(j):arr(j) = t
End If
Next
Next
For i = 2 To 9
sum = sum + arr(i)
Next
Label1.Caption = "最高分为:"& arr(10)
Label2.Caption = "最低分为:"& arr(1)
Label3.Caption = "选手最后得分:"& Round(sum / 8,1)
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Command1.Caption = "评分"
Command2.Caption = "结束"
With Label1
.Caption = ""
.AutoSize = True
End With
With Label2
.Caption = ""
.AutoSize = True
End With
With Label3
.Caption = ""
.AutoSize = True
End With
End Sub

英语翻译Dim s,i,j,arr(1 To 10),t,sumFor i = 1 To 10s = InputBox("输入评分(0-10分):","第" & i &"个分数")If IsNumeric(s) Thens = Val(s)If s < 0 Or s > 10 Theni = i - 1Elsearr(i) = sEnd IfElsei = i - 1End IfNextFor i = 1 To 9For j = i
这是一段VB脚本代码
Dim s,i,j,arr(1 To 10),t,sum ‘定义变量
For i = 1 To 10
一个循环I的值循环10次1-10如果ISNUMERIC(S)然后
S =瓦尔(S)
如果S<0或10则
我为我1
其他的
ARR(我)=S
最后如果
其他的
我为我1
最后如果
下一个
我=1至9
J=我+1至10
如果ARR(我)>ARR(J)然后
T=ARR(我):ARR(我)=ARR(J):ARR(J)=T
最后如果
下一个
下一个
我=2至9
金额=总和+ARR(我)
下一个
“最高分为Label1.标题:“ARR(10)
“最低分为label2.标题:“ARR(1)
label3.标题“选手最后得分:“圆(和/8,1)
端子
私人子command2_click()
卸下我
端子
私人子form_load()
标题=“评分COMMAND1.”
command2标题=“结束”.
随着label1
解说词.
AutoSize=真.
结束
随着label2
解说词.
AutoSize=真.
结束
与label3
解说词.
AutoSize=真.
结束
端子

英语翻译Dim s,i,j,arr(1 To 10),t,sumFor i = 1 To 10s = InputBox(输入评分(0-10分):,第 & i &个分数)If IsNumeric(s) Thens = Val(s)If s < 0 Or s > 10 Theni = i - 1Elsearr(i) = sEnd IfElsei = i - 1End IfNextFor i = 1 To 9For j = i s=s+arr(j,1)*Val(Mid(p,j, 有如下程序dim arr(3,3) for j=1 to 3 for j=1 to 3 arr(j,k)=(j-1)*3+k next k next j有如下程序dim arr(3,3) for j=1 to 3 for j=1 to 3 arr(j,k)=(j-1)*3+k next k next j for j=2 to 3 for k=2 to 3 print arr(k,j); next k print next j 运行程序后 Console.WriteLine(arr[{0},{1}]={2},i,j,arr[i,j]) 请问C# 里 arr[{0},{1}]={2}和arr[{0}]={1}请问C# 里 arr[{0},{1}]={2}和arr[{0}]={1} 的 {2}与{1} VFP程序改错题CLEARDIMENSION ARR(6,6)ARR=0FOR I=1 TO 6ARR(I,1)=1ARR(I,I)=1FOR J=1 TO IIFARR(I,J)=0________(1)________ENDIF_______(2)_______ENDFORENDFOR其中,ARR()函数是什么东西?知道的人解释下, Dim arr(0 To 30,0 To 11) As Double for i = 1to31 arr(m-1,0)=arr(m-1,0)+1 next i 表达有啥毛病?刚才问题可能没说清楚我想建立一个数组,然后在一定条件判断下让数组里的数从0开始加,每满足一个条件就加1.Dim a private sub command1_click( ) dim a a=array(1,2,3,4) j=1:s=0 for i=4 to 1 step -1 s=s + a(i)*j j= 英语翻译Dim s As StringDim i As IntegerList1.Clears = Text1.Texti = 1Do While i 3道填空题,急,秒采纳,谢谢下面的程序是求1!+3!+5!+……+n!的和#includeint main(){ long f,s; int i,j,n; __(1)__; scanf(%d,&n); for(i=1;iarr;p--) *p=*(__(2)__); *arr=array_end; m--; if(m>0) move(__(3)__); return *arr;}int Private Sub Form-Click() Dim a a = Array(1,2,3,4) j = 1 For i = 4 To 1 Step -1 s = s + a(i)Private Sub Form-Click() Dim a a = Array(1,2,3,4) j = 1For i = 4 To 1 Step -1s = s + a(i) * jj = j * 10Next IPrint sEnd Sub 1234. 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 ifor each x in sprint x;next x这个题的最终答案是20 25 30 35 40所不理解是就是关于问题补充部分中for each x in 三道C语言填空题下面的程序是求1!+3!+5!+……+n!的和.#includeint main(){long f,s;int i,j,n;__(1)__;scanf(%d,&n); for(i=1;iarr;p--)*p=*(__(2)__);*arr=array_end;m--;if(m>0) move(__(3)__);return *arr;}int main(){int number[20],n,m,i;pri 英语翻译/com obtain nodes' information*GET,NTOT,NODE,0,COUNT*GET,Nmin,NODE,0,num,min*GET,Nmax,NODE,0,num,max*DIM,XY,ARRAY,NTOT,2*dim,nv,array,ntot*dim,nmold,array,ntot*dim,nheat,array,ntot*dim,ncenter,array,ntot*dim,ncon1,array,ntot*dim,ncon2,arr Dim x(3,5) As Integer For i = 1 To 3 For j = 1 To 5 x(i,j) = x(i - 1,j - 1) + i + j Next j Next iprint (3,4) Dim j%,i%,m% m = 0 For i = 1 To 3 For j = 1 To i m = m + j Next j,i Text1 = Str(m)最后m j 是多少 【vb程序题】运行下列过程,当输入一组数据:10,20,50,80,40,30,90,100,60,70,输出的结果应是运行下列过程,当输入一组数据:10,20,50,80,40,30,90,100,60,70,输出的结果应该是( )Sub p1( )Dim i,j,arr(11) As Integ dim j%什么意思 J'aime dim.