考试网 >> IT认证 >> 等级 >> 二级考试 >> 2003年9月全国计算机等级考试二级Visual Basic程序设计笔试试卷

发布时间：2006-06-27 23:15     点击：

　　　　n=5:x=1 

　　　　Do 

　　　　　x=x*i 

　　　　　i=i+1 

　　　　Loop While i<n 

　　　　Print x 

　　　End Sub 

　　B) Private Sub Command1_Click() 

　　　　n=5:x=1:i=1 

　　　　Do 

　　　　　x=x*i 

　　　　　i=i+1 

　　　　Loop While i<n 

　　　　Print x 

　　　End Sub 

　　C) Private Sub Command1_Click() 

　　　n=5:x=1:i=1 

　　　Do 

　　　　x=x*i 

　　　　i=i+1 

　　　Loop While i<=n 

　　　Print x 

　　　End Sub 

　　D) Private Sub Command1_Click() 

　　　n=5:x=1:i=1 

　　　Do 

　　　　x=x*i 

　　　　i=i+1 

　　　Loop While i>n 

　　　Print x 

　　End Sub 

(23) 在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码： 

　　Private X As Integer 

　　Private Sub Command1_Click() 

　　　X=5:Y=3 

　　　Call Proc(X,Y) 

　　　Label1.Caption= X 

　　　Label2.caption=Y 

　　End Sub 



　　Private Sub proc(ByVal a As Integer,ByVal b As Integer) 

　　　X=a*a 

　　　Y=b+b 

　　End Sub 

　　程序运行后，单击命令按钮，则两个标签中显示的内容分别是 

发表评论： 匿名发表 用户名: 查看评论

您将承担一切因您的行为、言论而直接或间接导致的民事或刑事法律责任 留言板管理人员有权保留或删除其管辖留言中的任意内容 本站提醒：不要进行人身攻击。谢谢配合。