填空题

下列程序是用来计算1+2+3+…+10的程序段，请补充完整该程序。 Dimi,s,k As Integer s=0:k=0 For______To-1 k=k+1 s=s+k Nexti Print S

【参考答案】

i=-10
<上一题 目录 下一题>
热门 试题

填空题
下列事件过程的功能是：通过Foma_Load事件给数组赋初值为35、48、15、22、67， Form_Click事件找出可以被3整除的数组元素并打印出来。请在空白处填人适当的内容，将程序补充完整。Dim Arr()Private Sub Form_Load()______End SubPrivate Sub Form_CUck()For EaCh x In ArrIf Int(x 3)=x 3 ThenPdnt XEnd IfNeXt XEnd Sub
填空题
下面程序的功能是利用随机函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于一次投币，1代表正面，0代表反面。在窗体上有三个文本框，名称分别是Text1、 Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如下图所示。程序运行后，在文本框Text1中输入总次数，然后卑．击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。Private Sub Commandl_Click()Rmldomizen=CInt(Text1.Text)n1=0n2=0Fori=1 To______r=Int(Rnd*2)Ifr=1 Thenn1=n1+1Elsen2=n2+1End fINextText2.Text=n1Text3.Text=n2End Sub
相关试题