下列程序的功能是:当发生窗体的单击事件时,求出3~1000之间的所有素数的和以及所有能被3和5整除的
第1题
下列程序的功能是:单击窗体时将随机生成20个两位数依次赋值给一个由20个元素组成的数组,然后把数组反序存放,再输出。 Option Base 1 Private Sub Form_Click() Dim a(20) As Integer,i As Integer Dim t As Integer,j As Integer Randomize For i=1 To 20 a(i)=10+Int(90*Rnd) Print a(i); Next i Print i=1:【 】 Do While i<j t=a(i):【 】:a(i)=t i=i+1:j=j-1 Loop For i=1 To 20 Print a(i); Next i Print End Sub
请帮忙给出正确答案和分析,谢谢!
第2题
在窗体上画一个列表框、一个命令按钮和一个标签,其名称分别为List1、Command1和Labe11,通过属性窗口把列表框中的项目设置为:“第一个项目”、“第二个项目”、“第三个项目”、“第四个项目”。程序运行后,在列表框中选择一个项目,然后单击命令按钮,即可将所选择的项目删除,并在标签中显示列表框当前的项目数,运行情况如图20-8所示(选择“第三个项目”的情况)。下面是实现上述功能的程序,请填空。
Private Sub Command1_Click() If List1.ListIndex>=0 Then List1.RemoveItem【 】 LabeCaption=【 】 Else MsgBox“请选择要删除的项目” End If End Sub
请帮忙给出正确答案和分析,谢谢!
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!