更多"以下程序用于求s=1+(1+2)+(1+2+3)+……(1+2+……1"的相关试题:
[单项选择]以下程序输出1到1000之间所有的偶数之和，请补充完该程序。 Private Sub Cotmand1_Click（ ） Dim x As Double For i=0 To 1000 If______ Then x=x+ i End If Next i Print x End Sub
A. i Mod 2= 0
B. x mod 2=0
C. I mod 2＜＞0
D. x mod 2＜＞0
[填空题]下列程序为比较排序法排序程序，请补充完该程序(该程序对10个数值数据进行排序处理)。
Dim a(1 To 10)AS Integer
Private Sub Form _Click（ ）
Randomize
p=“”
For i = 1 To 10
Do
x = Int (Rnd * 90) + 10
yes = 0
For j = 1 To 【9】
If x = a(j) Then yes = 1: Exit For
Next
Loop While yes = 1
a(i) = x
Next i
For i = 1 To 9
For 【10】 To 10
If a(i) ＞ a(j) Then
t = a(i)
【11】
a(j) = t
End If
Next j
Next i
p = Str(a(1))
For i = 2 To 10
p = p & “,” & Str(a(i))
Print p
Next i
End Sub
[填空题]以下程序用来建立一个10*10矩阵，该矩阵两条对角线上的元素为1，其余元素为0，请补充完该程序。
该程序运行结果见下图。
Private Sub Form_ click（ ）
Dim s(10, 10) As Integer
For n = 1 To 10
For m = 1 To 10
If 【12】 Or 【13】 Then
s (n, m) = 1
Else
s (n, m) = 0
End If
Next m
Next n
For n = 1 To 10
For 【14】 。
Picturel. Print Tab(m * 3); s(n, m)
Next m
Print
Next n
End Sub
[填空题]以下程序用于求S=1+3+32+33+…+310的值。
Private Sub Commandl_Click（ ）
S=1
T=1
ForI=1 To 10
T=______
S=S+T
NextI
Print"S="；S
End Sub
[填空题]以下程序用于求S=1+3+32+33+…+310的值。
Private Sub Commandl_Click（ ）
S=1
T=1
ForI=1 To 10
T=______
S=S+T
NextI
Print"S="；S
End Sub
[简答题]请补充完整程序，使得程序能实现以下功能：
从文件IN.dat中读取200个整数至数组number中，求出最大数max及最大数的个数cnt和数组number中能被3整除或能被7整除的算术平均值ave(保留2位小数)。把结果max、 cnt、ave输出到OUT. dat文件中。
注意：部分程序、读数据函数read_ dat (int number[200])及输出格式已给出。
#include ＜conio. h＞
#include ＜stdio. h＞
#define N 200
void read_ dat(int number[N])
int i, j;
FILE *fp;
fp = fopen("IN. dat", "r");
for (i=0; i＜20; i++)
for (j=0; j＜10; j++)
fscanf(fp, "%d,", &number[i*10+j]);
printf("%d ", number[i*10+j]);
printf ("/n");
fclose (fp);void main （ ）
int cnt, number[N], max;
float ave;
FILE *fw;
int i, k; ’
long j = 0;
fw = fopen("OUT.dat", "w");
read_ dat (number);
/ ************************************************ /
/ ************************************************ /
printf("/n/nmax=%d, cnt=%d, ave=%6.2f/n", max, cnt, ave);
fprintf(fw, "%d/n%d/n%6.2f/n", max, cnt, ave);
fclose (fw);
[填空题]以下程序用于求主次对角线之和。请填空。
main（ ）
static int a[][3]=9,7,5,1,2,4,6,8;
int i,j,s1=0,s2=0;
for(i=0;i＜3；i++)
for(j=0．j＜3．j++)
if(i==j)
s1=s1+a[i][j]；
if(______)
s2=s2+a[i][j]；
printf("%d/n%d/n",s1,s2);
[填空题]以下程序功能为仅接受输入Y或N，否则程序结束，请补充完整。
DO WHILE.T.
WAIT”请输入y/n”T0 YN
IF UPPER(YN)<>”N”
[]
ELSE
[8]
ENDIF
ENDDO
[填空题]以下程序功能为仅接受输入Y或N，否则程序结束，请补充完整。
DO WHILE.T.
WAIT”请输入y/n”T0 YN
IF UPPER(YN)<>”N”
[]
ELSE
[8]
ENDIF
ENDDO
[填空题]以下是一个判断一元二次方程ax2+bx+c=0根的方程的程序，请补充该程序。提示：
·当a＜＞0时有两个根．设delta=b2-4ac，当delta＞0时，有两个不同的实根．当delta=0时，有两个相同的实根。当delta＜0时，有两个不同的虚根。
·当a=0，b＜＞0时，有一个根。
·当a=0、b=0时，方程无意义。
Private Sub Command1_Click（ ）
Dim a As Single
Dim b As Single
Dim c As Single
Dim sb As Single
Dim xb As Single
Dim re As Single
a = InputBox (“请输入a的值”)
c = InputBox(“请输入c的值”)
if 【10】 then
delta = b ^2- 4 * a * c
re = -b/(2 * a)
if 【11】 then
sb = Sqr (delta)/(2 * a)
Print “方程有两个实根”
Elseif delta = 0 then
Print “方程有两个相等实根”
Else
xb = Sqr( - delta)/(2 * a)
Print “方程有两个虚要”
End if
Else
if 【12】 then
ygz = - b / c
Print “方程仅有一个根”
Else
print “方程无意义”
End if
End if
End Sub
[填空题]以下是一个判断一元二次方程ax2+bx+c=0根的方程的程序，请补充该程序。提示：
·当a＜＞0时有两个根．设delta=b2-4ac，当delta＞0时，有两个不同的实根．当delta=0时，有两个相同的实根。当delta＜0时，有两个不同的虚根。
·当a=0，b＜＞0时，有一个根。
·当a=0、b=0时，方程无意义。
Private Sub Command1_Click（ ）
Dim a As Single
Dim b As Single
Dim c As Single
Dim sb As Single
Dim xb As Single
Dim re As Single
a = InputBox (“请输入a的值”)
c = InputBox(“请输入c的值”)
if 【10】 then
delta = b ^2- 4 * a * c
re = -b/(2 * a)
if 【11】 then
sb = Sqr (delta)/(2 * a)
Print “方程有两个实根”
Elseif delta = 0 then
Print “方程有两个相等实根”
Else
xb = Sqr( - delta)/(2 * a)
Print “方程有两个虚要”
End if
Else
if 【12】 then
ygz = - b / c
Print “方程仅有一个根”
Else
print “方程无意义”
End if
End if
End Sub
[填空题]下列的程序的功能是简单的进行键盘输入测试，请补充完整程序。
import javax．swing．*；
public class Testzzz
{ public static void main(String[ ]args)
{ String name=JOptionPane. 【 】 ("What is your name")；
System．out．println("Hello"+name)；
System．exit(0)；
}
}
