网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
下列程序的功能是求算式：1-1／24-1／3-1／4+…前80项之和。
PrivateSub Commandl Click（ ）
Dim i asinteger，S assingle．f as integer
s=0：f=1
For i=1To 30
s=s+f／i
f=__________
Next i
Debug．Print”1-1／2+1／3—1／4+…=”：s
End Sub
横线处应填写的内容是（ ）。
A.1*f
B.-l*f
C.1*i
D.-1*i
参考答案
更多 “ 下列程序的功能是求算式：1-1／24-1／3-1／4+…前80项之和。PrivateSub Commandl Click（ ）Dim i asinteger，S assingle．f as integers=0：f=1For i=1To 30s=s+f／if=__________Next iDebug．Print”1-1／2+1／3—1／4+…=”：sEnd Sub横线处应填写的内容是（ ）。A.1*fB.-l*fC.1*iD.-1*i ” 相关考题
考题
在窗体上画一个命令按钮，名称为Commandl,然后编写下列程序Private Sub Commandl_Click()For i = 1 To 2For j = 1 To iPrint String(i,"Hello")Next jPrintNext iEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是A. H HH HH B. H HHHH C. HHHHH HH HHHH D. H
考题
下列程序的功能是求算式：1+1／2!+1／3!+1／4!+……前10项的和(其中n!的含义是n的阶乘)。请在空白处填入适当的语句，使程序完成指定的功能。Private Sub Commandl_Click ( )Dim i as integer,s as single，a as singlea=1：s=0For i=1 To 10a=_____s=s+aNext iDebug．Print“1+1／2!+1／3!+……=”；SEnd Sub
考题
下面程序的功能是:计算1~20之间的奇数之和与偶数之和,请填空使程序功能完整。 include m
下面程序的功能是：计算1～20之间的奇数之和与偶数之和，请填空使程序功能完整。include＜stdio.h＞main(){int a=0,b=0,c=0,i;for(i=0;i＜=20;i+=2){ a+=i;( );c+=b;}printf("偶数之和=%d\n",A);printf("奇数之和=%d\n",c-21);}
考题
以下程序是计算1 - 1/2 + 1/3 - 1/4 + … + 1/9 - 1/10 的值并输出，请补充完整。S=0K=1T=1DO WHINE K＜【 】S=S+T/KK=K+1T= -TLOOPMSGBOX S
考题
下列给定程序中，fun()函数的功能是：根据形参m，计算下列公式的值。t=1-1/2+1/3-1/4+…+(-1)(m+1)/m例如，若输入5，则应输出0.783333。请改正程序中的错误，使它能得到正确结果。注意：不要改动main函数，不得增行或删行，也不得更改程序的结构。试题程序：include ＜conio.h＞include ＜stdio.h＞/*************found*************/int fun(int m){double t=1.0，j=1.0；int i；/*************found*************/for(i=l；i＜m；i++){j=-1*j;t+=j/i；}return t；}main(){int m；clrscr()；printf("\nPlease enter 1 integer number：")；scanf("%d"，m)；printf("/nThe result is%If\n"，fun(m))；}
考题
下列程序的功能是求算式：1-1／24-1／3-1／4+…前80项之和。 PrivateSub Commandl Click（ ） Dim i asinteger，S assingle．f as integer s=0：f=1 For i=1To 30 s=s+f／i f=__________ Next i Debug．Print”1-1／2+1／3—1／4+…=”：s End Sub 横线处应填写的内容是（ ）。A.1*fB.-l*fC.1*iD.-1*i
考题
在窗体上面1个名称为Command1的命令按钮，然后编写下列事件过程 Option Base 1 Private Sub，Command1 Click（ ） Dim a(5，5)ks Integer For i=1 To j For j=1 To 5 a(i，j)=(i+j)*5＼10 Next j Next i S=0 For i=1 To j s=s+a(i，i) Next i Print s End Sub 程序运行后，单击命令按钮，输出结果是（ ）。A.15B.13C.11D.9
考题
在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程： Private Sub Commandl_Click（） Dim（） a=Array（”机床”，”车床”，”钻床”，”轴承”）Printa（2）EndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。A.机床B.车床C.钻床D.轴承
考题
试题11下列程序的功能是求算式：1-1/2+1/3-1/4+……前30项之和。请在空白处填入适当的语句，使程序可以完成指定的功能。Private Sub Command0_Click()Dim i As Single ， s As Single，f As Singles=0 ：f=1For i= 1 To 30s=s+f / if=___【11】__Next iDebug.Print “1-1/2+1/3-1/4+……=”；sEnd Sub
考题
下列程序的功能是求算式：1-1/2+1/3-1/4+....前30项之和。请在空白处填入适当的语句，使程序可以完成指定的功能。 Private Sub Command1_Click（) Dim i as Integer, s As Single, f As Integer s = 0 : f = 1 For i = 1 To 30 s = s + f/i f =（） Next i Debug.Print “1-1/2+1/3-1/4+…=”; s End Sub
热门标签
最新试卷