vb计算机 小数前没有0,vb6.0除法运算结果不显示小数点前的0

2016-09-01 01:18齐晓庆 客户经理

在加减乘除运算中，运算结果的类型和运算量的类型相同,由于类型不同，所以出错，要达到你目的可以1000\15 1000\25,由于1.5 2.5是小数所以强制转换时出错

2016-09-01 01:15齐敦益 客户经理

同构数是会出现在它的平方的右边的数。

如5×5=25，6×6=36。

VB6.0示例代码：

Private Sub Form_Click() Dim i As Long Dim n As Long For i = 1 To 1000 n = i ^ 2 If (n - i) Mod 10 ^ (Len(Trim(Str(i)))) = 0 Then Print i; n End If Next iEnd SubLen 函数，返回 Long，其中包含字符串内字符的数目，或是存储一变量所需的字节数。

Trim 函数，返回 Variant (String)，其中包含指定字符串将两头空格去除的拷贝

Mod 运算符，用来对两个数作除法并且只返回余数。

2016-09-01 01:12龚小芝 客户经理

VB6.0中关于=号有以下几类用法：

1)比较运算符，用来比较表达式。

比较运算符示例：

本示例示范各种“比较运算符”的用法。这类运算符通常拿来做表达式结果的比较。

Private Sub Form_Click() Dim MyResult, Var1, Var2 MyResult = (45 < 35) ' 返回 False。 Debug.Print MyResult MyResult = (45 = 45) ' 返回 True。 Debug.Print MyResult MyResult = ("5" > "4") ' 返回 True。 Debug.Print MyResultEnd Sub2)条件判断式中使用做等于号(=)，见以下代码用法：

Private Sub Command1_Click() a = 1 b = InputBox("输入b", b) If a + b = 4 Then Print "Ok" Else Print "Error" End IfEnd Sub其中 If a + b = 4 Then 句中使用的是等于用法。

3)= 操作符，用于对一个变量或属性赋值。

给变量和属性赋值

BackColor = 255

VScroll1.Value = 100

MaxRows = 50

第一个语句改变当前活动窗体的属性，第二个语句改变 VScroll1 的一个属性，第三个语句则给变量赋值。

用赋值