VB.NET控制臺(tái)

就是這樣的老兄，顯示完就是閃一下，不會(huì)等你看的。程序流程本來就是這樣嘛。

創(chuàng)新互聯(lián)建站是一家集網(wǎng)站建設(shè),臨沭企業(yè)網(wǎng)站建設(shè),臨沭品牌網(wǎng)站建設(shè),網(wǎng)站定制,臨沭網(wǎng)站建設(shè)報(bào)價(jià),網(wǎng)絡(luò)營(yíng)銷,網(wǎng)絡(luò)優(yōu)化,臨沭網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競(jìng)爭(zhēng)力。可充分滿足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時(shí)我們時(shí)刻保持專業(yè)、時(shí)尚、前沿，時(shí)刻以成就客戶成長(zhǎng)自我，堅(jiān)持不斷學(xué)習(xí)、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實(shí)用型網(wǎng)站。

一般要看的話，都是在下面加一句：

console.read()

這樣等到你按回車，才會(huì)結(jié)束 。

VB.NET 向指定(網(wǎng)頁或軟件)的輸入框內(nèi)輸入字符,如何實(shí)現(xiàn)?

假如Form1有個(gè)TextBox1，雙擊TextBox1填入123

Public Class Form1

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub TextBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.DoubleClick

System.Windows.Forms.SendKeys.Send("123")

End Sub

End Class

看你的VB.NET 版本了

用 My.Computer.Keyboard.SendKeys("123", True) 代替 System.Windows.Forms.SendKeys.Send("123") 也可以

原碼：

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub TextBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.DoubleClick

My.Computer.Keyboard.SendKeys("123", True)

End Sub

End Class

在vb.net中怎么編寫一個(gè)控制臺(tái)程序，求兩個(gè)整數(shù)的平均值

Sub Main()

Dim i, j As Integer

Dim tmpStr As String

Console.WriteLine("please input a integer")

tmpStr = Console.ReadLine()

If IsNumeric(tmpStr) And InStr(tmpStr, ".") 1 Then

判斷輸入是否是整數(shù),IsNumeric(tmpStr) 是判斷是否是數(shù)字,InStr(tmpStr, ".")是判斷是否有小數(shù)點(diǎn).

i = CType(tmpStr, Integer)

Else

MsgBox("not a valid integer!")

Exit Sub

End If

Console.WriteLine("please input another integer")

tmpStr = Console.ReadLine()

If IsNumeric(tmpStr) And InStr(tmpStr, ".") 1 Then

j = CType(tmpStr, Integer)

Else

MsgBox("not a valid integer!")

Exit Sub

End If

Console.WriteLine("the avg is : " ((i + j) / 2).ToString "press enter to exit...")

Console.ReadLine()

End Sub

VB.net編寫一個(gè)控制臺(tái)應(yīng)用程序用來從鍵盤上輸入兩個(gè)數(shù)然后輸出這兩個(gè)數(shù)的和差積商

應(yīng)該定義為double或者single，string類好像不能進(jìn)行運(yùn)算。我簡(jiǎn)單說一下控制臺(tái)的方法，你要一次性輸入和差積商，首先聲明兩個(gè)變量用來儲(chǔ)存兩個(gè)數(shù)，然后用算法一次性輸出結(jié)果就ok。

Sub Main()

Dim FN As Single

Dim SN As Single

Dim ResultNum As Single

Console.WriteLine("請(qǐng)輸入第一個(gè)數(shù)") : FN = Console.ReadLine

Console.WriteLine("請(qǐng)輸入第二個(gè)數(shù)") : SN = Console.ReadLine

ResultNum = FN + SN

Console.WriteLine("它們的和: " ResultNum)

ResultNum = FN - SN

Console.WriteLine("它們的差: " ResultNum)

ResultNum = FN * SN

Console.WriteLine("它們的積: " ResultNum)

ResultNum = FN / SN

Console.WriteLine("它們的商: " ResultNum)

Console.ReadLine()

End Sub

請(qǐng)教如何解決vb.net打開控制臺(tái)程序控制輸入輸出鎖死的問題。

如何處理鎖死？同步的程序就有這個(gè)缺陷，條件得不到滿足就不會(huì)返回。所以想不鎖死就只能滿足

a.StandardOutput.ReadLine的需求。

如果確實(shí)滿足不了或者無法預(yù)料能否滿足怎么辦？

將這個(gè)方法放入一個(gè)線程，這樣線程鎖死，主程序界面也不會(huì)鎖死，還是會(huì)響應(yīng)用戶操作，而且主線程可以設(shè)定一個(gè)等待時(shí)間，如果超時(shí)就殺死線程。

vb 怎么寫控制臺(tái)程序

vb.net有控制臺(tái)程序選擇項(xiàng)，

新建--項(xiàng)目--已安裝--模板-Visual Basic--windows,

然后在右邊的窗口中選擇“控制臺(tái)應(yīng)用程序”。

新聞標(biāo)題：vb.net控制臺(tái)輸入 vb控制臺(tái)輸出
網(wǎng)站網(wǎng)址：http://m.newbst.com/article42/hjhshc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供微信小程序、靜態(tài)網(wǎng)站、面包屑導(dǎo)航、網(wǎng)站建設(shè)、軟件開發(fā)、動(dòng)態(tài)網(wǎng)站

廣告

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