vb点虐 控制台输入 vbs 输出到控制台

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

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

成都创新互联公司成立于2013年，我们提供高端成都网站建设、成都网站制作、成都网站设计公司、网站定制、营销型网站建设、微信小程序、微信公众号开发、网站推广服务，提供专业营销思路、内容策划、视觉设计、程序开发来完成项目落地，为成都木托盘企业提供源源不断的流量和订单咨询。

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

请教如何解决vb点虐 打开控制台程序控制输入输出锁死的问题。

如何处理锁死？同步的程序就有这个缺陷，条件得不到满足就不会返回。所以想不锁死就只能满足

a.StandardOutput.ReadLine的需求。

如果确实满足不了或者无法预料能否满足怎么办？

将这个方法放入一个线程，这样线程锁死，主程序界面也不会锁死，还是会响应用户操作，而且主线程可以设定一个等待时间，如果超时就杀死线程。

VB点虐 里面 console是什么意思 怎么用?

在visual studio点虐 中，你新建一个控制台程程序 然后里面 给你 一个 程序 你粘贴复制 就知道了 呵呵

Module Module1

Sub Main()

Dim x As String, y As Byte '定义变量及其数据类型

x = "007" '为变量x赋初值

y = Convert.ToByte(x) '将字符串型数据转换成字节型值并赋值给变量y

Console.WriteLine("字符串型变量 x（" x "） 被转换成了" "字节型变量 y（" y "） 。") '输出结果到屏幕

Dim i As String = "2012年11月18日" '定义变量i及其数据类型并赋初值

Dim j As Date '定义变量j及其数据类型

j = Convert.ToDateTime(i) '将字符串型数据转换成日期型值并赋值给变量j

Console.WriteLine("字符串型变量 i（" i "） 被转换成了" "日期型变量 j（" j "） 。") '输出结果到屏幕

Console.Read() '读取用户输入的信息

End Sub

End Module

VB.NET 向指定(网页或软件)的输入框内输入字符,如何实现?

假如Form1有个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