vb 小程序的问题temp = num1: num1 = num2: num2 = temp

Posted 2023-04-20

Private Sub Command3_Click()
Dim a%, b%, num1%, num2%, temp
num1 = InputBox("请输入一个正整数")
num2 = InputBox("请输入一个正整数")
'**********SPACE**********
If mum1 < num2 Then
temp = num1: num1 = num2: num2 = temp'是什么意思，它们的值是多少 ？
End If
a = num1
b = num2
'**********SPACE**********
While b <> 0
temp = a Mod b
a = b
'**********SPACE**********
b = temp
Wend
Print "最大公因数为："; a
Print "最小公倍数为："; num1 * num2 / a

End Sub

你代码的第六行变量名与申明不符,现修改如下
Option Explicit
Dim a, b, num1, num2, temp

Private Sub Command1_Click()
num1 = InputBox("请输入一个正整数")
num2 = InputBox("请输入一个正整数")

If num1 < num2 Then
temp = num1 \'当num1小于num2时通过temp中间变量对num1和num2值进行交换，以便下面的运算
num1 = num2
num2 = temp
End If
a = num1
b = num2

While b <> 0
temp = a Mod b
a = b

b = temp
Wend
Print "最大公因数为："; a
Print "最小公倍数为："; num1 * num2 / a
End Sub 参考技术A 把num1和num2从小到大排列

vb语言代码大全

VisualBasic是微软公司推出的简单易学、功能强大编程工具，是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，使用VB能轻而易举地开发适合在Windows环境下各类应用程序。

本文主要介绍的就是vb语言代码大全，分别从五种常用的vb语言代码中来详细说明，跟随小编一起来了解一下吧。

vb语言代码大全

1、数值型函数：

abs（num）： 返回绝对值

sgn（num）： num〉0 1; num=0 0; num〈0 -1;判断数值正负

hex（num）： 返回十六进制值 直接表示：&Hxx 最大8位

oct（num）： 返回八进制值 直接表示：&Oxx 最大8位

sqr（num）： 返回平方根 num〉0

int（num）： 取整 int（99.8）=99; int（-99.2）=100

fix（num）： 取整 fix（99.8）=99; fix（-99.2）=99

round（num，n）： 四舍五入取小数位

round（3.14159，3）=3.142 中点数值四舍五入为近偶取整 round（3.25，1）=3.2

log（num）： 取以e为底的对数

num〉0 exp（n）： 取e的n次幂 通常用

num^n sin（num）： 三角函数，以弧度为值计算 （角度*Pai）/180=弧度 con（num）; tan（num）; atn（num）

vb语言代码大全

2、字符串函数：

len（str）：计算字符串长度 中文字符长度也计为一！

mid（str，起始字符，［读取长度］）：截取字符串中间子字符串

left（str，nlen）：从左边起截取nlen长度子字符串

right（str，nlen）：从右边起截取nlen长度子字符串

Lcase（str）：字符串转成小写

Ucase（str）：字符串转成大写

trim（str）：去除字符串两端空格

Ltrim（str）：去除字符串左侧空格

Rtrim（str）：去除字符串右侧空格

replace（str，查找字符串，替代字符串，［起始字符，替代次数，比较方法］）：替换字符串

注：默认值：起始字符 1；替代次数 不限；比较方法 区分大小写（0）

InStr（［起始字符，］str，查找字符串［，比较方法］）：检测是否包含子字符串 可选参数需同时选 返回起始位置

InStrRev（str，查找字符串［，起始字符］［，比较方法］）：反向检测是否包含子字符串 返回起始位置 space（n）：构造n个空格的字符串

string（n，str）：构造由n个str第一个字符组成的字符串 StrReverse（str）：反转字符串

split（str，分割字符串［，次数］［，比较方法］）：以分割字符串为分割标志将字符串转为字符数组 可选参数需同时选

vb语言代码大全

3、数据类型转换函数：

Cint（str）：转换正数 True -1；False 0；日期 距离1899/12/31天数；时间 上午段 0；下午段 1；

Cstr（str）：日期 输出格式 yyyy/mm/dd；时间 输出格式 Am/Pm hh:mm:ss Clng（str）：与Cin（）类似

Cbool（num）：num不为零 True；反之 False

Cdate（str）：转换日期格式 0：#Am 12:00:00#；正数 距离1899/12/31天数的日期；浮点数 日期＋小数时间

Cbyte（num）：num〈255 转换为字节

Csng（str）：转换为单精度数值

Cdbl（str）：转换为双精度数值

Ccur（str）：转换为现金格式

vb语言代码大全

4、时间函数：

date：取系统当前日期

time：取系统当前时间

now：取系统当前时间及日期值

Datetime类型

timer：取当前时间距离零点秒值，计时器，可计算时间差

DateAdd（间隔单位，间隔值，日期）：推算相邻日期

DateDiff（间隔单位，日期一，日期二）：计算时间差 日期二-日期一

Datepart（间隔单位，日期）：计算日期的间隔单位值

Dateserial（date）：输出日期值（按序列计算）

Timeserial（time）：输出时间值（按序列计算）

Datevalue（datetime）：取出字符串中日期值

Timevalue（datetime）：取出字符串中时间值

weekday（date）：计算星期几

MonthName（date）：输出月分名

year（datetime）：截取年份

month（datetime）：截取月份

day（datetime）：截取日

hour（datetime）：截取小时

minute（datetime）：截取分钟

second（datetime）：截取秒

vb语言代码大全

5、其它函数：

Array（unit，。。）：动态生成数组

Asc（str）：输出字符串第一个字符的ASCII码

Chr（asc）：转换ASCII为字符 Enter：Chr（13）&Chr（10） Filter（数组名称，关键字符串，［，包含］［，比较方法］）：

将字符串数组中含有关键字符串的元素存成新的数组（默认） ［包含］为false则取不包含的元素

oin（ArrayName）：将数组中元素连成字符串

Ubound（ArrayName［，维数］）：取得数组相应维数的上界

Lbound（ArrayName［，维数］）：取得数组相应维数的下界 一般为0 Randmize n：启动随机数种子

Rnd（n）：取得随机数，n》0或为空，取序列下一随机值，n《0，随机值相同，n=0，生产与上一随机值相同的数

取介于A和B之间的随机正数C，公式：C=Int（（B-A+1）*Rnd+A） 条件（B》A）

子程序和自定义函数

Sub StrSubNahttp://zzdxjyzd.com/me Function StrFunName（arg［1］，。。） 子程序体 函数体

Exit Sub 中途跳出 Exit Function 中途跳出

End Sub StrFunName＝value 返回值

End Function

［call］ StrSubName 引用子程序 Var=StrFunName（arg［1］，。。） 引用函数