搜题
题目
[填空题]下列过程的功能是用来计算并输出S=1+1/2+1/3+……+1/100的值，请完善程序。FunctionSumF(nAsInteger)AsSingles=0Fori=1Tons=【12】NextiSumF=sEndFunctionPrivateSubForm_Click()Sum1=SumF(100)PrintPrint"sum1="；sum1EndSub
提示：未搜索到的试题可在搜索页快速提交，您可在会员中心"提交的题"快速查看答案。
答案
查看答案
搜题
相关试题
[填空题]下面的程序用于根据文本框Test中输入的内容进行以下处理：若Text为1，则打印“您的成绩为优秀！”；若Text为2，则打印“您的成绩为良好!”；若Text为3，则打印“您的成绩为一般”；否则打印“您的成绩一般以下!”，请填空。 PrivateSubCommand1_Click() SelctCaseVal(Text1.Text) Case【】 Print"您的成绩为优秀！" Case【】 Print"您的成绩为良好！" Case【】 Print"您的成绩为一般！" CaseElse Print"您的成绩为一般以下！" EndSelect EndSub
[填空题]在窗体上建立一个单选钮组Option1和一个图片框Picture1，如下图所示。当选择不同的单选钮时，图片框中填充不同的图案，请填写程序的空白处，使程序完整。
PrivateSubOption1_Click(______)
DimH,W
Picture1.Cls
Picture1.FillStyle=______
W=Picture1.ScaleWidth/2
H=Picture1.ScaleHeight/2
Picture1.Circle(W,H),W/2
EndSub
PrivateSubOption1_Click(______)
DimH,W
Picture1.Cls
Picture1.FillStyle=______
W=Picture1.ScaleWidth/2
H=Picture1.ScaleHeight/2
Picture1.Circle(W,H),W/2
EndSub
[单项选择题]下列块结构条件语句，正确的是()。
A．Ifx＞10Thenprint"a"Elseifx＞5Then print"b"Elseifx＜5Then print"c"Endif
B．ifx＞10Thenprint"a" Elseifx＞5 Print"b"Else Print"c"Endif
C．Ifx＞10Thenprint"a"Elseifx＞5Then print"b"Elsex＜5ThenPrint"c"Endif
D．Ifx＞10ThenPrint"a"Elseifx＞5Thenprint"b:Else Print"c"Endif
A．Ifx＞10Thenprint"a"Elseifx＞5Then print"b"Elseifx＜5Then print"c"Endif
B．ifx＞10Thenprint"a" Elseifx＞5 Print"b"Else Print"c"Endif
C．Ifx＞10Thenprint"a"Elseifx＞5Then print"b"Elsex＜5ThenPrint"c"Endif
D．Ifx＞10ThenPrint"a"Elseifx＞5Thenprint"b:Else Print"c"Endif
[单项选择题]欲构造ArrayList类的一个实例，此类继承了List接口，下列()是正确的。
A．ArrayListmyList=newObject();
B．ListmyList=newArrayList();
C．ArrayListmyList=newList()；
D．ListmyList=newList()；
A．ArrayListmyList=newObject();
B．ListmyList=newArrayList();
C．ArrayListmyList=newList()；
D．ListmyList=newList()；
[填空题]数据结构分为线性结构和非线性结构，带链的队列属于【5】。