vb.net控制台源码 vb控制台程序怎么写

VB.NET控制台

就是这样的老兄，显示完就是闪一下，不会等你看的。程序流程本来就是这样嘛。

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

console.read()

这样等到你按回车，才会结束 。

相关问答

Q1: VB.net 里下面的代码怎么运行？怎么用控制台？

建个控制台工程，把代码粘过去，最后显示的代码放入到Main方法里就可以了。

采纳哦

Q2: 如何用vb.net获得网页的源代码

Dim url As String=" 网址"

Dim httpReq As System.Net.HttpWebRequest

Dim httpResp As System.Net.HttpWebResponse

Dim httpURL As New System.Uri(url)

httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)

httpReq.Method = "GET"

httpResp = CType(httpReq.GetResponse(), HttpWebResponse)

httpReq.KeepAlive = False ' 获取或设置一个值，该值指示是否与

Internet资源建立持久连接。

Dim reader As StreamReader = _

New StreamReader(httpResp.GetResponseStream,

System.Text.Encoding.GetEncoding(-0))

Dim respHTML As String = reader.ReadToEnd() 'respHTML就是网页源代码

Q3: VB.net编写一个控制台应用程序用来从键盘上输入两个数然后输出这两个数的和差积商

应该定义为double或者single，string类好像不能进行运算。我简单说一下控制台的方法，你要一次性输入和差积商，首先声明两个变量用来储存两个数，然后用算法一次性输出结果就ok。

Sub Main()

Dim FN As Single

Dim SN As Single

Dim ResultNum As Single

Console.WriteLine("请输入第一个数") : FN = Console.ReadLine

Console.WriteLine("请输入第二个数") : 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

Q4: vb.NET webbrowser 修改网页源码

Dim c

Private Sub Form_Load()

URL = ""

c = 0

WebBrowser1.Navigate URL

End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

If c = 1 Then Exit Sub '这个是为了防止这个过程无限执行下去

c = c + 1

tmp = WebBrowser1.Document.body.innerhtml

tmp = Replace(tmp, "88753967", "好玩吗？")

WebBrowser1.Document.body.innerhtml = tmp

End Sub

Q5: vb 十进制转换成 八进制 二进制原码 二进制补码 二进制反码 程序

VB.NET控制台程序：

Module module3

Sub Main()

Dim i As Integer

Dim num As Integer = -35

Dim R As Integer = 8

Dim arr(33) As Integer

Dim len As Integer

arr = TransToR(num, R)

len = arr(0)

Console.Write(num " 转换成 " R " 进制后：" vbTab)

If (arr(1) = 1) Then

Console.Write("-")

End If

For i = len + 1 To 2 Step -1

Console.Write(arr(i))

Next

Console.WriteLine()

arr = TransToSourceCode(num)

Console.Write(num " 转换成32位二进制源码后：" vbTab)

Console.Write(arr(1))

For i = 32 To 2 Step -1

Console.Write(arr(i))

Next

Console.WriteLine()

arr = TransToReverseCode(num)

Console.Write(num " 转换成32位二进制反码后：" vbTab)

Console.Write(arr(1))

For i = 32 To 2 Step -1

Console.Write(arr(i))

Next

Console.WriteLine()

arr = TransToCompensatoryCode(num)

Console.Write(num " 转换成32位二进制补码后：" vbTab)

Console.Write(arr(1))

For i = 32 To 2 Step -1

Console.Write(arr(i))

Next

Console.WriteLine()

End Sub

'将十进制数num转换为R(2=R=9)进制数，结果存在arr数组中

'arr(0)存储长度, arr(1)存储符号位：1为负，0为正

Function TransToR(ByVal num As Integer, ByVal R As Integer) As Integer()

Dim arr(33) As Integer

arr(0) = 0 '初始长度

'设置符号位

If (num 0) Then

arr(1) = 1

Else

arr(1) = 0

End If

num = Math.Abs(num)

While num 0

arr(0) = arr(0) + 1

arr(arr(0) + 1) = num Mod R

num \= R

End While

Return arr

End Function

'将十进制数num转换为二进制原码

Function TransToSourceCode(ByVal num As Integer) As Integer()

Dim arr(33) As Integer

Dim i As Integer

arr = TransToR(num, 2)

'高位补零

For i = arr(0) + 2 To 32

arr(i) = 0

Next

arr(0) = 32

Return arr

End Function

'将十进制数num转换为二进制反码

Function TransToReverseCode(ByVal num As Integer) As Integer()

Dim arr(33) As Integer

Dim i As Integer

arr = TransToSourceCode(num)

If num = 0 Then

Return arr

End If

'除符号位外各位取反

For i = 2 To 33

arr(i) = 1 - arr(i)

Next

Return arr

End Function

'将十进制数num转换为二进制补码

Function TransToCompensatoryCode(ByVal num As Integer) As Integer()

Dim arr(33) As Integer

Dim i As Integer

Dim c As Integer = 0 '进位

arr = TransToReverseCode(num)

If num = 0 Then

Return arr

End If

'末尾加1

i = 2

arr(i) += 1

Do While True

arr(i) = c + arr(i)

c = arr(i) \ 2

arr(i) = arr(i) Mod 2

i += 1

If c 1 Then

Exit Do

End If

Loop

Return arr

End Function

End Module

vb.net控制台源码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb控制台程序怎么写、vb.net控制台源码的信息别忘了在本站进行查找喔。