VB期末考试试题

《VB期末考试试题》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、VB期末考试试题1．下列代数式的VisualBasic表达式是（）。二、填空2．设x为大于零的实数，则大于x的最小奇数的VisualBasic表达式是_IIF(int(x)mod2=0,int(x)+2,int(x)+1)。3．a1和a2之中有且只有一个与a3的值相等，相应的VisualBasic逻辑表达式是:__a1=a3xora2=a3。若a1和a2之中没有一个与a3的值相等，则相应的表达式是：__a1<>a3anda2<>a3___。 4．设init的初值为10，则由下列循环语句控制的循环次

2、数是__6__。     DoWhile init>=5       init=init-1     Loop5.在VisualBasic中，变量从它的作用范围来看，可分为 _全局变量___、_模块级变量_____和___过程级变量__三种。6．语句Picture1.Circle(800,1000),500的含义是 _以圆心为（800，1000）半径为500的圆_。7．声明定长为10个字符变量Sstr的语句为：_DimSstrasString*10_。三、程序阅读题，阅读下列程序书写结构。 程序1

3、   PrivateStaticSubCommand1_Click()DimxAsInteger,sAsIntegerx=Val(InputBox("请输入一个正整数＝"))Ifx<5Then   s=s*xElse            s=s+xEndIfText1.Text="s="+Str(s)EndSub程序运行时连续三次单击Command1，且设输入的数是5，2和4时，分别写出文本框text1.text的值。结果：（s=5s=10s=40）b) 程序2   PrivateSubForm

4、_Click()Form1.Clsw=3Fork=2To6Step2          Form1.Print"w=";w,"k=";k          w=w+1NextkForm1.Print"w=";w,"k=";kEndSub写出程序运行时单击窗体后，Form１上输出结果。结果为：（w=3k=2W=4k=4W=5k=6W=6k=8）     c) 程序3Rem在窗体的通用声明区声明两个模块级变量a和y       DimaAsInteger,yAsIntegerPrivateSubFor

5、m_Load()Open"c:a1.dat"ForOutputAs#1Close#1EndSubPrivateSubCommand1_Click() Open"c:a1.dat"ForAppendAs#1 Callaa(5) y=y+a Print#1,"y=";y,"a=";a:Close#1EndSubSubaa(iAsInteger) x=1 DoUntilx>i    a=a+x    x=x+3 LoopEndSub写出程序运行时连续三次单击Command1后，a1.dat文件的最终

6、结果为：（y=5a=5yy=15a=10yy=30a=15）五、 程序填空题（每小题9分，共18分）a) 程序说明:利用一个计时器、一个标签框和二个命令按钮制作一个动态秒表，如图１所示。单击“开始“命令按钮，秒表开始计时，单击“结束“命令按钮，秒表结束计时，并在标签框显示运行时间，如“运行了０小时２分１０秒“。（假设对象的属性都在程序代码中设定）。DimxAsLongDimhAsInteger,mAsInteger,sAsIntegerPrivateSubForm_Load()Form1.Capt

7、ion="动态秒表（小时：分：秒）"Command1.Caption="开始[&S]"Command2.Caption="结束[&E]"Label1.Alignment=2  '居中对齐Label1.Caption="0:0:0"timer1.Interval=__1000______Timer1.Enabled=Falsex=0EndSubPrivateSubCommand1_Click()_timer1.enabled=True___EndSubPrivateSubCommand2_Click

8、()Timer1.Enabled=Falsex=_0___Label1.Caption="运行了"+Str(h)+"小时"+Str(m)+"分"+Str(s)+"秒"EndSubPrivateSubTimer1_Timer()x=x+1h=_x3600______m=(xMod3600)60s=_(xmod3600)mod60__Label1.Caption=Str(h)+":"+Str(m)+":"+Str(s)EndSubb) 程序说明:已知自然对数的底数e的级数表示如下: