在线等！快的加分！！VB中int取整是否要四舍五入？ 比如int（7/5)答案是3还是4 =int()是取整函数,但是它不四舍五入,请问,要四舍五入该...
VB\u56db\u820d\u4e94\u5165\u7684\u95ee\u9898\uff0c\u6025\uff01\u95ee\u9898\u5728\u4e8e int(XXX *100)/100
\u8fd9\u53e5\u7684\u610f\u601d\u662f\u4fdd\u7559\u4e24\u4f4d\u5c0f\u6570\uff0c\u4f60\u53ef\u4ee5\u6362\u4f5cint(XXX *10)/10
\u4e0d\u597d\u610f\u601d\uff0c\u4e0d\u597d\u610f\u601d\uff0c\u8fd8\u5fd8\u8bb0\u4e86\u4e00\u70b9
\u8bf7\u770b\u4e0b\u9762\uff1a
Int(N*100+0.5)/100 \u8fd9\u662f\u4e00\u4e2a\u4fdd\u7559\u4e24\u4f4d\u5c0f\u6570\u7684\u516c\u5f0f
\u90a3\u4e48\u4f60\u8981\u7684\u662f\u4fdd\u7559\u4e00\u4f4d\u5c0f\u6570
Int(N*10+0.5)/10
\u9a8c\u8bc1\u503c1.76 \u4ee3\u5165
1.76\u4e58\u4ee510\u5f9717.6
17.6\u52a00.5 \u5f9718.1
18.1\u53d6\u6574 \u5f9718
18\u9664\u4ee510 \u5f971.8
\u6b63\u786e!
\u7528Int \u7684\u8bdd \u5c31 Int(\u6570\u5b57+0.5)
\u7528Format\u4e5f\u53ef\u4ee5\u8f7b\u677e\u641e\u5b9a\u3002
format(a,"0.00") \u8fd9\u6837\u5c31\u56db\u820d\u4e94\u5165\u4fdd\u63012\u4f4d\u5c0f\u6570\u3002
\u7528 Round() \u5219
Debug.Print Round(200.5) 'return 200
Debug.Print Round(200.56) 'return 201
Debug.Print Round(200.56, 1) 'return 200.6
Debug.Print Round(200.56, 2) 'return 200.56
\u8fd4\u56de\u4e00\u4e2a\u6570\u503c\uff0c\u8be5\u6570\u503c\u662f\u6309\u7167\u6307\u5b9a\u7684\u5c0f\u6570\u4f4d\u6570\u8fdb\u884c\u56db\u820d\u4e94\u5165\u8fd0\u7b97\u7684\u7ed3\u679c\u3002
\u8bed\u6cd5
Round(expression [,numdecimalplaces])
Round\u51fd\u6570\u8bed\u6cd5\u6709\u5982\u4e0b\u51e0\u90e8\u5206\uff1a
\u90e8\u5206 \u63cf\u8ff0
expression \u5fc5\u9700\u7684\u3002\u8981\u8fdb\u884c\u56db\u820d\u4e94\u5165\u8fd0\u7b97\u7684\u6570\u503c\u8868\u8fbe\u5f0f\u3002
numdecimalplaces \u53ef\u9009\u7684\u3002\u6570\u5b57\u503c\uff0c\u8868\u793a\u8fdb\u884c\u56db\u820d\u4e94\u5165\u8fd0\u7b97\u65f6\uff0c\u5c0f\u6570\u70b9\u53f3\u8fb9\u5e94\u4fdd\u7559\u7684\u4f4d\u6570\u3002\u5982\u679c\u5ffd\u7565\uff0c\u5219Round\u51fd\u6570\u8fd4\u56de\u6574\u6570\u3002
四舍五入可以用Round函数，语法：Round([数字],[保留小数的位数])，不过由于电脑的计算算法等问题（这里不做过多解释），在某些情况下会产生5不进的情况。
希望对你有帮助。
去尾，不是四舍五入。
int（7/5) = 1
5.6四舍五入：int(5.6+0.5)=6
绛旓細鏈嬪弸,浣犺瘯杩囦簡娌...琛屽悧???濡傛灉浣犳湁鍏跺畠闂,鎴戜竴骞跺府浣犺В鍐崇畻浜...鍛靛懙,,,涔颁竴閫丯涓棶棰樺摕(濂藉儚鏄墦骞垮憡)..鍝堝搱 鏈嬪弸,,,鍒嗙粰鍋跺惂,鍛靛懙,鍋跺ソ鍍忔渶蹇憿,杩欓寰堢畝鍗...鍝堝搱,涓昏鐪嬭皝鎵嬪揩,,,...浣犲鍒舵垜鐨勪唬鐮,璇曡瘯../ 鎴戞潵..椹笂灏辨悶瀹,,,涓夊垎閽,绛夋垜..鍒嗙粰鎴,鍝堝搱 '闇瑕佹帶浠...
绛旓細'娣诲姞绐椾綋Form1,鏂囨湰妗員ext1,Text2,鎸夐挳Command1,鐒跺悗娣诲姞濡備笅浠ｇ爜:PrivateSubCommand1_Click()Text2.Text=strToPassword(Text1.Text,-2)'宸︾Щ涓や綅 EndSub '鍑芥暟鍚嶏細strToPassword '鍔熻兘锛氭寜瑕佹眰灏嗗瓧绗﹁浆鍖栦负鈥滃瘑鐮佲'鍙傛暟锛歴trSource涓鸿澶勭悊鐨瀛楃锛宨ntMove涓哄皢瀛楃涓殑姣忎釜瀛楃绉诲姩澶氬皯浣 '杩斿洖鍊...
绛旓細鎺т欢锛氫袱涓狪mage涓涓猼imer涓涓猚ommand涓涓猄lider Image1鏀惧浘鐗囦唬琛ㄤ簯 Image2鏀惧浘鐗囦唬琛ㄩ鏈 Slider鐢ㄦ潵璋冭妭閫熷害 浠ｇ爜锛歅rivate Sub Command1_Click()Timer1.Enabled = True End Sub Private Sub Form_Load()Timer1.Enabled = false Timer1.Interval = 100 Image1.Top = 100 Image1.Height = 100 Im...
绛旓細10鍒嗘湁鐐瑰皯銆傘傘傜粰浣犱釜if鐨勫啓娉 Private Sub Command1_Click()Dim b, c, d, i As IntegerDim a(10) As VariantText1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""For i = 1 To 10a(i) = Int(90 * Rnd() + 10)If a(i) <= 35 Thenb = b + 1ElseIf...
绛旓細Private Sub Command1_Click()Max = -1 Min = 99999 For i = 1 To 10 ' x = Val(InputBox("璇疯緭鍏ョ " & i & " 涓垚缁:"))x = i s = s + x If Max < x Then Max = x If Min > x Then Min = x Next i s = s - Max - Min Print "鍘绘帀涓涓渶楂樺垎"; Max ...
绛旓細'涓嬮潰浠??鐢熶笉閲?鐨勯殢鏈烘暟Private Sub Command1_Click()Dim a(1 To 20) As Integer, tmp As IntegerDim i As IntegerDim max As IntegerDim maxCount As IntegerDim sRandomize TimerFor i = 1 To 20a(i) = Rnd * 99 + 1Debug.Print a(i)Nextmax = a(1)maxCount = 1For i = ...
绛旓細浠ｇ爜濡備笅銆傦紳锛濓紳 Private Sub Form_Load()ReDim a(0)Open "d:\1.txt" For Input As 1 '杩欓噷鏄枃浠惰矾寰 Do Until EOF(1)Line Input #1, a(UBound(a))ReDim a(UBound(a) + 1)Loop Close End Sub 鎼滅储鐨璇濈粰浣犳彁渚涗釜鎬濊矾锛屾瘮鏂硅鎼滅储瀛楃涓閲岄潰鏈夋病鏈夆1鈥濓紝閭ｄ箞if instr(1,鍘熷瓧...
绛旓細+ 4) = Text4.Textarr(((dj - 1) * 5) + 5) = Text5.TextEnd Ifa = MsgBox("绗" & dj & "鍚嶅鐢熸垚缁╁凡褰曞叆锛岀户缁綍鍏ュ悧锛", vbYesNo, "鎻愰啋") If a = vbYes Then Else Exit SubEnd IfEnd Sub Private Sub Command2_Click()Dim name As StringDim i,...
绛旓細Private Sub Command1_Click()Dim a(10)Max = -1 Min = 9999 For i = 1 To 10 a(i) = Val(InputBox("绗 " & i & " 鍚嶅鐢熺殑鎴愮哗锛"))If a(i) > Max Then Max = a(i)If a(i) < Min Then Min = a(i)Next i Label1.Caption = "鏈楂樺垎锛" & Max Label2.Caption ...
绛旓細鎶婁綘鐨鏁版嵁鏂囦欢鎴浘鐪嬩竴涓嬶紝鍙兘鏄綘鐨勬暟鎹枃浠舵湁闂 浣犲彲浠ュ厛鐢ㄤ竴涓惊鐜緭鍑轰竴涓嬩綘鐢╯plit鍒嗗壊鍚庣殑鏁扮粍hang銆乴ie鍚勫厓绱犵殑鍊硷紝鐪嬫湁娌℃湁闂 鏂规硶鏄細i=0 for each temp in hang print i,temp i=i+1 next temp 鐪嬩竴涓媓ang鏁扮粍涓湁澶氬皯涓厓绱犮備粠鑰屽彲浠ョ‘瀹氫綘鐨勫垎鍓叉槸鍚︽纭紝鐢辨纭畾浣犵殑鏁版嵁...
