vb輸出代碼

❶ 誰知道VB輸出楊輝三角形的代碼怎麼寫/

先把form的autoredraw屬性改豎胡成true，代碼如下坦纖戚：
==========================
Option Explicit

Dim a(10, 10) As Long
Dim b(10) As String
Dim i As Byte
Dim j As Byte

Private Sub Form_Load()
a(0, 0) = 1
For i = 1 To 9
For j = 1 To 9
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
If a(i, j) <讓陵> 0 Then
b(j) = b(j - 1) & " " & a(i, j)
End If
Next
Print b(i)
Next
End Sub

❷ vb怎麼用循環輸出12345654321

類似12345654321在數學上成為迴文數臘滲，vb中輸凳亮出迴文數的方法如下：

核心棗局寬代碼如下：

Dim l As Integer

a = Int(InputBox("請輸入一個正整數"))

l = Len(a)

For i = 1 To l / 2

If Mid(a, i, 1) = Mid(a, l + 1 - i, 1) Then

Cls

Print

Print Tab(12); a & "是迴文數"

Else

Cls

Print

Print Tab(12); a & "不是迴文數"

End If

Next i

❸ vb輸出1-n之間的完全數的代碼

dim i,j,a as integer for i=2 to 1000 a=0 for j=1 to i-1 if i mod j=0 then a=a+j'判斷j是否能整除i，如果能，如清則a增加j next j if a=i then print i'判則段斷i是否是完全數，如果是，則輸出i next i 運行輸出：渣盯前 6 28 496

❹ VB輸出下面圖形的代碼誰幫我一下 1 121 12321 1234321 123454321

1
121
12321
1234321
123454321
可以分別表示為:
(10^0)^2
(10^0 + 10^1)^2
(10^0 + 10^1 + 10^2)^2
(10^0 + 10^1 + 10^2 + 10^3)^2
(10^0 + 10^1 + 10^2 + 10^3 + 10^4)^2
所以拿裂芹有:

Dim N As Long
Dim i As Integer
Dim j As Integer
For i = 1 To 5
For j = 0 To i - 1
N = 10 ^ j + N
Next j
Print Tab(6 - i); '源鍵 Print the space
Print N ^ 2
N = 0
Next i
輸消畢出結果:

1
121
12321
1234321
123454321

❺ vb控制台怎麼輸出，注意是控制台，不是print和msgbox

註：以下核心代碼來自：https://tieba..com/p/2561344540?red_tag=1334161657 。

廢話不多說，三步最簡實現VB6輸出到控制台顯示

第一步，定義API及全局變數等：

'添加模塊，取名 DOSConsole.bas ，寫入以下代碼

Option Explicit

'---------定義所需API

Public Declare Function FreeConsole Lib "kernel32" () As Long

Public Declare Function GetStdHandle Lib "kernel32" (ByVal nStdHandle As Long) As Long

Public Declare Function LstrLen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long

Public Declare Function WriteConsole Lib "kernel32" Alias "WriteConsoleA" (ByVal hConsoleOutput As Long, ByVal lpBuffer As Any, ByVal nNumberOfCharsToWrite As Long, lpNumberOfCharsWritten As Long, lpReserved As Any) As Long

'-------------常量定義

Public Const STD_OUTPUT_HANDLE = -11&

'-----------定義全局變數

Public hConsoleOut As Long ' The console's output handle

'---------定義函數

Public Sub Initialize() '---初始化獲取句柄

'獲得控制窗口的句柄

hConsoleOut = GetStdHandle(STD_OUTPUT_HANDLE)

End Sub

Public Sub Terminate() '-----銷毀句柄

FreeConsole ' Destroy the console

End Sub

Public Sub COut(szOut As String) '------文字輸出到控制台函數

WriteConsole hConsoleOut, szOut, LstrLen(szOut), vbNull, vbNull

End Sub

第二步，使用方法：

'在 sub main() 或 Sub Form_Load() 內先 執行初始化函數：Initialize

'在 sub main() 尾部 或 Sub Form_QueryUnload 中執行銷毀函數：Terminate

'在 sub main() 中部 或 Sub Command1_Click() 中執耐汪行輸出函數：Call COut("VB6 控制台" & vbCrLf)

'示例1，無窗體模式：

Public Sub Main()

Call Initialize

'----------此處程序顯示代碼開始-------------

Call COut("VB6 控制台" & vbCrLf)

'----------程序代碼到此結束-------------

Call Terminate

end

End Sub

'示例2，窗體模式：

Private Sub Form_Load()

Call Initialize

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

Call Terminate

End Sub

Private Sub Command1_Click()

Call COut("VB6 控制台"穗畝叢 & vbCrLf)

End Sub

'示例3，窗體混合模式：

'模塊1：

Public Sub Main()

Call Initialize

Call COut("VB6 控制猜櫻台" & vbCrLf)

Load Form1

Form1.Show

End Sub

'窗體模塊：

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

Call Terminate

End Sub

Private Sub Command1_Click()

Call COut("VB6 控制台" & vbCrLf)

End Sub

完成以上步驟後，執行是沒有效果的，需要進行下面的第三步，這才是關鍵部分。

第三步,修改編譯後的EXE：

以上代碼編譯後的exe文件還不能實現CMD控制台模式輸出，需要對exe文件進行修改才行，有兩種修改方法。

方法一，直接使用二進制編輯器或自己寫另一個代碼修改：

用二進制修改指定偏移量位置處的數字，注意以下所說文件起點偏移量為1，而大多數二進制編輯器起點計為0，使用時需要注意

P-代碼 方式編譯的exe其偏移量是 &H10D，編譯為 本機代碼 的偏移量是 &H115 , 將該位置的 02 改為 03 即可。

以 本機代碼 方式編譯的exe修改為例，還可用以下另一個代碼進行修改：

新建一個VB工程，運行以下代碼

Sub Main()

Open "{這里填寫編譯出的文件的路徑}" For Binary As #1

Seek #1, &H115

Put #1, , CLng(3)

Close #1

End Sub

方法二，用VBS代碼重新連接第二步編譯好的exe文件：

方法來自： http://vb.mvps.org/samples/Console/

新建VBS文件（LinkConsole.vbs），內容如下（保存關閉）：

' LinkConsole.vbs

' http://www.angelfire.com/mi4/bvo/vb/vbconio.htm

'

' This is a WSH script used to make it easier to edit

' a compiled VB6 EXE using LINK.EXE to create a console

' mode program.

'

' Drag the EXE's icon onto the icon for this file (or onto

' a shortcut to this file), or execute it from a command

' prompt as in:

'

' LinkConsole.vbs Project1.exe

'

Option Explicit

Dim strLINK, strEXE, WSHShell

' Be sure to set up strLINK to match your VB6 installation.

strLINK = """C:Program FilesMicrosoft Visual StudioVB98LINK.EXE"""

strEXE = """" & WScript.Arguments(0) & """"

Set WSHShell = CreateObject("WScript.Shell")

WSHShell.Run strLINK & " /EDIT /SUBSYSTEM:CONSOLE " & strEXE

Set WSHShell = Nothing

WScript.Echo "Complete!"

VBS使用方法：將第二步中編譯好的exe文件按滑鼠左鍵拖放到以上新建的 LinkConsole.vbs 文件圖標上，即會執行 LINK.EXE 重編譯exe為控制台模式，注意你自己的 VB6 的安裝位置，以上 VBS 文件中為使用默認路徑安裝（C:Program FilesMicrosoft Visual StudioVB98）的。

至此，直接運行你用以上方法處理完成的 exe 文件就會出現控制台窗口，並顯示設定內容：

後記：以上核心函數為 GetStdHandle 和 WriteConsole 這兩個。

❻ vb輸出1-50的合數代碼

PrivateFunctionIsPrime(ByValnAsInteger)AsBoolean
DimpbAsInteger
pb=n-1
IsPrime=True
冊察拿Fori=2州搭Topb
IfnModi=0Then
IsPrime=False
沒滑ExitFor
EndIf
Nexti
EndFunction

❼ vb代碼怎麼輸出在text裡面

VB可使用& 運算符將字元串串接的方式來實現，將VB代碼執行的結果輸出到文內本框顯示。

& 運算容符，用來強制兩個表達式作字元串連接。

OptionExplicit
DimstrSjAsString
DimiAsLong,jAsLong

PrivateSubCommand1_Click()
Fori=1To1000
IfiMod3=2OriMod5=3OriMod7=2Then
'Printi;
strSj=strSj&i&""
Ifj=10Then
j=0
'PrintvbCrLf
strSj=strSj&vbCrLf
EndIf
j=j+1
EndIf
Nexti
Text1=strSj
EndSub

❽ 如何輸出標准vb.net語法的源代碼

下面這段代碼，是我用來計算每個月存500元進銀行，連續30年，最後備蔽爛連本帶利能有多少錢。這裡面涉及復利計算。界面中並裂右邊的文本框用來輸出每一次計算的結果。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim nianxian As Integer '年限變數
Dim dingcun As Integer '定存變數
Dim fuli_big As Long '大復利
Dim fuli_small As Long '小復利
Dim i As Integer '循仿漏環變數
Dim DATAstring As String '數據字元串

nianxian = Val(年限_TextBox.Text)
dingcun = Val(定存_TextBox.Text)
DATAstring = ""

For i = 1 To nianxian
fuli_small = dingcun * (1 + 0.1875)
dingcun = fuli_small
fuli_big = fuli_big + fuli_small
DATAstring = DATAstring + "[" + Trim(Str(i)) + "]" + Str(fuli_big) + Chr(13) + Chr(10)
'DATAstring = DATAstring + "[" + Trim(Str(i)) + "]" + Str(fuli_small) + Chr(13) + Chr(10)
Next
'fuli_big = fuli_small
TextBox1.Text = DATAstring
結果_TextBox.Text = Str(fuli_big) + "元"
End Sub

❾ 求用vb輸出金字塔形楊輝三角的代碼~~~~~~~

分類: 電腦/網路 >> 程序設計 >> 其他編程語言
問題描述:

求幫忙啦

解析:

程序如下,在窗體的單擊滾搏事件下實現:

Private Sub Form_Click()

\'楊輝三角圖形

\'

\' 1

\' 1 1

\' 1 2 1

\梁拍' 1 3 3 1

\' 1 4 6 4 1

\'

\'下面的行值為上面行中相鄰數之和

Dim i As Integer \'外循環變數

Dim j As Integer \'內循環變數

Dim a(1 To 5, 1 To 5) As Integer \'數組聲明

For i = 1 To 5 \'左邊和右邊兩側賦值1

a(i, 1) = 1

a(i, i) = 1

Next

For i = 3 To 5

For j = 2 To i \'中間部分的元素賦值,從圖中可看出規律

a(i, j) = a(i - 1, j - 1) + a(i - 1, j)

Next

Next

For i = 1 To 5

Print Tab(19 - 2 * i); \'縮進

For j = 1 To i

Print a(i, j); \" \"; \'列印

Next

Print \'換行

Next

End Sub

程序在WinXP+VB6.0環境下運行成功! "\"表示是空格

有問大渣祥題來群:***********討論!

❿ vb中輸出反序代碼

Private Sub Command1_Click()
Dim i As Integer, n As Integer
Dim a() As Integer
n = InputBox("請輸差告入數的個數")
ReDim a(n)
For i = 1 To n
a(i) = InputBox("請輸入第" & i & "個純或數")
Print a(i)
Next i
Sub sort(a() As Integer, n As Integer)
For i = 1 To n / 2
x = a(i)
a(i) = a(n - i + 1)
a(n - i + 1) = x
Next i

For i = 1 To n
Print a(i)
Next

End Sub
你所說的反序是從大到小，還是把數組元素順序倒過來？上以上程序滿足後者
從大做慶伍到小這樣
Sub sort(a() As Integer, n As Integer)
Dim i As Integer, j As Integer, temp As Integer
For i = 1 To n - 1
k = i
For j = i + 1 To n
If a(j) > a(k) Then k = j
Next j
temp = a(k): a(k) = a(i): a(i) = temp

Next i
For i = 1 To n
Print a(i)
Next

End Sub