求一个可以把汉字转换为数字的VB.NET程序

我用的C#，我和你说下，你要做这个的思路吧，要用到的知识点：比如说你在文本框里输入汉字，点一button按扭来转换，也就是说获取文本框字符串，然后切割字符串转化为数组，string [] str=textbox.text.ToCharArray()接下来用循环来一个方法for(int i=0,istr.length;i++){if(str[i]=="壹"){str[i]=str[i].replace(壹,1);/pp}else{str[i]=str[i].replace(贰,2);} //这里根据自己的需求}大概的知识点要用到这些，不过，还有待他人和你自己的补充，我用的C#，以前我做过一个类似的(数字转为汉字哈)，不过，那全是用if....else 来判断的，希望你能看懂，对你有帮助

成都创新互联公司-专业网站定制、快速模板网站建设、高性价比贵溪网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式贵溪网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖贵溪地区。费用合理售后完善，10年实体公司更值得信赖。

vb.net 如何把大写金额转换成阿拉伯数字金额？

Private Sub Text2_Change() '大写金额转换成阿拉伯数字金额

Dim i As Integer

Dim j As Integer

Dim myint As Integer

Dim myint1 As Integer

Dim mydoub As Double

Dim mystr As String

Dim mystr1 As String

Dim mystr2 As String

Dim mystr3 As String

Dim mystr4 As String

Dim money As Long

Dim money1 As Integer

Dim money2 As Long

mystr = Text2.Text

myint = InStr(mystr, ".")

If myint = 0 Then

mystr = Text2.Text

Else

mystr3 = Right(Text2.Text, Len(Text2.Text) - myint)

If mystr3 "" Then '转换小数位

mystr4 = Left(mystr3, 1)

mystr3 = Right(mystr3, Len(mystr3) - 1)

If mystr4 "0" Then

mystr2 = mystr2 + setdata(Val(mystr4)) + "角"

End If

If mystr3 "" Then

mystr4 = Left(mystr3, 1)

mystr2 = mystr2 + setdata(Val(mystr4)) + "分"

End If

End If

mystr = Left(Text2.Text, myint - 1)

End If

j = Len(mystr)

For i = 1 To Len(mystr) '转换整数位

money2 = Left(mystr, i)

money1 = Right(money2, 1)

If money1 = 0 Then

If j = 5 Then

If Right(mystr1, 1) "万" Then mystr1 = mystr1 "万"

Else

If Right(mystr1, 1) "零" And Right(money, j) 0 Then mystr1 = mystr1 "零"

End If

Else

mystr1 = mystr1 setdata(money1) + chang(j)

End If

j = j - 1

Next i

Text1.Text = mystr1 "元" mystr2 '显示大写

End Sub

vb.net编辑的金额值没有做format。目标excel对应单元格做了format设定。但是相识

A、单击“文件”菜单栏中的“保存或者（另存为）”命令后，在弹出的“保存或者（另存为）”的对话框中输入文件名；

B、再单击这个对话框中“工具”栏下的“常规选项”按钮，在弹出的“保存选项”的对话框中输入自己的密码；

这里要注意，它提供了两层保护，如果你也设置了修改权限密码的话，那么即使文件被打开也还需要输入修改权限的密码才能修改。

C、单击“确定”按钮，在弹出的密码确认窗口中重新输入一遍密码，再点击“确认”，最后点“保存” 完成文件的加密工作。当重新打开文件时就要求输入密码，如果密码不正确，文件将不能打开。

vb.net 统计时间段内数据库字段金额和

加一个按钮，代码如下：

Imports System.Data.OleDb

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim myConn As OleDbConnection = New OleDbConnection '声明并实例化数据库连接对象

Dim myadpt As New OleDbDataAdapter '声明并实例化数据适配器对象

Dim myds As New DataSet '声明并实例化记录集对象

Dim myConnection As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Application.StartupPath "\DB\SJ.mdb" '数据库连接字符串

myConn.ConnectionString = myConnection '设置数据库连接对象的数据库连接字符串属性

myConn.Open() '启动数据库连接

myadpt.SelectCommand = New OleDbCommand '声明数据适配器的查询命令对象

myadpt.SelectCommand.CommandText = "select sum(支出金额) as 支出金额 from zcb where 支出时间 like '" Text1.Text "%' " '给数据适配器的查询命令属性赋值

myadpt.SelectCommand.Connection = myConn '设置据适配器与数据库连接对象的连接

myadpt.Fill(myds)

Text13.Text = myds.Tables(0).Rows(0)("支出金额")

End Sub

End Class

vb.net汇总代码问题

("select sum(金额) as total from [cai Details]")

统计时需加上条件

"select sum(金额) as total from [cai Details] Where Name='张三'"

vb.net datagridview列求和

String[] s={"January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December"};

System.out.print("请输入数字（1-12）：");

BufferedReader br=new BufferedReader(new InputStreamReader(System.in));

String str=br.readLine();

int m=Integer.parseInt(str);

if (m=0||m=13)

{

分享题目：vb.net金额 VB net
当前路径：http://chengdu.cdxwcx.cn/article/hgjedj.html