vb程序设计第四版课后题答案(vb程序设计第五版)
大家好，vb程序设计第四版课后题答案相信很多的网友都不是很明白，包括vb程序设计第五版也是一样，不过没有关系，接下来就来为大家分享关于vb程序设计第四版课后题答案和vb程序设计第五版的一些知识点，大家可以关注收藏，免得下次来找不到哦，下面我们开始吧！
《vb程序设计教程》 王贺明主编 课后习题答案,谢谢啦!
第一题：
第二题：
第三题：
第四题：
第五题：
扩展资料这部分内容主要考察的是程序设计语言的知识点：
开发图形用户界面(GUI)的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。“Basic”指的是 BASIC(Beginners All-Purpose Symbolic Instruction Code)语言，是一种在计算技术发展历史上应用得最为广泛的语言。
VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件，用于高效生成类型安全和面向对象的应用程序。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。
在使用传统的程序设计语言编程时，一般需要通过编写程序来设计应用程序的界面（如界面的外观和位置等），在设计过程中看不见界面的实际效果。而在Visual Basic 6.0中，采用面向对象程序设计方法（Object-Oriented Programming），把程序和数据封装起来作为一个对象，每个对象都是可视的。
开发人员在界面设计时，可以直接用Visual Basic 6.0的工具箱在屏幕上"画"出窗口、菜单、命令按键等不同类型的对象，并为每个对象设置属性。开发人员要做的仅仅是对要完成事件过程的对象进行编写代码，因而程序设计的效率可大大提高。
vb程序设计题,请高手解答
Vb编程实现两个有序数组的合并，即二路归并
数组A和数组B分别记录有一些数据，这两个数组上的数据都已经由小到大按顺序排列好。请用vb编写一个程序把这此数据合并到同一个数组之中，并使得合并后的数据全部按由小到大排列。
这就是所谓的“二路归并”。在编写这个程序时先进行说明一下，首先，大量数据的输入用inputbox（）函数的方法显得很烦琐，特别在调试阶段，每次运行时都要输入一大堆数据。因此采用了ARRAY函数的输入方法。
为了使大量的数据在输出时看得清楚，我们在运行窗体上设置了一个文本框，并把文本框的属性MultiLine设为True，Scorllbars设为2（带竖直滚动条）。
Vb程序代码如下：
Private Sub Form_Click()
Dim a'定义了一个可变类型的数组
a= Array(1, 3, 5, 7, 9, 11)
Dim b
b= Array(2, 4, 6, 8, 10, 12, 14, 16, 18)
Dim c(1000)
pa= 0: pb= 0: pc= 0
ea= UBound(a)'可变数组A的下标的上界和下界可以用函数UBOUND()和LBOUND()得到（若没说明下标的下界一般是0）
eb= UBound(b)
Do Until pa> ea And pb> eb
If pa> ea Then ta= b(eb)+ 1 Else ta= a(pa)
If pb> eb Then tb= a(ea)+ 1 Else tb= b(pb)
If ta< tb Then
c(pc)= ta
pc= pc+ 1
If pa<= ea Then pa= pa+ 1
Else
c(pc)= tb
pc= pc+ 1
If pb<= eb Then pb= pb+ 1
End If
Loop
Print ea, eb, pc
Text1.Text="数组A的元素："& vbCrLf
For i= 0 To ea
Text1.Text= Text1.Text& a(i)&""
Next i
Text1.Text= Text1.Text& vbCrLf& vbCrLf&"数组A的元素："& vbCrLf
For i= 0 To eb
Text1.Text= Text1.Text& b(i)&""
Next i
Text1.Text= Text1.Text& vbCrLf& vbCrLf&"合并后B的元素："& vbCrLf
For i= 0 To pc
Text1.Text= Text1.Text& c(i)&""
Next i
End Sub
当然，你可以把这些数据全部复制到一个数组之中再使用一个排序算法来处理一次，但这样的话，原来两个数组已经分别排好的顺序就没有利用上，能否利用原来已经排好顺序的特点使得算法高效一些？
vb程序设计题求解!!!谢谢各位了!!
Option Explicit
Private Sub Command1_Click()
Dim h0 As Integer, s As Single, a(1 To 20) As Single, i As Integer
a(1)= 100'第一个扔下的高度
For i= 2 To 20'每一个数组内数据表示小球行走的一个方向的路程，也就是奇数项是从最高点落下的路程，偶数项是从地面反弹到最高点的路程
a(i)= a(i- 1)/ 2
Next i
For i= 1 To 19'第10次落地的总路程
s= s+ a(i)
Next
Print"第10次落地的总路程:"& s
Print"最后一次弹起的高度："& a(20)'我这里是把第10次落地以后弹起的高度当做最后一次谈起的高度
End Sub
Private Sub Command2_Click()
Dim n_a() As Integer, n_b() As Integer, n_left() As Integer
Dim i As Integer, j As Integer, k As Integer, min As Integer
'简单的方法一时想不出来，我就一个个试出来。虽然效率不是很高，不过还好数字不是很大.
For i= 0 To 321\ 17
For j= 0 To 321\ 27
If i* 17+ j* 27<= 321 Then
k= k+ 1
ReDim Preserve n_left(k)
ReDim Preserve n_a(k)
ReDim Preserve n_b(k)
n_a(k)= i
n_b(k)= j
n_left(k)= 321- i* 17- j* 27
End If
Next
Next
min= n_left(1)'求剩下最小的距离
j= 1'保存剩下最小距离的那组组合的序号
For i= 2 To k'我这里只求了一组解，也许有不同的组合而剩下距离相同的情况我就没有再列出来的··
If min> n_left(i) Then
j= i
min= n_left(i)
End If
Next
Print"最小剩余组合：17m X"& n_a(j)&"根，27m X"& n_b(j)&"根，剩余最小长度为"& n_left(j);"m"
End Sub
第三题我回答过了··你看下面的网址的第一题···
关于vb程序设计第四版课后题答案到此分享完毕，希望能帮助到您。