二级VB模拟题与答案

1、2009VB.net测试题、单选题,錐名：二勰#B.NETA碓老证:25A1234S6练习基础题（单选题）第5题以下关于VB.WET的叙i术中不正确的星°设置标记答题区厂Dina,bAs工n/tEgE工变量声日月喬句将a、b声明为整型°r当Bool型的值转换为数值类型的魏时，Fal卵转戚沛6而T工3转戚为-1在VB.HET中.教组的下畀可収是小于上畀的任何整数.r顺序文件的每行宇符的长度可次相等选择题目题号<保存>退岀1234jmiiiiirRm|i15|l.i573910,錐名：二勰#B.NETA碓老证:25A123+S6练习基础题（单选题）"M7题

2、|在VB.HET中属于方注的是°设置标记售题区Facus“LostFocusI"KeyPress厂SelsctedText<>保存退岀选择题目题号123456r'Ei*s910二、填空题1、语句Fori=15To2Step-2的循环次数为。2、要关闭当前的窗口,语句为：.Close()。3、若窗体上已建多个控件，要使程序启动完毕焦点就定位在某一控件上，应将该控件的Tablndex属性设为0_4、整数型变量m中存放了一个两位数，要将这两位数字用一个表达式交换位置，例如28变为82,表达式为字符型数据以Unicode码存放，无论西文或中文字符均占个字节6、要

3、使标签的大小自动与所显示的文本相适应，可以通过设置属性为True来实现要释放一个对象变量，则需要给该对象变量赋值为三、程序填空题以下程序的功能是：从半径5.6开始，按精度0.01依次递增计算圆面积，最后输出面积不超过100的最大半径。Windc-v/sAppIicstiaM.2253399.5787799.9328310Q-2E755640001ConstPI=3.1415926Dimr,m,sAsSingleDims1AsStringr=5.6s=0AIII!DoWhile(1)(2)+0.01s=PIs1=s1&s&vbCrLf存放计算结果Loop.MsgBox(s1&am

4、p;vbCrLf&m)2、以下程序的功能是：在文本框TextBoxI内输入一串任意字符(长度不超过50个字符),分离出单个数字分别存放于数组x中，分离出单个字母分别存放于数组y中，其他字符则丢弃。最后求出这些数字的平均值，以及这些字母中的最小字母，并分别显示在文本框TextBox2和TextBox3。程序的思想是：对于每一单个字符c，调用函数过程IsMyChar(c)用来判别c是数字，还是字母，或者是其他字符，并返回相应标志值0、1、-1。Dimsp,s1AsStringDimx(50)AsIntegerDimy(50)AsStringDimm,n,s,i,tAsIntegern=0s

5、=0s1=Chr(255)Fori=1ToLen(1)sp=Mid(TextBox1.Text,i,1)t=(2)SelectCasetCase0m=m+1x(m)=Val(sp)s=s+x(m)Case1n=n+1y(n)=spIfy(n)<s1Thens1=_EndSelectNextiIfm>0ThenTextBox2.Text=s/mTextBox3.Text=s1FunctionlsMyChar(ByValcAsString)AsIntegerIfc>="0"_(4)_c<="9"ThenIsMyChar=0ThenTh

6、enElseIfUCase(c)>="A"AndUCase(c)<="Z"IsMyChar=1ElseIsMyChar=EndIfEndFunction本程序消除10到100内2,3,5,7的倍数，最后在Labell中显示所余下的非零整数（每行5个数）。程序的思想是：先将2到100的非零整数放到数组中，先后将2，3，5，7的倍数的数组元素值设为0,最后将非0数组元素值输出。组元素值输出。Dima(100)AsIntegerDimi%,d%,j%,count%Fori=2To100a(i)=(1)NextiFori=2To7Ifa(i)=2Or

7、a(i)=3Ora(i)=5Ora(i)=7ThenForj=dTo100Stepi(2)=0Forj=dTo100Stepi(2)=0将i的所有倍数设置为0NextjNextjEndIfNexti'按每行5个数显示在标签中count=0Labell.Text=vbCrLfFori=10To100If_二ThenLabel1.Text=Label1.Text&”&icount=.IfcountMod5=0ThenLabel1.Text=Label1.Text&vbCrLfEndIfNexti四、编程题参照样例，编写一个完整的程序，要求如下：1. 在C:KS目录下

8、新建项目文件VBNET.sIn。2.在窗体1上放置文本框1、文本框2、时钟控件和命令按钮。设置按钮文本为”暂停",Enabled属性为False;设置文本框2为多行；其他说明如样例。按下表建立菜单。菜单标题备注应用一级菜单开始计时二级菜单-分隔线退出二级菜单窗体2一级菜单在窗体2上放置列表框1（初始值为空），放置"读数据"和"返回"两个命令按钮。3.单击”开始计时”菜单项，使时钟控件开始工作，在文本框1模拟计时秒表，按"分：秒"显示，精确到0.1秒，同时使按钮的Enabled改变为True;单击"暂停"按

9、钮，暂停计时，改变按钮文本为”继续”，同时将秒表上的时间添加到文本框2（回车换行用vbCrLf）;单击”继续"按钮，时钟继续工作，再将按钮文本改为”暂停”。4.单击"窗体2"菜单项时，打开窗体2;单击"退出"菜单项时，结束程序的运行。5.在窗体2上单击”读数据"命令按钮：从"C:ksdata.txt"数据文件中读出数据，依次写入列表框中；单击"返回”命令按钮则关闭窗体2。参考答案说明："【"】标记内为多种参考答案单选题1. 填空题1.7】Me】2. 0】(mMod10)*10+m10】

10、3. 2】Autosize】4. Nothing】程序填空题1. 1)S<100】2) r】3) 0.01】1)TextBox1.Text】2) IsMyChar(sp)】3) yn】4) And】5) -1】1)【】2) a(j)】3) a(i)>0】4) Count+1】编程题参考代码：PublicClassFormlInheritsDimh%,m%,s%,ms%PrivateSubButton1_Click()HandlesButton1.ClickIfButton1.Text="暂停"ThenTimer1.Enabled=False'停止计时Te

11、xtBox2.Text&=TextBox1.Text&vbCrLfButton1.Text="继续”ElseTimer1.Enabled=TrueButton1.Text="暂停"EndIfEndSubPrivateSubMenultem2_Click()HandlesMenultem2.ClickTimer1.Interval=100'开始计时Timer1.Enabled=TrueTextBox2.Text=""'清空文本框内容h=0:m=0:s=0:ms=0Button1.Text="暂停"

12、;Button1.Enabled=TrueEndSubPrivateSubMenultem4_Click()HandlesMenultem4.ClickEndEndSubPrivateSubMenultem5_Click()HandlesMenultem5.ClickDimf2AsNewForm2f2.Show()EndSubPrivateSubTimer1_Tick()HandlesTimer1.Tick'下面程序将计算经过的时间IfmS<9ThenmS=mS+1ElsemS=0IfS<59ThenS=S+1ElseS=0Ifm<59Thenm=m+1Elsem=0h=h+1EndIfEndIfEndIf'将经过时间的数值转化为字符型显示到文本框TextBoxl.Text=Str(m)+":"+Str(s)+"."+Str(ms)EndSubEndClassForm2PrivateSubButton1_Click()HandlesButton1.ClickDimmXAsSingle,mYAsSingleListBox1.ltems.Clear()ListBox2.Items.Clear()FileOpen(1,"xy.txt",OpenMode.Input)DoWhileNot