vb程序题编写购买地铁车票

VB Mscomm控件基本介绍

VB Mscomm控件

一、MSComm控件的主要属性、事件

1、MSComm的属性

Commport：设置或返回串口号。 如设成1（默认值），表示对Com1进行操作。 Settings：以字符串的形式设置或返回串口通信参数。包括串口通讯的比特率，奇偶校

验，数据位长度、停止位等。其默认值 是“9600,N,8,1”，表示串口比特率是

9600bit/s，不作奇偶校验，8位数据位，1个停止位。

Portopen：设置或返回串口状态。值为True时打开串口，值为False时关闭串口。 InputMode：设置或返回接收数据的类型。若值为0，则表示以文本形式读取；值为1，

则表示以 二进制形式读取。

Inputlen：设置或返回一次从接收缓冲区中读取字节数。 InBufferSize：设置或返回接收缓冲区的大小，缺省值为1024字节。

InBufferCount：设置或返回接收缓冲区中等待计算机接收的字符数。 当将其值设为0

时，则输入寄存器将被清空。

Input：从接收缓冲区中读取数据并清空该缓冲区，该属性设计时无效，运行时只读。

OutBufferSize：设置或返回发送缓冲区的大小，缺省值为512

VB程序设计结构：顺序结构、分支结构、循环结构。 二、分支结构：

一、顺序结构题： 1、以下程序段的执行结果是?

A=1

b=5

c=4

a=b

b=c

c=a

Print a;b;c 3、下面程序段的划线部分应是? A=356 b=214 t=a a=b print a;b 运行结果 214356

5、经过几下几条语句，A和B的 值分别为多少？ A=6 B=7 C=A A=B B=C

2、该程序段运行后， 变量b的值为 ? a=7 b=8 a=a+b b=a-b 4、该程序段运行后，变量a的值为 ? a=8 b=7 z=a a=b b=z 6、Text1和Text2中分别输入5，6，求Labe7l中值？ Dim X AS Single, Y AS Single, Z AS Single X=Val（Text1.text） Y=Val（Text2.text） Z=X*Y／10 Label7.caption=Z

IF <条件> Then 当条件满足时，执行语句组1 <语句组1> 当条件不满足时，执行

1. 时钟。程序运行后，每隔2秒命令按钮Command1向右移动100

个单位。

Option Explicit

Private Sub Form_Load() Timer1.Interval = 2000 End Sub

Private Sub Timer1_Timer() Call mymove End Sub Sub mymove()

Command1.Left = Command1.Left + 100 End Sub

2.滚动条。水平滚动条HScroll1的数值范围0～100，LargeChange设置为10，SmallChange设置为5，水平滚动条HScroll1的值(Value)代表正方形的边长，当水平滚动条的滑块变化时，标签Label1中正方形边长随之改变，文本框Text1中正方形面

积也随之改变

Option Explicit

Private Sub Form_Load() HScroll1.Min = 0 HScroll1.Max = 100 HScroll1.SmallChange = 5 HScroll1.LargeChange = 10 End Sub

Private Sub hscroll1_change() Cal

VB2-2

1、数组最大值。在文本框Text1中放入一维数组元素个数n，在文本框Text2中放入n个数组元素，点击按钮Command1，找出这n个数中第二大的数放入文本框Text3中。使用ArrayToText和TextToArray完成数组与文本框之间的转换。

Private Sub Command1_Click() Dim a%(), n%, i%, j%, t% n = Val(Text1.Text) - 1 ReDima(n) TextToArray Text2, a For i = 0 To n For j = iTo n t = a(i)

If a(j) > a(i) Then a(i) = a(j): a(j) = t Next Next

Text3.Text = a(1) End Sub

2、数组排序。在文本框Text1中放入一维数组元素个数n，在文本框Text2中放入n个数组元素，点击按钮Command1，将n个元素按逆序（从大到小）排序后放入文本框Text3中。使用ArrayToText和TextToArray完成数组与文本框之间的转换。

Private Sub Command1_Click() Dim a%(), imi

modbus rtu协议可以算是一种事实上的工业标准协议，为许多仪表、PLC等所支持。以前有几个用户问如何使用VB编程来与我们的KND-K3系列PLC通讯，于是整了一个demo程序。这次把这个demo共享，希望能给大家一点帮助。

1） 模块文件：modCRC，其中包含了CRC校验的函数。

'data 待校验的数组名称 'no 数组中元素个数

'btLoCRC 算出的CRC高字节 'btHiCRC 算出的CRC低字节

Public Function CalCRC16Fast(data() As Byte, no As Integer, btLoCRC As Byte, btHiCRC As Byte) As String

Dim CL As Byte, CH As Byte '多项式码&HA001 Dim SaveHi As Byte, SaveLo As Byte Dim i As Integer Dim Flag As Integer

btHiCRC = &HFF btLoCRC = &HFF

modbus rtu协议可以算是一种事实上的工业标准协议，为许多仪表、PLC等所支持。以前有几个用户问如何使用VB编程来与我们的KND-K3系列PLC通讯，于是整了一个demo程序。这次把这个demo共享，希望能给大家一点帮助。

1） 模块文件：modCRC，其中包含了CRC校验的函数。

'data 待校验的数组名称 'no 数组中元素个数

'btLoCRC 算出的CRC高字节 'btHiCRC 算出的CRC低字节

Public Function CalCRC16Fast(data() As Byte, no As Integer, btLoCRC As Byte, btHiCRC As Byte) As String

Dim CL As Byte, CH As Byte '多项式码&HA001 Dim SaveHi As Byte, SaveLo As Byte Dim i As Integer Dim Flag As Integer

btHiCRC = &HFF btLoCRC = &HFF

三、填空题 1、【程序说明】

下列程序显示所有3个数码各不相同的3位数，要求按紧凑格式每行显示15个数，并统计有多少个这样的三位数。 Private Sub Form_Click()

Dim n As Integer, a As Integer, b As Integer, c As Integer Dim x As Integer

For a =0 to 9 '个位数数码

For b = 0 To 9 '十位数数码 For c = ----1----

If a<>b And b<>c And a<>c Then x =a+10*(b+10*c) n = ----2---- ----3----

If n mod 15 = 0 Then Print End If Next c,b,a

Print \总共有这样的三位数\个\End Sub 1、1 to 9

2、n+1

《工业控制计算机》!""#年$%卷第#期#

用&’编写()*客户端程序的方法

刘

（!!+""$）莉淮安信息职业技术学院电气系

’()*+,-*

()*?10B;L34<46<5L<1L/016@320::95;2<6;0540/;5L9461;<7/;37L<??<1<694FM@;4?<?31;5610L92346@3632@5;2<720130/()*<5L@0N60L3B370?()*27;356<??7;2<6;05N;6@&’F

./012+3)O()*P27;356<??7;2<6;05P&’

摘

端程序。

客户端，

关键词：()*，&’

在工业自动化领域，以往应用软件开发商都要为每一硬件开发驱动程序，而由于硬件的种类繁多，特征各异，软件开发商的负担可想而知，尤其是如果硬件特征发生了变动，整个应用软件相应的驱动程序也要相应地改动，这对开发商，对整个工程都是很不利的。而且由于驱动程序的不同，不同应用程序访问同一硬件设备时常常产生冲突。()*,(-./01)102344*0561078技术正是在

【程序改错】

题目：该程序实现将输入的 0 - 255 之间的正整数转换成二进制数 Option Explicit

Private Sub Form_Click() Const n = 8

Dim a(n) As Integer, s As String, m As Integer, x As Integer x = Val(InputBox(\请输入一个 0 - 255 之间的正整数：\ Print x

For m = 1 To n a(m) = x Mod 2 x = x / 2 Next m s = \

For m = n To 0 Step -1 s = Str(a(m)) Next m Print s End Sub 答案：

=======(答案1)======= For m = 0 To n

=======(答案2)======= x= x \\ 2

=========或========= x= int(x/2)

==

用VB编写一个简单的电话号码查找程序

用VB编写一个简单的电话号码查找程序
（加入日期:2002-7-15）
【收藏文章】【对此文发表评论】【保存文章至硬盘】【打印文章】【字体：大 中 小】

分享到：
-
南京电视台 张阳

---- 本人供职于南京电视台播控中心。在日常播出过程中有时会遇到一些突发事件，需要及时向有关部门和有关领导请示，常为找不到电话号码而着急。为此，本人用Visual Basic编写了一个简单的应用程序，运行该程序即可方便、快捷地查找到相关的电话号码。

---- 首先将该程序的运行界面介绍给读者(图略)。

---- 运行该程序时首先出现图一所示的界面。如果要查找有关单位的电话号码，我们只需在有关单位右边的组合框的向下箭头上用鼠标点一下，这时出现图二。用鼠标拖动滚动条找到相关单位的名称再点一下，这时出现图三。看！我们需要的电话号码这么简单就找到了！如果我们要查找有关领导的电话号码操作步骤同上，这时屏幕上还会显示其相应的寻呼及手机号码。

---- 下面向读者简单介绍一下该程序的Visual Basic代码。我们首先进行界面的设计。这一步工作主要是为了给读者一个良好的视觉效果，一个友好的程序运行界面，使读者操作起来感到方便、快捷。我们只要将