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