VB中怎样用print方法在picturebox中输出数据

Picture1Print "r=" & a, "周长=" & b 改为

Picture1Print "r=" & a & “, 周长=" & b

你是要输出百钱买百鸡吧，代码如下：

Private Sub Form_Click()

Dim w As Integer '钱数

Dim z As Integer '鸡的数目

Dim g As Integer, m As Integer, x As Integer '分别代表 公鸡 母鸡 小鸡

    Print "母鸡"; Tab; "公鸡"; Tab; "小鸡"

    For g = 1 To 100

        For m = 1 To 100

            For x = 1 To 100

                w = g  3 + m  2 + x / 3

                z = g + m + x

                If w = 100 And z = 100 Then

                    Print m; Tab; g; Tab; x

                End If

            Next x

        Next m

    Next g

    Print "完成!"

End Sub

VB里用InputBox

函数输入数值后，可通过直接赋值给TextBox控件的Text属性显示于TextBox控件、MsgBox函数也可作为输出显示，也可用Print方法打印到窗体或框控件输出显示。

InputBox

函数，在一对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的

String。

MsgBox

函数，在对话框中显示消息，等待用户单击按钮，并返回一个

Integer

告诉用户单击哪一个按钮。

Print

方法，在

Immediate

窗口、窗体或框中显示文本。

你可以分两步。

第一步，使用Split将TextBox1Text按行分开，各行存入一个数组。

第二步，使用Split将一行分开，各组数据存入一个数组。

如果要整体处理，那么代码是这样的：

Dim var() As String

var = Split(TextBox1Text, vbCrLf)

Dim i As Integer, j As Integer

For i = 0 To varLength - 1

Dim s() As String

s = Split(Replace(var(i), " ", "+"), "+")

Dim str(varLength - 1, sLength - 1) As String

For j = 0 To sLength - 1

str(i, j) = s(j)

Next

Next

二维数组str饱含了你要的所有数据，你可以使用了。

如果你要朱行进行处理，那就更简单了。“Dim str(varLength - 1, sLength - 1) As String”和“str(i, j) = s(j)

”都不需要了，你可以在

For j = 0 To sLength - 1

next

中做你想做的事情了。

希望对你有所帮助。祝你顺利！

以上就是关于VB中怎样用print方法在picturebox中输出数据全部的内容，包括:VB中怎样用print方法在picturebox中输出数据、vb关于将数据在窗体上直接输出的问题、VB里用Inputbox输入数值后怎么输出等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！