当前位置：文档之家 › VB程序填空

VB程序填空

  • 格式：doc
  • 大小：182.50 KB
  • 文档页数：35

三、程序填空共16题第1题题号:14（2008年（春）笔试试卷-9）'本程序的功能是把由４个"."分隔的十进制数表示的IP地址转换为由32位二进制数组成'的IP地址。

例如十进制表示的IP地址为202.119.191.1,其中每个十进制数对应一个8位'的二进制数，合起来构成一个32位二进制的IP地址11001010011101111011111100000001。

'过程Tiqu用于提取十进制IP地址中每个用"."分隔的十进制数；'过程Convert用于将十进制数转换为相应的8位二进制数。

程序界面参见下图。

Option ExplicitPrivate Sub Command1_Click()Dim str1 As String, str2 As StringDim a(4) As Integer, i As Integerstr1 = Text1.TextCall Tiqu(str1, a)For i = 1 To 4If a(i) < 0 Or a(i) > 255 ThenMsgBox("IP地址错误！")Exit SubElse'**********SPACE**********【?】End IfNext iText2.Text = str2End SubPrivate Sub Tiqu(st As String, a() As Integer)Dim n As Integer, k As Integer, s As String, d As String * 1, i As Integern = Len(st): k = 0: s = ""For i = 1 To n'**********SPACE**********【?】If d = "." Thenk = k + 1a(k) = Val(s)'**********SPACE**********【?】Elses = s & dEnd IfNext ia(4) = sEnd SubPrivate Function convert(ByVal n As Integer) As String Dim b As Integer, i As Integer, s As StringDo While n > 0b = n Mod 2n = n \ 2'**********SPACE**********【?】LoopFor i = 1 To 8 - Len(s)s = "0" & sNext i'**********SPACE**********【?】End Function答案：=======(答案1)=======str2=str2 & convert(a(i))=======(答案2)=======d=Mid(st,i,1)=======(答案3)=======s=""=======(答案4)=======s=CStr(b) & s=========或=========s=b & s=======(答案5)=======convert=s第2题题号:21（2009年（春）笔试试卷-8）'下面程序的功能是：统计存放在数组A中的N个数有多少个是不同的。

'具体做法是：变量Left指向要被处理的数（从第2个元素开始），'Right指向数组最后一个元素。

若A(Left)与排在它前面的某个数组元素值相同，'就用数组元素A(Right)的值来替换A(Left)的值，同时将变量Right 的值减1；'否则将变量Left的值加1，处理数组下一个元素，重复以上过程，直到Left>Right为止。

'Right的值即为不同的数的个数。

程序界面参见下图所示。

Option ExplicitOption Base 1Private Sub Command1_Click()Dim A() As Integer, N As Integer, I As IntegerDim OP As IntegerN = InputBox("请输入数据个数", , 10)ReDim A(N)RandomizeFor I = 1 To NA(I) = Int(Rnd * 10) + 1Text1 = Text1 & A(I) & " "Next ICall statistic(A, OP)Text2 = "有 " & OP & " 个不同的数: "For I = 1 To OPText2 = Text2 & A(I) & " "Next IEnd SubPrivate Sub statistic(A() As Integer, Right As Integer) Dim Left As Integer, K As Integer, I As Integer'**********SPACE**********Right=【?】Left = 2Do While Left <= Right'**********SPACE**********K= 【?】For I = K To 1 Step -1If A(Left) = A(I) Then Exit For Next I'**********SPACE**********If 【?】 ThenLeft = Left + 1ElseA(Left) = A(Right)'**********SPACE**********【?】End IfLoopEnd Sub答案：=======(答案1)=======UBound(A)=======(答案2)=======Left-1=======(答案3)=======I=0=======(答案4)=======Right=Right-1第3题题号:7（2008年（春）笔试试卷-7）'下面程序的功能是随机生成小于100的诸素数组成的数据。

程序界面如下图所示。

Option ExplicitPrivate Sub Command1_Click()Dim p() As Integer,i As Integer,n As IntegerDim st As String,k As IntegerRandomizek =InputBox("元素个数；",,20)ReDim p(k)Don =Int(Rnd*90)+10'**********SPACE**********If 【?】 Theni =i+1p(i) =nEnd If'**********SPACE**********Loop Until【?】For i =1 To UBound(p)st =st & Str(p(i))If i Mod 10 =0 Then st =st & vbCrLfNext iText1 =stEnd SubPrivate Function prime(n As Integer) As Boolean Dim i As IntegerPrime =TrueFor i =2 To Sqr(n)If n Mod i =0 Then'**********SPACE**********【?】Exit ForEnd IfNext iEnd Function答案：=======(答案1)=======prime(n)=========或=========prime(n)=true=======(答案2)=======i=k=======(答案3)=======prime=False第4题题号:19（2009年（春）笔试试卷-6）'用以下公式求f(x) 的值。

当通项的绝对值小于10^-7时停止计算，x的值由键盘输入。

'程序界面和公式参考图片所示：Option ExplicitPrivate Sub Command1_Click()Dim x As Single, fx As SingleDim a As Single, a1 As Single, a2 As SingleDim t As Singlea1 = 1: a2 = 2x = Text1'**********SPACE**********If 【?】ThenMsgBox ("x必须在-1～1之间")Exit SubEnd Iffx = a1 * x - a2 * x * xt = (-1) * x * xDoa = 1 / (a1 + a2)t = (-1) * t * x'**********SPACE**********fx = 【?】a1 = a2'**********SPACE**********【?】Loop Until Abs(a * t) < 0.0000001Text2 = fxEnd Sub答案：=======(答案1)=======Abs(x) >= 1=======(答案2)=======fx+a*t=======(答案3)=======a2=a第5题题号:4（2007年（秋）笔试试卷-9）'下面程序的功能是：首先生成一个由小到大已排好序的整数数组，再输入一个数据，'单击"插入"按钮会自动把这个数据插人到原数组适当的位置，并保持数组的有序性。

'程序界面参见下图。

Option ExplicitDim a( ) As IntegerPrivate Sub Form_Activate() '生成有序数组 Dim i As IntegerReDim a(10)For i=1 To 10a(i)=(i-1)*10+1Text1=Text1 & Str(a(i))Next iText2.SetFocusEnd SubPrivate Sub Command1_Click()Dim n As Integer,i As Integern=Text2For i=1 To UBound(a)'**********SPACE**********If 【?】Then Exit For '确定插入的位置Next i'**********SPACE**********【?】For i=1 To UBound(a)Text3=Text3 & Str(a(i))Next iEnd SubPrivate Sub inst(P() As Integer,n As Integer,k As Integer) '数组元素移位并实现插入Dim i As Integer'**********SPACE**********【?】For i=UBound(P)-1 To k Step -1'**********SPACE**********【?】Next iP(k)=nEnd Sub答案：=======(答案1)=======n<a(i)=======(答案2)=======Call inst(a,n,i)=========或=========inst a,n,i=======(答案3)=======ReDim Preserve p(UBound(p)+1)=======(答案4)=======p(i+1)=p(i)第6题题号:15（2008年（秋）笔试试卷-7）'下面程序的功能是：将输入的2位16进制数的每一位转换为一个4位的二进制数，'再组合成为一个8位的二进制数。

合集下载

《VB程序设计》期终考查试卷(A卷)及答案

《VB程序设计》期终考查试卷(A卷)及答案

《VB 程序设计》期终考查试卷（A 卷） 适用专业： 题号 一 二 三 四 总分 总分人 分数 一、填空题（每空1分，共30分） 1、Visual Basic 是一种面向 的程序设计语言。

2、结构化的程序设计思想包括3种基本结构，分别是 、 、 。

3、在Visual Basic 6.0中，窗体和控件都是 ，都有自己的属性、方法和事件。

4、使用窗体的Print 方法输出数据时， 号表示紧凑格式输出， 号表示松散格式输出。

5、语句Print 5/4*6\5 mod 2的输出结果是 。

6、描述“X 是小于100的非负整数”的Visual Basic 表达式是 。

7、在自定义数据类型中的元素类型可以是字符串，但必须是 字符串。

8、在VB 中，参数的传递方式有 和 两种，使用它们时应分别在形参前加上关键字 和 。

9、变量的作用域分为 、 、 等3类。

10、用户自定义过程分为 、 ，两者最根本的区别在于 。

11、VB 将代码存储在3种不同的模块中： 、 、 。

扩展名分别为： 、 、 。

12、PictureBox 控件可通过设置其 属性为ture ，可使其自动调整大小；而image 控件通过设置其 属性为ture ，可使其加载的图片能自动调整大小以适应image 。

13、计时器事件之间的时间间隔通过___________属性设置。

班级 学号 姓名 - -------------------------------------装--------------------------------------------订---------------------------------------线------------------------------------- 阅卷人二、选择题（每小题2分，共30分）1、Visual Basic是一种面向对象的可视化程序设计语言，其中（）不是面向对象系统所包含的3个要素。

vb程序设计试题(含答案)

vb程序设计试题(含答案)

第一套试题一、选择题（每题2分，共30分）1.在VB环境中，工程文件的扩展名是( C )（A）.frm （B）.bas （C）.vbp （D）.frx2.下面4项中不属于面向对象系统三要素的是( A )（A）变量（B）事件（C）属性（D）方法3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C )（A）\ （B）/ （C）Mod （D）*4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor（C）AutoRedraw （D）Caption5.不论何控件，共同具有的属性是( B )（A）Text （B）Name（C）ForeColor （D）Caption6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D )（A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构（C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D )（A）“12334”（B）123 （C）12334 （D）1579.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D )（A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1（C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+110.若要清除列表框的所有内容，可用来实现的方法是( C )（A）RemoveItem （B）Cls（C）Clear （D）以上均不可以11.要使时钟控件Timer1的Timer事件不起作用，以下正确的语句是( B ) （A）Timer1.Visible=False （B）Timer1.Enabled=False（A） Timer1.Interval=1000 （D）Timer1.Index=012.引用列表框(List1)最后一个数据项应使用的语( B )(A)List1.List(List1.ListCount) (B)List1.List(List1.ListCount-1)(C)List1.List(ListCount) (D)List1.List(ListCount-1)13.如下数组声明语句，正确的是( B )（A）Dim a[3,4]As Integer （B）Dim a(3,4)As Integer（C）Dim a(n,n) As Integer （D）Dim a(3,4)As Integer14.下面子过程语句说明合法的是(A、D )（A）Sub f1(ByVal n%) （B）Sub f1(n%)As Integer（C）Function f1%(f1%) （D）Function f1(ByVal n%)15.假定有如下的命令按钮(名称为Command1)事件过程：Private Sub Command1_Click()x=InputBox("输入："，"输入整数")MsgBox"输入的数据是：”，，”输入数据："+xEnd Sub16.程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是( A )（A）x的值是数值10 （B）输入对话框的标题是“输入整数”（C）信息框的标题是“输入数据：10”（D）信息框中显示的是“输入的数据是：”二、填空题（每题2分，共20分）1、当进入VB集成环境后，发现没有显示“工具箱”窗口，应选择视图菜单的工具箱选项，使“工具箱”窗口显示。

vb试题及答案

vb试题及答案

VB试卷一、单项选择题(每题2分,共40分)1. 窗体的标题栏显示内容由窗体对象的属性决定。

A) BackColor B)BackStyle C)Text D)Caption2. 窗体的示意图标可用属性来设置。

A) Picture B) Image C) Icon D) MouseIcon3. 窗体的控制菜单的有无由窗体对象的属性决定。

A) ControlBox B) MinButton C) MaxButton D) BorderStyle4. 若要取消窗体的最大化功能，则可设置属性为False来实现。

A) ControlBox B) MinButton C) MaxButton D) Enabled5. 以下4个选项，不属于VB的工作模式。

A) 编译 B) 设计 C) 运行 D) 中断6. 窗体的边框样式由窗体对象的属性来设置。

A) BackStyle B) BorderStyle C) WindowState D) FillStyle7. 若要以程序代码方式设置在窗体中显示文本的字体大小，则可用窗体对象的属性来实现。

A) FontName B) Font C) FontSize D) FontBold8. 命令按钮的标题文字由属性来设置。

A) Text B) Caption C) Name D) (名称)9. VB是面向对象的程序设计，以下4个选项，不属于面向对象的三要素。

A) 变量 B) 属性 C) 事件 D) 方法10. 若要将某命令按钮设置为默认命令按钮，可设置属性为True来实现。

A) Value B) Cancel C) Default D) Enabled11. 若要使命令按钮不可见，可设置属性为False来实现。

A) Value B) Enabled C) Visible D) Cancel12. 运行程序时，系统自动执行窗体的事件。

A) load B) click C) unload D) GotFocus13. 若要设置文本框最大可接收的字符数，可通过属性来实现。

vb考试试题及答案

vb考试试题及答案

vb考试试题及答案VB考试试题及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. VB中的哪个函数可以用来获取当前系统时间？A. Now()B. Date()C. Time()D. All of the above答案：D3. 在VB中，以下哪个选项是正确的循环结构？A. For...NextB. Do...LoopC. While...WendD. All of the above答案：D4. VB中，以下哪个选项是正确的条件判断语句？A. If...ThenB. Select...CaseC. Both A and BD. None of the above答案：C5. 在VB中，以下哪个选项是正确的数组声明方式？A. Dim arr(10) As IntegerB. Dim arr() As Integer = New Integer(10)C. Both A and BD. None of the above答案：C6. VB中，以下哪个选项是正确的窗体属性？A. CaptionB. TextC. Both A and BD. None of the above答案：C7. 在VB中，以下哪个选项是正确的事件处理程序？A. Sub Form_Load()B. Sub Form_Click()C. Both A and BD. None of the above答案：C8. VB中，以下哪个选项是正确的控件？A. LabelB. TextBoxC. Both A and BD. None of the above答案：C9. 在VB中，以下哪个选项是正确的文件访问模式？A. Open For InputB. Open For OutputC. Both A and BD. None of the above答案：C10. VB中，以下哪个选项是正确的错误处理语句？A. On Error GoToB. On Error Resume NextC. Both A and BD. None of the above答案：C二、填空题（每题2分，共20分）1. 在VB中，声明一个整型变量i，可以使用语句_________。