VB程序设计基础 全套课件 VB教程第3章课堂讨论

《VB程序设计基础 全套课件 VB教程第3章课堂讨论》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第3章习题讨论退出单选题多选题(无)填空题(无)编程题一、单选题6.设a="12"，b="34"，下列语句能显示“34-12”的是_______。A.PrintVal(b)-Val(a)B.Printb-aC.Printb;Chr(45);aD.PrintAsc(a)+"-"+Asc(b)8.下列程序段执行后，输出结果是_______。DimaAsString*4a="Computer"a$="Internet"PrintaPrinta$A.ComputerB.CompC.CompD.InteInternetIn

2、ternetInteInteCD′a是定长4的字符串变量′a与a$是同一个变量14.假设Text1是某一个文本框的名称，下列语句中正确的是A.Text1.Height=600B.Text1.Print123C.Text1.Caption="新标题"D.Text1.Name="文本框"A1.要在标签Lab1上显示“计算结果”，可用______语句。A.Lab1.Caption=计算结果B.Lab1.Caption="计算结果"C.Lab1.Name="计算结果"D.Lab1.Name=计算结果2．下列语句序列的执行

3、结果是__________。a=Space(1)+“学习”+Space(2)+“高级语言"b=Trim(a)+Chr(65)PrintLen(a+b)3．运行下列程序段后，输出结果是x=3:y=2:z=1x=y:y=zz=x:x=yPrintxB补充题1814.在窗体上已建立两个文本框(Text1和Text2)和一个命令按钮(Command1)，并编写如下两个事件过程：PrivateSubCommand1_Click()Text1.Text=Val(Text1.Text)+Val(Text2.Text)Text2

4、.Text=Val(Text1.Text+Text2.Text)EndSubPrivateSubForm_Load()Text1.Text="1"Text2.Text="2"EndSub程序运行后，单击命令按钮Command1，在两个文本框Text1和Text2中显示的内容分别为___(1)___和___(2)___。(1)A．0B.1C．2D.3(2)A．12B.11C．21D.22DA例3.2程序讨论要求：设计程序，实现两个文本框内容的交换若采用中间变量实现交换，程序代码如下：PrivateSubComman

5、d1_Click()′“交换”按钮DimtAsString,aAsString,bAsStringa=Text1.Textb=Text2.Textt=aa=bb=tText1.Text=aText2.Text=bEndSub输出把处理后的数据传送给控件处理使用临时单元变量t输入从控件中取输入数据Text1Text2例3.2dPrivateSubCommand1_Click()DimtAsString,aAsString,bAsStringt=aa=bb=tText1.Text=aText2.Text=bEndSu

6、b缺少“输入”。即没有从文本框中取到要处理的数据错例一：奇怪??!在两个文本框中显示都是空白！想一想错在哪？例3.2ePrivateSubCommand1_Click()DimtAsString,aAsString,bAsStringa=Text1.Textb=Text2.Textt=aa=bb=tEndSub错例二：好像在窗体上没有看到处理结果！缺少“输出”。即没有把处理后的内存变量内容传送给文本框例3.2fPrivateSubCommand1_Click()DimtAsString,aAsString,bAs

7、Stringa=Val(Text1.Text)b=Val(Text2.Text)t=aa=bb=tText1.Text=aText2.Text=bEndSub错例三：想一想错在哪？如果输入的是非数字文本，结果会怎样呢???例3.2g编程及上机调试第5题讨论5.设计程序，从键盘输入字符时，在窗体上立即显示所键入的字符和该字符的ASCII码，如图3.16所示。双击窗体时，清除窗体上显示的内容。PrivateSubForm_KeyPress(KeyAsciiAsInteger)ShowPrint"输入字符：";____

8、____"ASCII码为;";KeyAsciiEndSubPrivateSubForm_DblClick()____EndSubChr(KeyAscii),Cls编程第5题设计步骤如下：(1)分析：计算某年y的元旦是星期几，可由以下式子得出：F=y-1+［(y-1)/4］-［(y-1)/100］+［(y-1)/400］+1其中［］表示求整K=FMod7F除以7的余数