《二级VB模拟题及答案.pdf》由会员分享，可在线阅读，更多相关《二级VB模拟题及答案.pdf（12页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、文档 2009VB.net 测试题 一、单选题 文档 文档 文档 文档 文档 二、填空题 1、语句 For i=15 To 2 Step-2 的循环次数为_。2、要关闭当前的窗口，语句为：_.Close()。3、若窗体上已建多个控件，要使程序启动完毕焦点就定位在某一控件上，应将该控件的 TabIndex 属性设为_。4、整数型变量 m 中存放了一个两位数，要将这两位数字用一个表达式交换位置，例如 28 变为 82，表达式为_。5、字符型数据以 Unicode 码存放，无论西文或中文字符均占_个字节。6、要使标签的大小自动与所显示的文本相适应，可以通过设置_属性为 True 来实现。7、要释放一
2、个对象变量，则需要给该对象变量赋值为_。三、程序填空题 1、以下程序的功能是：从半径5.6开始，按精度0.01依次递增计算圆面积，最后输出面积不超过100的最大半径。文档 Const PI=3.1415926 Dim r,m,s As Single Dim s1 As String r=5.6 s=0 s1=Do While (1)_ r=(2)_+0.01 s=PI*r*r s1=s1&s&vbCrLf 存放计算结果 Loop m=r-(3)_ MsgBox(s1&vbCrLf&m)2、以下程序的功能是：在文本框TextBox1内输入一串任意字符(长度不超过50个字符)，分离出单个数字分别存
3、放于数组x中，分离出单个字母分别存放于数组y中，其他字符则丢弃。最后求出这些数字的平均值，以及这些字母中的最小字母,并分别显示在文本框TextBox2和TextBox3。程序的思想是：对于每一单个字符c，调用函数过程IsMyChar(c)用来判别c是数字，还是字母，或者是其他字符，并返回相应标志值0、1、-1。Dim sp,s1 As String Dim x(50)As Integer Dim y(50)As String Dim m,n,s,i,t As Integer m=0 n=0 s=0 s1=Chr(255)For i=1 To Len(（1）)sp=Mid(TextBox1.Te
4、xt,i,1)t=（2）文档 Select Case t Case 0 m=m+1 x(m)=Val(sp)s=s+x(m)Case 1 n=n+1 y(n)=sp If y(n)0 Then TextBox2.Text=s/m TextBox3.Text=s1 Function IsMyChar(ByVal c As String)As Integer If c=0 _(4)_ c=A And UCase(c)=Z Then IsMyChar=1 Else IsMyChar=_(5)_ End If End Function 3、本程序消除10到100内2，3，5，7的倍数，最后在Label
5、1中显示所余下的非零整数（每行5个数）。程序的思想是：先将2到100的非零整数放到数组中，先后将2，3，5，7的倍数的数组元素值设为0，最后将非0数组元素值输出。Dim a(100)As Integer Dim i%,d%,j%,count%For i=2 To 100 a(i)=_(1)_ Next i For i=2 To 7 If a(i)=2 Or a(i)=3 Or a(i)=5 Or a(i)=7 Then d=2*i 文档 For j=d To 100 Step i 将i 的所有倍数设置为0 _(2)_=0 Next j End If Next i 按每行5个数显示在标签中 co
6、unt=0 Label1.Text=vbCrLf For i=10 To 100 If _(3)_ Then Label1.Text=Label1.Text&i count=_(4)_ If count Mod 5=0 Then Label1.Text=Label1.Text&vbCrLf End If Next i 四、编程题 参照样例，编写一个完整的程序，要求如下：1在C:KS 目录下新建项目文件VBNET.sln。2在窗体1上放置文本框1、文本框2、时钟控件和命令按钮。设置按钮文本为暂停，Enabled属性为False；设置文本框2为多行；其他说明如样例。按下表建立菜单。菜单标题 备注
7、应用 一级菜单 开始计时 二级菜单-分隔线 退出 二级菜单 窗体2 一级菜单 在窗体2上放置列表框1（初始值为空），放置读数据和返回两个命令按钮。3单击 开始计时菜单项，使时钟控件开始工作，在文本框1模拟计时秒表，按分：秒显示，精确到0.1秒，同时使按钮的Enabled改变为True；单击暂停按钮，暂停计时，改变按钮文本为继续，同时将秒表上的时间添加到文本框2（回车换行用vbCrLf）；单击继续按钮，时钟继续工作，再将按钮文本改为暂停。4单击窗体2菜单项时，打开窗体2；单击退出菜单项时，结束程序的运行。5在窗体2上单击读数据命令按钮：从C:ksdata.txt数据文件中读出数据，依次写入列表框
8、中；单击返回命令按钮则关闭窗体2。文档 参考答案 说明：【】标记内为多种参考答案 单选题 1.A 2.A 3.C 4.D 5.C 6.D 7.A 8.B 9.A 10.A 填空题 1.【7】2.【Me】3.【0】4.【(m Mod 10)*10+m10】5.【2】6.【Autosize】7.【Nothing】程序填空题 1.1)【s 0】4)【count+1】编程题 参考代码：Public Class Form1 Inherits System.Windows.Forms.Form Dim h%,m%,s%,ms%Private Sub Button1_Click()Handles Butto
9、n1.Click If Button1.Text=暂停 Then Timer1.Enabled=False 停止计时 文档 TextBox2.Text&=TextBox1.Text&vbCrLf Button1.Text=继续 Else Timer1.Enabled=True Button1.Text=暂停 End If End Sub Private Sub MenuItem2_Click()Handles MenuItem2.Click Timer1.Interval=100 开始计时 Timer1.Enabled=True TextBox2.Text=清空文本框内容 h=0:m=0:s=
10、0:ms=0 Button1.Text=暂停 Button1.Enabled=True End Sub Private Sub MenuItem4_Click()Handles MenuItem4.Click End End Sub Private Sub MenuItem5_Click()Handles MenuItem5.Click Dim f2 As New Form2 f2.Show()End Sub Private Sub Timer1_Tick()Handles Timer1.Tick 下面程序将计算经过的时间 If mS 9 Then mS=mS+1 Else mS=0 If S
11、 59 Then S=S+1 Else S=0 If m 59 Then m=m+1 Else m=0 h=h+1 End If End If End If 将经过时间的数值转化为字符型显示到文本框 TextBox1.Text=Str(m)+:+Str(s)+.+Str(ms)End Sub 文档 End Class Form2 Private Sub Button1_Click()Handles Button1.Click Dim mX As Single,mY As Single ListBox1.Items.Clear()ListBox2.Items.Clear()FileOpen(1,xy.txt,OpenMode.Input)Do While Not EOF(1)Input(1,mX)Input(1,mY)ListBox1.Items.Add(mX)ListBox2.Items.Add(mY)Loop FileClose(1)MsgBox(已经成功读出！)End Sub Private Sub Button2_Click()Handles Button2.Click Me.Hide()End Sub 注意：窗体 1 中因小时没有显示，所以代码中小时可以不考虑。