用這個函數(shù)把
成都創(chuàng)新互聯(lián)公司服務(wù)項目包括平鄉(xiāng)網(wǎng)站建設(shè)、平鄉(xiāng)網(wǎng)站制作、平鄉(xiāng)網(wǎng)頁制作以及平鄉(xiāng)網(wǎng)絡(luò)營銷策劃等。多年來，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術(shù)優(yōu)勢、行業(yè)經(jīng)驗(yàn)、深度合作伙伴關(guān)系等，向廣大中小型企業(yè)、政府機(jī)構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案，平鄉(xiāng)網(wǎng)站推廣取得了明顯的社會效益與經(jīng)濟(jì)效益。目前，我們服務(wù)的客戶以成都為中心已經(jīng)輻射到平鄉(xiāng)省份的部分城市，未來相信會繼續(xù)擴(kuò)大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任！
Math.Round 方法 (Decimal, Int32)
將小數(shù)值舍入到指定精度。
命名空間： System
程序集： mscorlib（在 mscorlib.dll 中）
語法
Visual Basic（用法）
Dim d As Decimal
Dim decimals As Integer
Dim returnValue As Decimal
returnValue = Math.Round(d, decimals)
參數(shù)
d
類型：System.Decimal
要舍入的小數(shù)。
decimals
類型：System.Int32
返回值中的小數(shù)位數(shù)（精度）。
返回值
類型：System.Decimal
精度等于 decimals，最接近 d 的數(shù)字。
Math.Round(3.4666666, 4) 結(jié)果是 3.4667.
我寫了一段代碼，注意你讀取的方法，我改進(jìn)了一下 Imports System.IO ‘代碼窗體的最上端一定要聲明
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sr As StreamReader Dim TextBox As Control
Dim i As Integer
i = 1
For Each TextBox In Me.Controls
If TypeName(TextBox) = "TextBox" Then sr = New StreamReader("c:\save\" i ".ini", System.Text.Encoding.Default) ’注意選擇編碼方式，按你原來的方法，未設(shè)置編碼，顯示的是亂碼！路徑請按你的情況改！ TextBox.Text = sr.ReadToEnd()
i += 1 End If
Next
MsgBox("已經(jīng)載入" i - 1 "個文件") End Sub注意：這樣的代碼是倒序的，第一個文本框顯示的是最后一個文件的內(nèi)容！請酌情處理！
首先在窗體上畫兩個控件：TextBox1和Button1
TextBox1用來輸入需要計算那個數(shù)的階乘
雙擊Button1進(jìn)入輸入代碼，代碼如下
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim Factorial As Integer = 1 '定義一個變量用來記錄階乘的結(jié)果
Dim count As Integer '定義一個變量用來記錄需要計算那個數(shù)的階乘
Dim i As Integer = 1 '定義一個數(shù)用來循環(huán)
count = Int(Val(Me.TextBox1.Text)) '把TextBox1的值賦值給count
Do While i = count '下面開始計算階乘
Factorial = Factorial * i '計算階乘
i += 1 '自增1
Loop
MessageBox.Show(Int(Val(Me.TextBox1.Text)) "的階乘是：" Factorial, "完成", MessageBoxButtons.OK) '彈出計算結(jié)果
Catch ex As Exception '出錯提示
MessageBox.Show(Err.Description, "出錯了", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
//C# code
private void worker(int i)
{
if(i==1){
for(i;i=1000;i++){
//do something......
}
worker(i);
}else{
i=1000;
for(i;i=1;i--){
//do something......
}
worker(i);
}
}
worker(1);
邏輯是這樣 ，樓主自己用vb寫一下就行了
可以用Rnd函數(shù)實(shí)現(xiàn)
Rnd 函數(shù)返回小于 1 但大于或等于 0 的值。
為了生成某個范圍內(nèi)的隨機(jī)整數(shù)，可使用以下公式：
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
這里，upperbound 是隨機(jī)數(shù)范圍的上限，而 lowerbound 則是隨機(jī)數(shù)范圍的下限。
你這里可以先把范圍擴(kuò)大10倍，看成21到34之間的隨機(jī)數(shù)，最后再除以10就行了。
Int((34 - 21 + 1) * Rnd + 21) / 10
重慶分公司
重慶分公司
