VB如何编写倒序数程序
倒序数指的是：若产生的数为“345”，那么与之对应的倒序数就是“543”，利用vb程序可以随机生成一个2位数、3位数或4位数的整数，并迅速得出其倒序数，简单快捷。
操作方法
- 01
首先启动VB程序，在“新建工程”界面选择【标准 EXE】，点击【打开】，进入工程页面后，再将最右端下方属性窗口中Form1的“Caption”的内容改为“求倒序数程序”，如图所示
- 02
单击最左端工具栏中的【TextBox】,在窗体上拖动变成十字线的鼠标指针画出合适的文本框大小，或者是双击【TextBox】，会在窗体中自动出现文本框，自己拖动文本框调节大小和位置，重复操作建立六个文本框
- 03
单击最左端工具栏中的【Label】,在窗体上拖动变成十字线的鼠标指针画出合适的标签大小，或者是双击【Label】，会在窗体中自动出现标签，自己拖动标签调节大小和位置，重复操作建立六个标签
- 04
单击最左端工具栏中的【CommandButton】,在窗体上拖动变成十字线的鼠标指针画出合适的控制按钮大小，或者是双击【CommandButton】，会在窗体中自动出现控制按钮，自己拖动控制按钮调节大小和位置，建立两个控制按钮
- 05
单击“Text1”，在最右端下方的属性窗口中将“Text"的内容“Text1”删除并置空，还可单击“Font”的内容“宋体”后面的“...”按钮，调节文本框中内容的字体、字形和大小，剩下五个文本框重复相同操作
- 06
单击“Label1”，在最右端下方的属性窗口中将“Caption"的内容“Label1”改为“2位随机整数”，Label2标签“Caption”的内容“Label2”改为“3位随机整数”，Label3标签“Caption”的内容“Label3”改为“4位随机整数”，Label4标签“Caption”的内容“Label4”改为“2位倒序数”，Label5标签“Caption”的内容“Label5”改为“3位倒序数”，Label6标签“Caption”的内容“Label6”改为“4位倒序数”，除此还可分别在其属性窗口中单击“Font”的内容“宋体”后面的“...”按钮，调节标签中内容的字体、字形和大小
- 07
单击“Command1”,在最右端下方的属性窗口中将“Caption"的内容“Command1”改为“生成”，“Command2”在最右端下方的属性窗口中将“Caption"的内容“Command2”改为“求倒序数”，还可分别单击属性窗口中的“Font”的内容“宋体”后面的“...”按钮，调节控制按钮中内容的字体、字形和大小
- 08
双击“生成”按钮，进入Command1的编程： Option Explicit Private Sub Command1_Click() Dim twobits As Integer, threebits As Integer, fourbits As Integer Randomize twobits = Int(Rnd() * (99 - 10 + 1)) + 10 threebits = Int(Rnd() * (999 - 100 + 1)) + 100 fourbits = Int(Rnd() * (9999 - 1000 + 1)) + 1000 Text1.Text = Str(twobits) Text2.Text = Str(threebits) Text3.Text = Str(fourbits) End Sub 再次双击“求倒序数”，进入Command2的编程： Private Sub Command2_Click() Dim tb As String, thb As String, fb As String Dim tbinv As String, thbinv As String, fbinv As String tb = Trim(Text1.Text) thb = Trim(Text2.Text) fb = Trim(Text3.Text) tbinv = Right(tb, 1) + Left(tb, 1) thbinv = Right(thb, 1) + Mid(thb, 2, 1) + Left(thb, 1) fbinv = Right(fb, 1) + Mid(fb, 3, 1) + Mid(fb, 2, 1) + Left(fb, 1) Text4.Text = tbinv Text5.Text = thbinv Text6.Text = fbinv End Sub
- 09
试运程序：点击上方工具栏中的“运行”，再点击“启动”或直接点击三角形，在运行界面先点击“生成”按钮，Text1、Text2、Text3分别随机生成2位、3位、4位的整数，再点击“求倒序数”按钮，生成对应的倒序数，如图所示
- 10
最后再点击“文件”，选择“保存工程”或者“生成工程1.exe(k)”，保存即可