189 8069 5689
用这个函数把
成都创新互联公司服务项目包括平乡网站建设、平乡网站制作、平乡网页制作以及平乡网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，平乡网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到平乡省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！
Math.Round 方法 (Decimal, Int32)
将小数值舍入到指定精度。
命名空间： System
程序集： mscorlib（在 mscorlib.dll 中）
语法
Visual Basic（用法）
Dim d As Decimal
Dim decimals As Integer
Dim returnValue As Decimal
returnValue = Math.Round(d, decimals)
参数
d
类型：System.Decimal
要舍入的小数。
decimals
类型：System.Int32
返回值中的小数位数（精度）。
返回值
类型：System.Decimal
精度等于 decimals，最接近 d 的数字。
Math.Round(3.4666666, 4) 结果是 3.4667.
我写了一段代码，注意你读取的方法，我改进了一下 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) ’注意选择编码方式，按你原来的方法，未设置编码，显示的是乱码！路径请按你的情况改！ TextBox.Text = sr.ReadToEnd()
i += 1 End If
Next
MsgBox("已经载入" i - 1 "个文件") End Sub注意：这样的代码是倒序的，第一个文本框显示的是最后一个文件的内容！请酌情处理！
首先在窗体上画两个控件：TextBox1和Button1
TextBox1用来输入需要计算那个数的阶乘
双击Button1进入输入代码，代码如下
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim Factorial As Integer = 1 '定义一个变量用来记录阶乘的结果
Dim count As Integer '定义一个变量用来记录需要计算那个数的阶乘
Dim i As Integer = 1 '定义一个数用来循环
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) '弹出计算结果
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函数实现
Rnd 函数返回小于 1 但大于或等于 0 的值。
为了生成某个范围内的随机整数，可使用以下公式：
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。
你这里可以先把范围扩大10倍，看成21到34之间的随机数，最后再除以10就行了。
Int((34 - 21 + 1) * Rnd + 21) / 10