VB.net類的問題?報錯說是應(yīng)為語句結(jié)束。一處在Get_SumMoney()一處在Conn() 求解呀

這樣看是看不出來的，因為不是邏輯性錯誤，是運行的時候報錯吧。交給你一個方法，在有問題的哪個函數(shù)第一行設(shè)置斷點，然后運行程序，程序就會停在斷點處，然后按f8鍵，一行一行運行，看看哪行出了問題。在出問題的行那里，查看前后的變量值

成都創(chuàng)新互聯(lián)公司長期為上千多家客戶提供的網(wǎng)站建設(shè)服務(wù)，團隊從業(yè)經(jīng)驗10年，關(guān)注不同地域、不同群體，并針對不同對象提供差異化的產(chǎn)品和服務(wù)；打造開放共贏平臺，與合作伙伴共同營造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為達茂旗企業(yè)提供專業(yè)的網(wǎng)站制作、網(wǎng)站建設(shè)，達茂旗網(wǎng)站改版等技術(shù)服務(wù)。擁有十余年豐富建站經(jīng)驗和眾多成功案例,為您定制開發(fā)。

如果是沒運行就報錯，

dt Get_SumMoney() 這里有錯誤 vb.net 函數(shù)返回類型應(yīng)該是類似這樣 Get_SumMoney() as dt

conn那里也是這樣的語法錯誤。 你這個是不是從C# 變換過來的代碼啊

用VB.NET程序編寫代碼

Delphi代碼如下：

procedure?TForm1.Button1Click(Sender:?TObject);

var

購物總價:Integer;

折扣:Extended;

begin

購物總價:=StrToInt(Edit1.Text);

if?購物總價250?then

begin

折扣:=0;

end

else?if?購物總價500?then

begin

折扣:=0.05;

end

else?if?購物總價1000?then

begin

折扣:=0.075;

end

else?if?購物總價2000?then

begin

折扣:=0.1;

end

{

此段的折扣是多少？

else?if?購物總價3000?then

begin

折扣:=0.05;

end

}

else?if?購物總價=3000?then

begin

折扣:=0.15;

end;

ShowMessage('您享受的折扣是：'+FloatToStr(折扣)

+'?原價：'+IntToStr(購物總價)

+'?折后總價：'+FloatToStr(購物總價*(1-折扣)));

end;

下列 是屬于VB.NET合法的變量名 A.Home B.@EMail C.Integer D.$money

A：合法的變量名首字符是大小寫的英文字母，后面跟字每或數(shù)字等。

vb.net在數(shù)組定義中如何使用復(fù)合數(shù)據(jù)類型

你可以用結(jié)構(gòu)數(shù)組的,如下:

...

Private Structure test

Dim name As String

Dim sex As String

Dim age As Integer

Dim salary As Integer

End Structure

Dim list(2) As test

Private Sub insert()

list(0).name = "張三"

list(0).age = "20"

list(0).salary = "1500"

list(0).sex = "男"

list(1).name = "李四"

list(1).age = "21"

list(1).salary = "1500"

list(1).sex = "女"

End Sub

...

你可以放到main()里輸出一下，就是這樣...

vb.net 如何把大寫金額轉(zhuǎn)換成阿拉伯數(shù)字金額？

Private Sub Text2_Change() '大寫金額轉(zhuǎn)換成阿拉伯數(shù)字金額

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 '轉(zhuǎn)換小數(shù)位

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) '轉(zhuǎn)換整數(shù)位

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.netmoney的詞條
當前網(wǎng)址：http://chinadenli.net/article16/dsgoddg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站建設(shè)、網(wǎng)站內(nèi)鏈、軟件開發(fā)、手機網(wǎng)站建設(shè)、建站公司、靜態(tài)網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)