Vb程序设计，现有两个文本框控件和一个按钮控件？

Vb程序，现有两个文本框控件和一个按钮控件。

题目要求，第一个文本框控件输入两个字符串黑和白。按钮控件使用循环语句执行排列组合运算。第二个文本框控件输出所有排列组合结果:黑黑，黑白，白黑，白白。求完整代码,谢谢

2020-11-23    编程 修改标签 删除问题 分享

修改问题 提高悬赏5

一个好的提问：

· 问题是什么，你想得到什么帮助，以“？”结束

· 你遇到的具体情况，以及问题是何时出现的？

· 例：2019年去甘肃旅游有什么最值得去的景区吗？

查看详情

使用百度知道App，第一时间查看回答，下载APP

1个回答

LP网上之家

2020-11-23 · TA获得超过2647个赞

关注

第一个文本框控件名为Text1，第二个文本框控件名为Text2，在按钮控件的单击事件中输入如下代码

’

Dim j1, j2 As Integer

For j1 = 1 To 2

For j2 = 1 To 2

Text2.Text = Text2.Text & Mid(Text1.Text, j1, 1) & Mid(Text1.Text, j2, 1) & “;”

Next

Next
请采纳，谢谢

采纳答案 追问 评论 举报 收起

以上回答是否满意？

发给更多人
相似问题

问：

我用vb做了一个界面，界面上有两个文本框，和一个查询按钮，在…

答：

If xlApp.Cells(i, 2) = Text1.Text Then '这里已经查找到了Text1.text的值了 r = ActiveSheet.Range(“C2”).Find(Text1.Text).Row '你可以调试一下这里是不是返回r的值不会变? 你查找的范围限定在C2单元格内了. xlApp.Cells(r, 8).Value = Text2.Text xlApp.DisplayAlerts = False xlApp.SaveWorkspace xlBook.Save 你可以改成以下: If xlApp.Cells(i, 2) = Text1.Text ThenxlApp.Cells(i, 8).Value = Text2.TextxlApp.DisplayAlerts = FalsexlApp.SaveWorkspacexlBook.Save

问：

设计一个包含有2个标签控件、2个文本框控件和1个按钮控件的w…

答：

using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; namespace WindowsApplication3 { public partial class Form1 : Form { public Form1() { InitializeComponent(); }
private void button1_Click(object sender, EventArgs e) { string s = label1.Text; s = label2.Text; label2.Text = label1.Text; label1.Text = s; string a = textBox1.Text; a = textBox2.Text; textBox2.Text = textBox1.Text; textBox1.Text = a; } } }

问：

vb 两个文本框 一个按钮，实现以下功能

答：

Private Sub Text1_Change()

If Text1.Text = “” Or Text2.Text = “” Then Command1.Visible = False Else: Command1.Visible = True End If
End Sub
Private Sub Text2_Change()

If Text1.Text = “” Or Text2.Text = “” Then Command1.Visible = False Else: Command1.Visible = True End If

End Sub

问：

用VB制作访问QQ空间程序！ 在窗体上添加一个web控件和一…

答：

除了转到空间其他的我都会

问：

vb问题两个标签，两个文本框，一个命令按钮，

答：

将下列句加入你的click()中 msgbox Text1.text & Text2.text '其中,Text1表你的姓名控件 'Text2表示你的年龄控件.

更多类似问题 >

未采纳问题
程序设计输入一个字符串输出字符串头和尾部
Dim ins As String

ins = InputBox(“请输入一个字符串”)

Dim str As String

str = “”

Dim l As Integer

l = Len(ins)

str = str & Mid(ins, 1, 1) & " " & Mid(ins, l, 1)

MsgBox(str)
    Dim s As String
    s = InputBox("请输入一个字符串")
    Dim t As String
    t = ""
    Dim m As Integer
    m = Len(s)
    t = t & Mid(s, 1, 1) & " " & Mid(s, m, 1)
    MsgBox(t)

本回答被提问者采纳

1     评论 分享 举报
输入一个字符串 并将它逆序输出

vb输入一个字符串 并将它逆序输出

 我来答 分享 举报

2个回答 #热议# 喜欢一个人是什么感觉？

杨必宇frippy  高能答主

2019-12-25 · 答题姿势总跟别人不同

关注

Option Explicit
Private Sub Command1_Click()
Dim InS As String, S As String, T As String
Dim I As Integer, J As Integer, L As String
Dim C() As String, X As String  InS = InputBox(“请输入字符串”, “”, “1Ae4ui95487KuywY1Z2Faz”)
f InS = “” Then Exit Sub
J = Len(InS)
For I = 1 To J
S = Mid(InS, I, 1)
T = T & S & " "
Next I
T = Trim(T)
C = Split(T, " ")
L = UBound©
'按逆序排列
Next I
扩展资料：
1、连接运算 concat(s1,s2,s3…sn) 相当于s1+s2+s3+…+sn.
例：concat(‘11’,'aa’)='11aa’;
2、求子串。 Copy(s,I,I) 从字符串s中截取第e69da5e887aa62616964757a686964616f31333431376639I个字符开始后的长度为l的子串。
例：opy(‘abdag’,2,3)=’bda’。
3、删除子串。过程 Delete(s,I,l) 从字符串s中删除第I个字符开始后的长度为l的子串。
例：s:=’abcde’;delete(s,2,3);结果s:=’ae’。
4、插入子串。 过程Insert(s1,s2,I) 把s1插入到s2的第I个位置。
例：s:=abc;insert(‘12’,s,2);结果s:=’a12bc’。
1     评论 分享 举报 收起

lfchenyong

推荐于2017-12-16 · TA获得超过2230个赞

关注

　　新建一工程，在窗体上拖入一command控件，进入代码区，删除所有代码后，粘贴以下代码即可：
‍
Option Explicit

Private Sub Command1_Click()

Dim InS As String, S As String, T As String

Dim I As Integer, J As Integer, L As String

Dim C() As String, X As String  InS = InputBox(“请输入字符串”, “”, “1Ae4ui95487KuywY1Z2Faz”)

If InS = “” Then Exit Sub

J = Len(InS)

For I = 1 To J

S = Mid(InS, I, 1)

T = T & S & " "

Next I

T = Trim(T)

C = Split(T, " ")

L = UBound©

'按逆序排列

For I = 0 To L - 1

For J = I + 1 To L

If C(I) < C(J) Then X = C(I): C(I) = C(J): C(J) = X

Next J

Next I

'输出到窗体上

For I = 0 To L

Print C(I);

Next I

运行效果图：
本回答被网友采纳

7     评论
vb语言编程，输入一个字符串，倒序输出。

 我来答 分享 举报

2个回答 #热议# 茶叶究竟要不要洗洗再喝？

xjnzhidao

2012-05-03 · TA获得超过1.1万个赞

已关注
Private Sub Command1_Click()

Dim a As String, b As String, i As Integer

a = InputBox(“输入一个字符串”)

For i = 1 To Len(a)

b = Mid(a, i, 1) & b

Next

MsgBox b

End Sub
21     评论 分享 举报

KingsNet

推荐于2018-02-28 · TA获得超过1518个赞

关注
Private Sub Text1_Change()

Text2 = StrReverse(Text1)

End Sub
本回答被提问者和网友采纳

20     评论(1) 分享 举报

广告您可能关注的内容

学习c语言编程每天免费网上学习学习c语言编程 www.huke88.com
关于VB编程实现：在文本框中输入一个字符时，立即在窗体上输出当前文本框中的内容。实验步骤及指导如下

1、新建工程如图

2、编写如下过程

Private Sub Text1_Change()

Print Text1

End Sub

--------------------------------------------------------------------Private Sub Text1_LostFocus()

Print “***”; Text1; “***”

End Sub
Private Sub Command1_Click()

ClsText1.Text = ""Text1.SetFocus

End Sub
Private Sub Command2_Click()

EndEnd Sub
谁能具体告诉我每一步分别代表什么意思？
Private Sub Text1_Change() ’这个表示是Text1_Change()事件，本行表示事件过程的开始

Print Text1 '这个表示在窗体上显示Text1 的文本内容

End Sub '本行表示事件过程的结束
Private Sub Text1_LostFocus() ’这个表示是Text1_LostFocus()事件，本行表示事件过程的开始

Print “***”; Text1; "**" '这个表示在窗体上显示Text1 的文本内容,内容左右各加3个“”

End Sub '本行表示事件过程的结束
Private Sub Command1_Click() ’这个表示是Command1的单击事件，本行表示事件过程的开始

Cls '清除窗体上的显示内容

Text1.Text = “” '清除文本框Text1里的内容

Text1.SetFocus '使得文本框Text1获得焦点，即光标处于该控件里

End Sub '本行表示事件过程的结束
Private Sub Command2_Click() ’这个表示是Command2的单击事件，本行表示事件过程的开始

End '结束本程序的运行

End Sub '本行表示事件过程的结束

事件是面向对象程序设计语言的一个重要而基本的概念，是Windows编程的最基本的途径与方法。可以这么说，编写事件过程代码是编写最简单最基本的基于 Windows的应用程序的基本。

在VB6里，提供的控件，具有各种各样的事件；

8     评论 分享 举报 收起

怖鬽魂魄

2013-02-13

关注

Text1_Change 事件

Print Text1 '这个就是在窗体上打印Text1.Text数据 ,Text属性是这个控件默认的所以可以不写

当Text1的内版容被改变时权,就触发这个事件

Text1_LostFocus 事件

Print “***” & Text1 & “***” '想必应该不是 ;号吧…

当Text1失去焦点时触发这个事件,比如你按 清除 按钮时,按钮得到了焦点,Text1则失去焦点

在计算机中 焦点是唯一的

Command1_Click 事件

Cls '清除

Text1.Text = “” '赋值Text1.Text为空

Text1.SetFocus 'Text1得到焦点

单击这个按钮时触发

最后一个就不用说了…

而且不应该这样用End…而是 UnLoad Me

1     评论 分享 举报 收起

其他类似问题

2012-04-20VB编程问题:程序运行时，在文本框text1中输入1个字符串…14

2015-05-19VB编程，设计一个程序，在文本框里输入一个三位数，单击窗体，… 32

2015-07-14VB程序设计: 设计程序，窗体上包含一个文本框和一个标签，当…

2018-04-15当在文本框中输入“ABCD”4个字符时，窗体上显示的是？

2017-04-09如何在vb中设计一个窗体，当用户在文本框里输入的时候，同时窗…2

2011-06-17在VB中如何使窗体二中的标签显示窗体一中文本框中输入的内容（…4

2012-05-10vb编程题1.在窗体上创建一个文本框，当单击文本框时，文本框…5

2014-10-12vb中怎么编写 单击命令按钮，则窗体显示文本框内的内容？ 46

更多相关vb文本框怎样输入字符串输出排列组合?的问题 >

为你推荐：
特别推荐
百度首页 Qwo282615109消息私信 商城

网页资讯视频图片

知道

文库贴吧采购地图更多»
vb教程,输入字符串输出所有排列组合?

搜索答案我要提问

首页

在问

日报

用户

合伙人

商城  手机答题  我的

如何用VB使电脑穷举出排列组合的所有情况

 我来答 分享 举报

3个回答 #热议# 工作中遇到瓶颈怎么办？

fcxxzux

2011-07-22 · TA获得超过3879个赞

关注

假设说形式是ax+by+cz=d，其中a、b、c、d已读取且均为正整数（从文本框中读取数值不会这个真的很没面子的）。为了有穷，又好写一些，再假设x、y、z均为正整数

下面的i、j、k依次表示x、y、z

dim a as long,b as long,c as long,d as long

dim i as long,j as long,k as long

for i=1 to (d\a)

for j=1 to ((d-ai)\b)

k=d-ai-b*j

print i,j,k

next j

next i

其实排列组合这样生成很不对劲的……不过既然是三元一次方程组，这样写就可以了。本质上就是循环的嵌套。

但是比如说生成1~20这20个数中取4个的所有组合的话，还是写一个递归的过程好。

public mem(0 to 4)as integer,check(1 to 20)as boolean

private sub f(byval dep as integer)

dim i as integer

if dep>=5 then

print mem(1),mem(2),mem(3),mem(4)

exit sub ‘这里检测生成的数量（或深入层数），如果达到要求那就输出并退回一层了

end if

for i=(mem(dep-1)+1) to 20-4+dep 'for循环起止处理一下，去掉不必要的循环，减少用时，也可以用 for i=1 to 20来替代，但后面要写不少额外检查条件，这样写其实就可以不用里面的检查了。

if check(i)=true then '其实本质很像深度优先搜索，有兴趣去网上查一下

check(i)=false

mem(dep)=i

f(dep+1)

mem(dep)=0

check(i)=true

end if

next i

end sub

private sub Command1_click()'界面上千万别忘了放一个按钮

dim j as integer

for j=1 to 20

check(j)=true

f(1)

end sub

（生成120这20个数中取4个的所有排列这个很无语的简单的……只需要4重循环+验重就可以了，当然，如果生成1k这k个数中取n个的所有排列，且n和k不大的话，用递归现实一些。）

但是再大就有一些专门的方法来生成了。

本回答由提问者推荐
VB中如何使用文本框控件输入和输出数据？

 我来答 分享 举报

2个回答 #热议# 工作中遇到瓶颈怎么办？

newone2009

推荐于2016-09-28 · 超过28用户采纳过TA的回答

已关注

text1.text= “输入数据”

‘定义变量 str

dim str as string

str= text1.text ’ 输出字符串到变量 str

本回答被提问者和网友采纳
vb 如何把结果显示在文本框里

Function sum(N As Integer, m As Integer, p As Integer) As Long

sum() = (s1 + s2) / s3

End Function

Private Sub Command1_Click()

Dim sum() As Integer

N = Text1.Text

m = Text2.Text

p = Text3.Text

s1 = 0

For i = 1 To N

s1 = s1 + i

Next i

s2 = 0

For j = 1 To m

s2 = s2 + j

Next j

s3 = 0

For k = 1 To p

s3 = s3 + k

Next k

Text4.Text = sum(N, m, p)

End Sub
最后提示说下标越界，错在哪啊？怎么改？

 我来答 分享 举报

3个回答 #热议# 30+的人生活是不是总是忙忙碌碌？

网海1书生  科技发烧友

2014-05-14 · 擅长软件设计、WEB应用开发、小程序

已关注

Function sum(N As Integer, m As Integer, p As Integer) As Single

sum = (N + m) / p

End Function
Private Sub Command1_Click()

Dim N As Integer, m As Integer, p As Integer

Dim i As Integer, j As Integer, k As Integer

Dim s1 As Integer, s2 As Integer, s3 As Integer

N = Val(Text1.Text)

m = Val(Text2.Text)

p = Val(Text3.Text)

For i = 1 To N

s1 = s1 + i

Next i

For j = 1 To m

s2 = s2 + j

Next j

For k = 1 To p

s3 = s3 + k

Next k

Text4.Text = sum(s1, s2, s3)

End Sub

3     评论(1) 分享 举报

xian_100103

2014-05-14 · TA获得超过818个赞

关注

你的数组和函数同名，函数也有问题。

追问

能说下如何改吗？

抢首赞     评论 分享 举报

sunruisunrui

2014-05-14 · TA获得超过1473个赞

关注

楼主，你不妨描述下你需要做什么？

输入什么数据，进行怎样的计算，否则神仙也帮不了你。

抢首赞     评论 分享 举报

收起 更多回答（1）

其他类似问题

2014-06-25如何在vb文本框中显示变量的值5

2017-01-05vb中查询结果显示在文本框中 1

2010-07-01vb 怎样打开文件并把文件内容显示在文本框 16

2012-03-29vb中怎么在文本框内直接显示文字5

2018-01-09vb怎么把结果输出到文本框里？

2011-07-13VB如何将计算后数值显示在文本框中2

2014-10-30vb设计怎样在点击命令按钮后在文本框中输出结果

更多相关vb计算结果输出到文本框的问题 >

为你推荐：
特别推荐
百度首页 Qwo282615109消息私信 商城

网页资讯视频图片

知道

文库贴吧采购地图更多»
vb如何在文本框里输入字符串

搜索答案我要提问

首页

在问

日报

用户

合伙人

商城  手机答题  我的

怎么在文本框中光标后面输入字符串（vb）

我要在光标后面添字符串，怎么添。
我用text1.text=字符 这个格式无法实现在光标后面添字符串结果
注意不是所有字符串后面。

 我来答 分享 举报

提示该问答中所提及的号码未经验证，请注意甄别。

3个回答 #热议# 工作中遇到瓶颈怎么办？

匿名用户

2013-07-17

这个嘛，VB 的2113TEXTBOX有些功能你没有用5261上

.SelStart 开始选中的4102位置

.SelLength 选中长度

.SelText 选中文本

这三个1653都是可读写的版

你试试

方法多种

1.得到权当前位置,

选中左边到变量 ,变量 & 新的字符串 ,变量 &　右边的字符，输出到TEXTBOX

2.也是得到位置

选中某一个字符,可以是前也可以是后

然后把这个字符替换成 要加入的字符串,如果是选了左边的就是,选中字符 & 现要放入的字符,同理右边是现要放入的字符 & 选中的字符. 替换用

Replace

dim v as string

v=replace(now,“2008”,“2009”

在这里,替换就是选中的文本 SelText

简单例子

从第2位选中3个字符

text1.selstart=2

text1.sellength=3

msgbox text1.seltext

'替换

text1.seltext=now

'now是当前日期与时间的意思

临时写的,不知道行不行,

具体你试试,不懂的可以加我为好友,

号码 2,5,4,1,8,6,9,1,7

本回答由网友推荐

1     评论 分享 举报 收起

匿名用户

2013-07-17

如果你是直接在copytext中输入，默2113认就是光标后5261面，如果通过其他控件添4102加，如下代码可以实1653现：

Dim s As String

s = Mid(Text1.Text, 1, Text1.SelStart)

s = s & “字符”

Text1.Text = s & Mid(Text1.Text, Text1.SelStart + 1, Len(Text1.Text) - Text1.SelStart)

抢首赞     评论 分享 举报 收起

匿名用户

2013-07-17

明白楼2113主的意思，当输入第一个5261字母S的时候4102，就应该出现1653

ShowThisText

SHowNextText

ShowFileText

StopSth

StopThis

等等吧。

按楼上的意思，回应该可以实答现当你每次输入一个字母，就查找一个特定的数组里的字符串，有匹配的就都输出。

有一点，不知道java gui的表示中如何实现动态的显示下拉列表。好像只能固定在界面的某个位置。

另外，效率也是个问题，在eclipse里做这个动作时，就会导致短时间的停顿，才能显示下拉列表框。

另外，需要监听很多事件，键盘输入，鼠标的移动，下拉列表框中元素的选取。

还有，另外的监听线程的时间设置也是问题，不可能while（true）这样，是选100毫秒，50毫秒一中断等等。

真的很复杂。

抢首赞     评论 分享 举报 收起

收起 更多回答（1）

其他类似问题

2018-08-13怎么在文本框中光标后面输入字符串（vb）8

2007-09-09在VB中怎样可在在文本框中的光标后插入文字?7

2011-08-27VB中，如何在文本框中，从光标所在位置起，向前(或向后）搜索…

2011-06-05VB：在文本框中输入信息后，按回车键，怎样使光标跳到下一个文…9

2012-08-14如何在vb中，打开时光标放入指定文本框34

2007-08-05vb如何将光标定位在所有文本的后面9

2006-11-19vb怎样在程序启动后文本框就出现输入字符的光标？2

2013-10-15用VB编写程序向其他程序光标闪动处中输入文字

更多相关vb如何在文本框里输入字符串的问题 >

为你推荐：
特别推荐
为什么说有鹅的地方蛇跑光？

沙漠全部消失对人类有什么影响？

为何居庸关是天下第一关？

海面上升，中国哪些城市会消失？

等你来答

换一换



如果不考虑工资，你最想从事哪种职业？

等1788777人想问 我来答



在你看来找工作和找对象哪个重要？

等752359人想问 我来答



你觉得同事能成为朋友吗？

等740043人想问 我来答



如何看待当下网络某些男性仇女以及某些女性仇男的现象？

等685609人想问 我来答



如何看待中国式的巨婴？

等315008人想问 我来答



对于应届生来说，五险一金真的很重要吗？

等658998人想问 我来答

帮助更多人

领取奖励

我的财富值
–
去登录

我的现金
–
去登录

做任务开宝箱累计完成0个任务

10任务
50任务
100任务
200任务
任务列表加载中…

新手帮助

如何答题获取采纳使用财富值

玩法介绍

知道商城知道团队合伙人认证高质量问答

投诉建议

意见反馈账号申诉非法信息举报

京ICP证030173号-1   京网文【2013】0934-983号     ©2021Baidu  使用百度前必读  |  知道协议
百度首页 Qwo282615109消息私信 商城

网页资讯视频图片

知道

文库贴吧采购地图更多»
vb如何在文本框里输入字符串

搜索答案我要提问

首页

在问

日报

用户

合伙人

商城  手机答题  我的

在VB中，如何使文本框能够使输入多行文字？

注意，是用Visual Basic编程。用文本框控件无法输入多行文字，即不能换行，不知怎么处理。我将MultiLine属性设置为True之后也无法输入多行文字，哪位高手能告诉我这是怎么回事？我该怎么处理？

 我来答 分享 举报

8个回答 #热议# 茶叶究竟要不要洗洗再喝？

yaxboc

2020-02-25 · TA获得超过2017个赞

关注

仅仅设置2113MultiLine属性是没用的。还要5261在输出的4102时候用控制符1653设置换行

比如：标签是内Label1，用以下的语句：

Label1.Caption = “ABC” & ChrKaTeX parse error: Expected 'EOF', got '&' at position 6: (10) &̲ "中国人容！" & Chr(10) & “OK”

这里，Chr$(10) 就是换行了！也可以用Chr$(13) ，这个是回车。

3     评论 分享 举报

zdingyun

推荐于2017-09-21 · 知道合伙人软件行家

关注

在baiVB中，设置文本框的duMultiLine 属性为True，就能使使文本框能够输zhi入多行dao文字。
MultiLine 属性回
返回或设置一个答值，该值指示 TextBox 控件是否能够接受和显示多行文本。在运行时是只读的。
18     评论 分享 举报 收起
匿名用户

广告2021-01-17

程序编写软件，行业总监授课+项目实训，和30000+名企签订就业合作，火星学员就业无忧。
study.hxsd.com
笑脸蓝雨

2019-09-09 · TA获得超过9.3万个赞

关注

1、打开bai软件，在工具箱中任du意选择一种控件zhi，编写代码之dao前必须有空间响应。内
2、点击好之后，容如图所示，直接用鼠标在页面上进行绘制。
3、最后，双击进入代码窗口，这时候可以开始编写代码，多行的文字只需要回车换行即可编辑。
本回答被网友采纳

抢首赞     评论 分享 举报 收起

匿名用户

2013-06-03

问题有点奇怪.请问,每一个文本框都是这样的吗?你新建一个工程,在里面添加一个TEXTBOX,并设定MULTILINE为TRUE试试.

抢首赞     评论 分享 举报

匿名用户

2013-06-03

设置 文本框的 cols属性 和 rows属性 cols 是设置 文本框显示宽度 rows 是设置 文本框显示行数

3     评论 分享 举报

12下一页>

收起 更多回答（6）

广告您可能关注的内容

程序编写软件?零基础可以学习吗? study.hxsd.com
查看更多

软件 开发选择猪八戒网!

一站式软件 开发，专业软件定制开发团队，软件定制开发快速高效。

tf.zbj.com 广告

用Excel做编程序软件 www.qinzhe.com
查看更多

其他类似问题

2016-01-04VB如何让一个文本框可以输入多行文本

2010-01-11关于vb 怎样使文本框内文本多行显示20

2014-01-15VB６.０中怎么使文本框里的文字多行显示？6

2019-06-29VB6.0中怎么使文本框里的文字多行显示？4

2007-11-04VB中怎样给text中输入多行文字？3

2011-03-09VB中如何设置保存一个文本框中的多行文字？

2016-04-28VB表达式写出，设置文本框text1可以多行显示8

2011-07-18在vb中怎么改文本框的多行显示的属性 23

更多类似问题 >

为你推荐：
特别推荐
为什么说有鹅的地方蛇跑光？

沙漠全部消失对人类有什么影响？

为何居庸关是天下第一关？

海面上升，中国哪些城市会消失？

相关推荐

Foxtable上市，人人都能掌握的vb编程工具!

通用数据库软件不合适，定做软件太昂贵，自己用开发又太难，何不试试FoxTable 2018

www.foxtable.com

iVX - 全球首款无代码可视化编程软件，中国造!

图形化界面开发，无代码，更高效!

www.ivx.cn

vb.net编程工具FoxTable 2019免费下载!

通用软件不合适，定做软件太昂贵，自己用vb.net开发太难，何不试试FoxTable?

www.foxtable.com

广告

等你来答

换一换



如果不考虑工资，你最想从事哪种职业？

等1788743人想问 我来答



在你看来找工作和找对象哪个重要？

等752476人想问 我来答



你觉得同事能成为朋友吗？

等739854人想问 我来答



如何看待当下网络某些男性仇女以及某些女性仇男的现象？

等685654人想问 我来答



如何看待中国式的巨婴？

等314946人想问 我来答



对于应届生来说，五险一金真的很重要吗？

等658976人想问 我来答

帮助更多人

领取奖励

我的财富值
–
去登录

我的现金
–
去登录

做任务开宝箱累计完成0个任务

10任务
50任务
100任务
200任务
任务列表加载中…

新手帮助

如何答题获取采纳使用财富值

玩法介绍

知道商城知道团队合伙人认证高质量问答

投诉建议

意见反馈账号申诉非法信息举报

京ICP证030173号-1   京网文【2013】0934-983号     ©2021Baidu  使用百度前必读  |  知道协议
百度首页 Qwo282615109消息私信 商城

网页资讯视频图片

知道

文库贴吧采购地图更多»
vb如何在文本框里输入字符串

搜索答案我要提问

首页

在问

日报

用户

合伙人

商城  手机答题  我的

vb 中,文本框只能输入8个汉字,求代码

vb 中,文本框只能输入8个汉字,求代码

 我来答 分享 举报

3个回答 #热议# 喜欢一个人是什么感觉？

LodossC

推荐于2017-09-21 · TA获得超过1475个赞

关注

在绘制控件时，控件属性里的MaxLength设置成8。

本回答被网友采纳

10     评论 分享 举报

听不清啊  高能答主

2016-05-20 · 把复杂的事情简单说给你听

关注

Private Sub Form_Load()

Text1.MaxLength = 8

End Sub

1     评论 分享 举报

SIANGKEE

2016-05-20 · TA获得超过1527个赞

关注

1

Text1.MaxLength=8

抢首赞     评论 分享 举报

收起 更多回答（1）

其他类似问题

2016-03-30VB.:在文本框只能输入8个字母，超过的内容会在另一个文本框…

2018-04-19VB中的文本框为什么只能输入一个汉字？

2020-05-30vb中怎么用if语句设置文本框最多只能输入18个字符的代码是…

2011-04-20在vb中怎么样用代码实现：使文本框中只能输入汉字不能输入数字… 28

2013-04-30在VB里,怎么使文本框只能输入数字而不能输入汉字和字母,写出…1

2015-05-20vb中怎么使用代码实现，输入框中输入汉字? 求大神赐教

2010-01-08VB中让一个文本框只能输入一个数字该怎么设置4

更多相关vb如何在文本框里输入字符串的问题 >

为你推荐：
特别推荐
为什么说有鹅的地方蛇跑光？

沙漠全部消失对人类有什么影响？

为何居庸关是天下第一关？

海面上升，中国哪些城市会消失？

等你来答

换一换



如果不考虑工资，你最想从事哪种职业？

等1788776人想问 我来答



在你看来找工作和找对象哪个重要？

等752547人想问 我来答



你觉得同事能成为朋友吗？

等739857人想问 我来答



如何看待当下网络某些男性仇女以及某些女性仇男的现象？

等685561人想问 我来答



如何看待中国式的巨婴？

等315119人想问 我来答



对于应届生来说，五险一金真的很重要吗？

等659167人想问 我来答

帮助更多人

领取奖励

我的财富值
–
去登录

我的现金
–
去登录

做任务开宝箱累计完成0个任务

10任务
50任务
100任务
200任务
任务列表加载中…

新手帮助

如何答题获取采纳使用财富值

玩法介绍

知道商城知道团队合伙人认证高质量问答

投诉建议

意见反馈账号申诉非法信息举报

京ICP证030173号-1   京网文【2013】0934-983号     ©2021Baidu  使用百度前必读  |  知道协议
百度首页 Qwo282615109消息私信 商城

网页资讯视频图片

知道

文库贴吧采购地图更多»

VB中如何在文本框内输入文字的同时，在标签上显示文本框中的文字  我来答新人答题领红包

首页

在问

日报

用户

合伙人

商城  手机答题  我的

VB中如何在文本框内输入文字的同时，在标签上显示文本框中的文字

若文本框为密码框的形式，在文本框中输入完成后，单击按钮一，则标签显示文本框中输入的以密码形式显示的文字，应该怎么做？谢啦！

 我来答 分享 举报

4个回答 #热议# 工作中遇到瓶颈怎么办？

南瓜苹果i  高粉答主

2020-02-10 · 关注我不会让你失望

关注

代码如2113下：
1、方法5261一：
text1.passwordchar = “*”
sub command1_click()
label1.caption =text1.text
end sub
2、方法二：
sub command1_click()
label1.caption = string("*",len(text1.text))
end sub
扩展资料
VB书写4102代码的1653格式：
1、VB代码中不区回分字母的大小写。
2、同一答行可以书写多条语句，语句间用冒号“：”分隔。
3、一条语句可以写在同一行，也可以写在多行。续行符号是一个空格加下划线“_”。
4、注释语句以Rem开头，也可以使用单引号“‘”。后者注释内容可直接出现在相关语句的后面。
6、VB6中新增了“块注释/取消块注释”：在代码模式下，右击工具栏，在弹出菜单里把“编辑”项选中„„
7、变量和常量的命名规则：有数字，字母，下划线组成；字母作首字符；不超过255个字符；不能以VB关键字和系统常量做名字
3     评论 分享 举报 收起

hawking_xu

2010-03-28 · TA获得超过198个赞

关注

哎，单击按钮一的时候把文本框中的值赋给文本框

抢首赞     评论 分享 举报
匿名用户

广告2021-01-17

程序编写软件，行业总监授课+项目实训，和30000+名企签订就业合作，火星学员就业无忧。
study.hxsd.com
v1薄冰

推荐于2017-09-23 · 超过22用户采纳过TA的回答

关注

text1.passwordchar = “"

sub command1_click()

label1.caption =text1.text

end sub

这是让标签显示bai你输入du的密码明文。zhi是这意思dao么，不是还可以回

sub command1_click()

label1.caption = string("”,len(text1.text))

end sub

文本框里有几个号，答他也显示几个号。

本回答被提问者采纳

25     评论 分享 举报 收起

du瓶邪

推荐于2017-10-01 · TA获得超过2.3万个赞

关注

Private Sub Text1_Change()

Combo1.Clear

Combo1.AddItem Text1.Text

End Sub

5     评论 分享 举报

收起 更多回答（2）

广告您可能关注的内容

程序编写软件?零基础可以学习吗? study.hxsd.com
查看更多

软件 开发选择猪八戒网!

一站式软件 开发，专业软件定制开发团队，软件定制开发快速高效。

tf.zbj.com 广告

用Excel做编程序软件 www.qinzhe.com
查看更多

其他类似问题

2017-06-03VB题。在文本框中输入内容，然后单击命令按钮，在文本框中输入…7

2014-03-02vb里怎么把输入文本框里的汉字显示在标签里，要写什么代码啊，2

2012-03-29vb中怎么在文本框内直接显示文字11

2011-06-17在VB中如何使窗体二中的标签显示窗体一中文本框中输入的内容（…4

2010-12-06VB在文本框中每输入一个字符，都会立即在标签中显示文本框中字…1

2011-06-17在VB中如何使窗体三中的标签显示窗体一和窗体二中文本框中输入…

2014-10-30vb中在文本框中输入文字，然后单击“转移”按钮，则文本框消失…2

更多相关vb如何在文本框里输入字符串的问题 >

为你推荐：
特别推荐
为什么说有鹅的地方蛇跑光？

沙漠全部消失对人类有什么影响？

为何居庸关是天下第一关？

海面上升，中国哪些城市会消失？

相关推荐

字魂500万文字字体_全站可商用_每周更新_常用字库大全

字魂文字字体，免费商用字体，每周更新，在线授权，支持TTF文字字体，打开即用。

www.izihun.com

Foxtable上市，人人都能掌握的编写程序软件!

通用数据库软件不合适，定做软件太昂贵，自己用开发又太难，何不试试FoxTable 2018

www.foxtable.com

iVX - 全球首款无代码可视化编程软件，中国造!

图形化界面开发，无代码，更高效!

www.ivx.cn

广告

等你来答

换一换



如果不考虑工资，你最想从事哪种职业？

等1788730人想问 我来答



在你看来找工作和找对象哪个重要？

等752580人想问 我来答



你觉得同事能成为朋友吗？

等739770人想问 我来答



如何看待当下网络某些男性仇女以及某些女性仇男的现象？

等685492人想问 我来答



如何看待中国式的巨婴？

等315204人想问 我来答



对于应届生来说，五险一金真的很重要吗？

等659092人想问 我来答

帮助更多人

领取奖励

我的财富值
–
去登录

我的现金
–
去登录

做任务开宝箱累计完成0个任务

10任务
50任务
100任务
200任务
任务列表加载中…

新手帮助

如何答题获取采纳使用财富值

玩法介绍

知道商城知道团队合伙人认证高质量问答

投诉建议

意见反馈账号申诉非法信息举报

京ICP证030173号-1   京网文【2013】0934-983号     ©2021Baidu  使用百度前必读  |  知道协议
返回顶部

百度首页 Qwo282615109消息私信 商城

网页资讯视频图片

知道

文库贴吧采购地图更多»
vb如何在文本框里输入字符串

搜索答案我要提问

首页

在问

日报

用户

合伙人

商城  手机答题  我的

VB题。在文本框中输入内容，然后单击命令按钮，在文本框中输入的内容同时显示在标签和命令按钮上。

 我来答 分享 举报

2个回答 #热议# 喜欢一个人是什么感觉？

雪V歌

2017-05-19 · 知道合伙人数码行家

关注

先假设条2113件为：窗体一名称5261为Form1，其中文4102本框为text1；窗体1653二名称为Form2，其版中文本框为text1.

窗体一上权面的代码为：

private Sub Text1_Change() ‘注意这里是change

Form3.Label1.Caption = Form3.Label1.Caption & Text1.Text

end Sub

窗体二上面的代码为：

private Sub Text1_Change()

Form3.Label1.Caption = Form3.Label1.Caption & Text1.Text

end Sub

这样在窗体一或者二的文本框中输入内容时，窗体三上面的label标签的内容也会随之变化啦。

6     评论 分享 举报

匿名用户

2017-05-19

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Linq;

using System.Text;

using System.Windows.Forms;

namespace WindowsFormsApplication5

{

public partial class Form1 : Form

{

string s;

public Form1()

{

InitializeComponent();

}

private void radioButton1_Click(object sender, EventArgs e)

{

s = textBox1.Text;

}

private void radioButton2_Click(object sender, EventArgs e)

{

s = textBox2.Text;

}

private void button1_Click(object sender, EventArgs e)

{

label1.Text = s;

}

private void Form1_Load(object sender, EventArgs e)

{

textBox1.MaxLength = 6;

textBox2.PasswordChar = ‘*’;

}

}

}

1     评论 分享 举报 收起

广告您可能关注的内容

程序编写软件?零基础可以学习吗? study.hxsd.com
查看更多

入门游戏编程，0基础学习，学不会免费重修 study.hxsd.com
查看更多

软件 开发选择猪八戒网!

一站式软件 开发，专业软件定制开发团队，软件定制开发快速高效。

tf.zbj.com 广告

其他类似问题

2007-07-30VB问：设计程序，程序运行后在文本框中输入任意内容，然后单击…2

2012-04-20VB编程问题:程序运行时，在文本框text1中输入1个字符串…14

2010-02-06在VB中健个命令按钮和一个文本框单击按钮时文本框消失29

2014-10-30vb中在文本框中输入文字，然后单击“转移”按钮，则文本框消失…2

2018-12-04在vb中怎样设计一个程序,在文本框中输入边长,单击命令按钮在…

2015-05-31VB题 在窗体上建立三个文本框和两个命令按钮.在前两个文本框… 5

2016-09-03vb中，在文本框中输入若干字符，单击命令按钮则显示相同数量的…10

更多相关vb如何在文本框里输入字符串的问题 >

为你推荐：
特别推荐
为什么说有鹅的地方蛇跑光？

沙漠全部消失对人类有什么影响？

为何居庸关是天下第一关？

海面上升，中国哪些城市会消失？

相关推荐

中文编程，用编程三剑客 就对了

全中文编程， 软件/网站/App开发一次全部掌握， 轻轻松松自己开发全平台软件系统

www.yaqi.net

【傲梦编程】6-18岁少儿编程课_培养逻辑力和数理思维

傲梦少儿编程培训适合6-18岁儿童，培养孩子逻辑思维和想象力，傲梦在线少儿编程，

www.aomeng.com

用Excel做编程序软件

勤哲Excel服务器学习和下载。会Excel，懂管理，就能做编程序软件。

www.qinzhe.com

广告

等你来答

换一换



如果不考虑工资，你最想从事哪种职业？

等1788774人想问 我来答



在你看来找工作和找对象哪个重要？

等752500人想问 我来答



你觉得同事能成为朋友吗？

等740018人想问 我来答



如何看待当下网络某些男性仇女以及某些女性仇男的现象？

等685703人想问 我来答



如何看待中国式的巨婴？

等314924人想问 我来答



对于应届生来说，五险一金真的很重要吗？

等658969人想问 我来答

帮助更多人

领取奖励

我的财富值
–
去登录

我的现金
–
去登录

做任务开宝箱累计完成0个任务

10任务
50任务
100任务
200任务
任务列表加载中…

新手帮助

如何答题获取采纳使用财富值

玩法介绍

知道商城知道团队合伙人认证高质量问答

投诉建议

意见反馈账号申诉非法信息举报

京ICP证030173号-1   京网文【2013】0934-983号     ©2021Baidu  使用百度前必读  |  知道协议
百度首页 Qwo282615109消息私信 商城

网页资讯视频图片

知道

文库贴吧采购地图更多»
vb如何在文本框里输入字符串

搜索答案我要提问

首页

在问

日报

用户

合伙人

商城  手机答题  我的

VB问：设计程序，程序运行后在文本框中输入任意内容，然后单击命令按钮，则将文本框中的内容现实在标签上

我编的：Private Sub Command1_Click()

Label1.Caption = Text1.Text

End Sub

教材为何这么复杂：

Private Sub Command1_Click()

Label1.Caption = Text1.Text

Text1.SelStart = 0

Text1.SelLength = Len(Text1)

Text1.SetFocus

End Sub
Private Sub Form_Load()

Show

Text1.SelStart = 0

Text1.SelLength = Len(Text1)

End Sub

 我来答 分享 举报

2个回答 #热议# 喜欢一个人是什么感觉？

ilvn

2007-07-29 · 超过13用户采纳过TA的回答

关注

教材里的代码，不仅是把TextBox中的内容显示到标签控件中，而且当你按下按钮后会把TextBox中的内容选中

本回答被提问者采纳

2     评论 分享 举报

…烟花飘飘…

2007-07-29 · TA获得超过2321个赞

关注

教材的是标签里显示的为你选中的内容，不一定是全部内容哦，你试试

抢首赞     评论 分享 举报

其他类似问题

2012-04-20VB编程问题:程序运行时，在文本框text1中输入1个字符串…14

2009-09-03VB的几道编程题，麻烦帮我解答一下14

2019-01-05修改VB程序,使其具有下列功能:运行程序,在文本框Text1…1

2011-06-16编写一个程序，在文本框中输入任意一个五位数，然后单击命令按钮…

2015-07-02vb程序中，如果在文本框中输入一行内容并单击添加按钮，则把文…1

2016-05-28下列VB程序运行时单击命令按钮Command1后文本框Tex…2

2020-04-01VB程序设计例题12例

更多相关vb如何在文本框里输入字符串的问题 >

为你推荐：
特别推荐
为什么说有鹅的地方蛇跑光？

沙漠全部消失对人类有什么影响？

为何居庸关是天下第一关？

海面上升，中国哪些城市会消失？

等你来答

换一换



如果不考虑工资，你最想从事哪种职业？

等1788746人想问 我来答



在你看来找工作和找对象哪个重要？

等752360人想问 我来答



你觉得同事能成为朋友吗？

等740014人想问 我来答



如何看待当下网络某些男性仇女以及某些女性仇男的现象？

等685698人想问 我来答



如何看待中国式的巨婴？

等315190人想问 我来答



对于应届生来说，五险一金真的很重要吗？

等659027人想问 我来答

帮助更多人

领取奖励

我的财富值
–
去登录

我的现金
–
去登录

做任务开宝箱累计完成0个任务

10任务
50任务
100任务
200任务
任务列表加载中…

新手帮助

如何答题获取采纳使用财富值

玩法介绍

知道商城知道团队合伙人认证高质量问答

投诉建议

意见反馈账号申诉非法信息举报

京ICP证030173号-1   京网文【2013】0934-983号     ©2021Baidu  使用百度前必读  |  知道协议
百度首页 Qwo282615109消息私信 商城

网页资讯视频图片

知道

文库贴吧采购地图更多»
vb如何在文本框里输入字符串

搜索答案我要提问

首页

在问

日报

用户

合伙人

商城  手机答题  我的

vb中怎么在文本框内直接显示文字

比如直接显示 姓名 年龄 身高 三个词中间的距离比较大那种 求高手指教

 我来答 分享 举报

3个回答 #热议# 工作中遇到瓶颈怎么办？

senytar

2012-03-29 · 超过11用户采纳过TA的回答

关注

text1 = “姓名” & " " & “年龄” & " " & “身高”

中间的“ ”表示中间间距，如果认为太短，可以再加几个空格

3     评论 分享 举报

红山人2008

推荐于2017-09-11 · TA获得超过4549个赞

已关注

两种方法:一抄,静态方法:在文本框属袭性里,直接2113设置文本框的默认显示值为你的5261文本.二,动态4102方法:在窗体加载1653事件过程里添加要默认显示的文本,如

text1.text=“姓名” & space(2) & “年龄” & space(2) & “身高” 'space(2)是用空格函数生成两个空格

本回答被提问者采纳

4     评论 分享 举报
匿名用户

广告2021-01-17

程序编写软件，行业总监授课+项目实训，和30000+名企签订就业合作，火星学员就业无忧。
study.hxsd.com
xjnzhidao

2012-03-29 · TA获得超过1.1万个赞

已关注

每个词中间隔8个空格：

Text1.Text = “姓名” & space(8) & “年龄” & space(8) & " 身高"

1     评论 分享 举报

收起 更多回答（1）

广告您可能关注的内容

程序编写软件?零基础可以学习吗? study.hxsd.com
查看更多

软件 开发选择猪八戒网! tf.zbj.com
查看更多

用Excel做编程序软件 www.qinzhe.com
查看更多

其他类似问题

2016-10-26如何在文本框内插入文字

2009-09-03VB如何把文件内容显示在文本框中？

2018-01-24word中文本框内的文字怎么用替换？

2011-02-12VB中怎样把结果显示在文本框中

2011-12-25vb中怎么设置输入文本框1时同时从文本框2也显示出来

2013-11-17VB中在文本框中显示文字怎么样才可以换行啊

2014-03-21（vb）怎么让运行时文本框中显示文字，但是一点，文字消失，让…

更多相关vb如何在文本框里输入字符串的问题 >

为你推荐：
特别推荐
为什么说有鹅的地方蛇跑光？

沙漠全部消失对人类有什么影响？

为何居庸关是天下第一关？

海面上升，中国哪些城市会消失？

相关推荐

Foxtable上市，人人都能掌握的编写程序软件!

通用数据库软件不合适，定做软件太昂贵，自己用开发又太难，何不试试FoxTable 2018

www.foxtable.com

iVX - 全球首款无代码可视化编程软件，中国造!

图形化界面开发，无代码，更高效!

www.ivx.cn

88万文字图片编辑模板_在线编辑文字图片编辑_会打字就能用

优质海报模板，在线编辑文字图片编辑，替换文字就出图，一键生成免费下载图片，下载即用。

www.818ps.com

广告

等你来答

换一换



如果不考虑工资，你最想从事哪种职业？

等1788833人想问 我来答



在你看来找工作和找对象哪个重要？

等752397人想问 我来答



你觉得同事能成为朋友吗？

等739968人想问 我来答



如何看待当下网络某些男性仇女以及某些女性仇男的现象？

等685573人想问 我来答



如何看待中国式的巨婴？

等315147人想问 我来答



对于应届生来说，五险一金真的很重要吗？

等658980人想问 我来答

帮助更多人

领取奖励

我的财富值
–
去登录

我的现金
–
去登录

做任务开宝箱累计完成0个任务

10任务
50任务
100任务
200任务
任务列表加载中…

新手帮助

如何答题获取采纳使用财富值

玩法介绍

知道商城知道团队合伙人认证高质量问答

投诉建议

意见反馈账号申诉非法信息举报

京ICP证030173号-1   京网文【2013】0934-983号     ©2021Baidu  使用百度前必读  |  知道协议
VB中在文本框中显示文字怎么样才可以换行啊

 我来答 分享 举报

1个回答 #热议# 茶叶究竟要不要洗洗再喝？

LR319F

2013-11-10 · 超过51用户采纳过TA的回答

关注

如果你想用代码在文本框中显示多行文字，可以把字符串和vbCrLf连起来。比如Text1.Text=abc&vbCrLf&123，这样abc和123就会显示成2行了。

本回答由提问者推荐

抢首赞     评论 分享 举报

百度首页 Qwo282615109消息私信 商城

网页资讯视频图片

知道

文库贴吧采购地图更多»
vb 在text中输入字符串

搜索答案我要提问

首页

在问

日报

用户

合伙人

商城  手机答题  我的

vb程序，在文本框text1中输入任字符串，将其中的数字字符替换为后在文本框text2输出

vb，在文本框text1中输入任字符串，将其中的数字字符替换为后在文本框text2输出

 我来答 分享 举报

1个回答 #热议# 工作中遇到瓶颈怎么办？

听不清啊  高能答主

2013-12-22 · 把复杂的事情简单说给你听

关注

text2.text=""

for i=1 to len(text1.text)

c=mid(text1.text,i,1)

if c>=“0” and c<=“9” then

text2.text=text2.text & “*”

else

text2.text=text2.text & c

end if

next i

本回答被提问者采纳

5     评论 分享 举报 收起

其他类似问题

2015-06-18VB两个文本框在text1中输入任意一字符串，单击命令按钮后…3

2013-03-07VB在文本框中输入一个字符串,将其中的小写字符转换为大写字符…12

2012-04-20VB编程问题:程序运行时，在文本框text1中输入1个字符串…15

2012-05-09求VB代码。设计一个只接受字母键的文本框，在text1中输入…4

2014-04-18VB,在窗体上添加两个文本框text1和text2.要求在文…

2016-05-26设计一个只接受字母键的文本框,在文本框text1中输入一串字…

2018-05-25vb语言，在文本框text1中输入n的值，在文本框text2…

更多类似问题 >

为你推荐：
特别推荐
沙漠全部消失对人类有什么影响？

为何居庸关是天下第一关？

为什么说有鹅的地方蛇跑光？

海面上升，中国哪些城市会消失？

等你来答

换一换



如果不考虑工资，你最想从事哪种职业？

等1789114人想问 我来答



在你看来找工作和找对象哪个重要？

等752625人想问 我来答



你觉得同事能成为朋友吗？

等740058人想问 我来答



如何看待当下网络某些男性仇女以及某些女性仇男的现象？

等685827人想问 我来答



如何看待中国式的巨婴？

等314922人想问 我来答



对于应届生来说，五险一金真的很重要吗？

等659064人想问 我来答

帮助更多人

领取奖励

我的财富值
–
去登录

我的现金
–
去登录

做任务开宝箱累计完成0个任务

10任务
50任务
100任务
200任务
任务列表加载中…

新手帮助

如何答题获取采纳使用财富值

玩法介绍

知道商城知道团队合伙人认证高质量问答

投诉建议

意见反馈账号申诉非法信息举报

京ICP证030173号-1   京网文【2013】0934-983号     ©2021Baidu  使用百度前必读  |  知道协议
百度首页 Qwo282615109消息私信 商城

网页资讯视频图片

知道

文库贴吧采购地图更多»

vb中排列组合的输出函数  我来答新人答题领红包

首页

在问

日报

用户

合伙人

商城  手机答题  我的

vb中排列组合的输出函数

有1到n，n个数，输出所有排列组合记录在pailie（index,n）数组中。请给出算法，或者直接写出代码。谢谢。

 我来答 分享 举报

1个回答 #热议# 工作中遇到瓶颈怎么办？

Coo_boi

推荐于2016-01-29 · TA获得超过1289个赞

关注

排列组合很好做，但是如果你的字符串太长的话。那个真是计算机负荷不起的运算。比如“e69da5e887aa32313133353236313431303231363533313332623534370123456789”它的不重复的所有组合就有3628800种（算法：10！阶乘）。实在是个巨型数字！我自己在电脑上做实验光是排出这三百万多个字符顺序的组合就需要大约2分钟，这还不算重复校验和字符组合的输出。汗颜！

代码如下，所有的排列组合生成在你D盘下的“字符组合.txt”内。

Option Explicit

Private Sub Command1_Click()

Dim Num, I, J, Temp, Len1 As Long

Dim FF As Long

Dim Count As Long

Dim str, strTemp, strArr, Arr() As String

'********************************************************************

str = InputBox(“请输入字符串，数字或者字母组成：”, “By CoKie”)

Len1 = Len(str): ReDim strArr(Len1)

For I = 1 To Len1

strArr(I - 1) = Mid(str, I, 1)

Next

'********************************************************************

Count = 1

For I = 2 To Len1

Count = Count * I

Next

ReDim Arr(Count)

'*********************************************************************

Randomize

For I = 0 To Count - 1

'******************************************

Lab2: strTemp = “”: Num = 0

Do While Num < Len1

Lab1: Temp = Int(Rnd * Len1)

If InStr(strTemp, CStr(Temp)) Then GoTo Lab1

strTemp = strTemp & Temp

Num = Num + 1

Loop

'******************************************

For J = 0 To UBound(Arr)

If Arr(J) = strTemp Then GoTo Lab2

Next

Arr(I) = strTemp

Next

'**********************************************************************

FF = FreeFile

Open “D:\字符组合.txt” For Output As #FF

'**************************

For I = 0 To Count - 1

strTemp = “”

For J = 1 To Len1

strTemp = strTemp & strArr(CLng(Mid(Arr(I), J, 1)))

Next

Print #FF, strTemp

Next

'**************************

Close #FF

End Sub

本回答由电脑网络分类达人 王洁推荐

3     评论 分享 举报 收起

广告您可能关注的内容

初中函数，6000万家长的选择，精英老师在线1对1 www.zhangmen.com
查看更多

淘宝网函数公式，重点难点，名师整理 simba.taobao.com
查看更多

其他类似问题

2009-05-27VB中怎样输出所有的排列组合情况

2012-10-24VB数字排列组合输出2

2012-11-23用VB计算排列组合6

2015-07-15vb怎么做排列组合4

2010-01-31vb6.0 排列组合1

2014-06-03使用vb进行排列组合

2018-02-25VB 如何这样排列组合（如图） 1

更多相关vb怎样输出所有排列组合?的问题 >

为你推荐：
特别推荐
为什么说有鹅的地方蛇跑光？

沙漠全部消失对人类有什么影响？

为何居庸关是天下第一关？

海面上升，中国哪些城市会消失？

等你来答

换一换



如果不考虑工资，你最想从事哪种职业？

等1789030人想问 我来答



在你看来找工作和找对象哪个重要？

等752553人想问 我来答



你觉得同事能成为朋友吗？

等740042人想问 我来答



如何看待当下网络某些男性仇女以及某些女性仇男的现象？

等685580人想问 我来答



如何看待中国式的巨婴？

等315203人想问 我来答



对于应届生来说，五险一金真的很重要吗？

等659129人想问 我来答

帮助更多人

领取奖励

我的财富值
–
去登录

我的现金
–
去登录

做任务开宝箱累计完成0个任务

10任务
50任务
100任务
200任务
任务列表加载中…

新手帮助

如何答题获取采纳使用财富值

玩法介绍

知道商城知道团队合伙人认证高质量问答

投诉建议

意见反馈账号申诉非法信息举报

京ICP证030173号-1   京网文【2013】0934-983号     ©2021Baidu  使用百度前必读  |  知道协议
百度首页 Qwo282615109消息私信 商城

网页资讯视频图片

知道

文库贴吧采购地图更多»
vb程序怎样输出排列组合?

搜索答案我要提问

首页

在问

日报

用户

合伙人

商城  手机答题  我的

vb怎么做排列组合

A组包含1 To 16，B组包含2 To 18，C组包含5 To 23，D组包含8 To 28，E组包含13 To 32，F组包含21 To 33，求排列组合S（A，B，C，D，E，F）有多少组并列出，组合S中要求A<B<C<D<E<F，求哪位高手帮忙，谢谢！

 我来答 分享 举报

1个回答 #热议# 喜欢一个人是什么感觉？

syx54

2015-07-14 · TA获得超过6876个赞

已关注

这个你用bai循环嵌套就可以完成：

窗体du上添加一个列zhi表框和一个按钮，代码如dao下：

Option Explicit

Private Sub Command1_Click()

Dim A As Integer, B As Integer, C As Integer, D As Integer, E As Integer

For A = 1 To 16

For B = 2 To 18

For C = 5 To 23

For D = 8 To 28

For E = 13 To 32

If A < B And B < C And C < D And D < E Then

List1.AddItem A & “,” & B & “,” & C & “,” & D & “,” & E

End If

Next E

Next D

Next C

Next B

Next A

End Sub

我的计算回机比较旧了，大约需要答25秒钟

4     评论(2) 分享 举报 收起

广告您可能关注的内容

2021深圳软件编程学校 www.sz-aptech.com
查看更多

丨2021丨免费编程标准-已解决 www.sz-aptech.com
查看更多

程序编写软件来火星学，工作不用愁! study.hxsd.com
查看更多

其他类似问题

2018-01-24如何用VBA实现排列组合？3

2014-06-03使用vb进行排列组合

2010-04-24vb中排列组合的输出函数3

2013-05-18这个vb算法怎么实现？(可能用到排列组合跟递归)求助！ 2

2012-10-24VB数字排列组合输出2

2017-05-15vb 多个数组排列组合 1

2012-11-23用VB计算排列组合6

更多相关vb程序怎样输出排列组合?的问题 >

为你推荐：
特别推荐
《仓颉篇》到底说了什么？

为什么海军战舰在船底要造通海阀？

数九寒天是怎么个数法？

穿越者真的存在吗？

相关推荐

软件软件编程_乐博乐博课程不断升级!

乐博乐博上市公司，优质品牌，专注于3-18岁儿童机器人编程培训领域十多年，有实力

www.roborobo.cn

iVX - 全球首款无代码可视化编程软件，中国造!

图形化界面开发，无代码，更高效!

www.ivx.cn

软件 开发选择猪八戒网!

一站式软件 开发，专业软件定制开发团队，软件定制开发快速高效。

tf.zbj.com

广告

等你来答

换一换



如果不考虑工资，你最想从事哪种职业？

等1792714人想问 我来答



在你看来找工作和找对象哪个重要？

等754206人想问 我来答



你觉得同事能成为朋友吗？

等741468人想问 我来答



如何看待当下网络某些男性仇女以及某些女性仇男的现象？

等687129人想问 我来答



如何看待中国式的巨婴？

等315052人想问 我来答



对于应届生来说，五险一金真的很重要吗？

等660426人想问 我来答

帮助更多人

领取奖励

我的财富值
–
去登录

我的现金
–
去登录

做任务开宝箱累计完成0个任务

10任务
50任务
100任务
200任务
任务列表加载中…

新手帮助

如何答题获取采纳使用财富值

玩法介绍

知道商城知道团队合伙人认证高质量问答

投诉建议

意见反馈账号申诉非法信息举报

京ICP证030173号-1   京网文【2013】0934-983号     ©2021Baidu  使用百度前必读  |  知道协议
百度首页 Qwo282615109消息私信 商城

网页资讯视频图片

知道

文库贴吧采购地图更多»
vb程序怎样输出排列组合?

搜索答案我要提问

首页

在问

日报

用户

合伙人

商城  手机答题  我的

使用vb进行排列组合

有一个3行3列矩阵，从这个矩阵的每一行抽取一个元素，然后组成一个三维数组，一共可以组成27个，这个计算过程如何通过vb实现

 我来答 分享 举报

2个回答 #热议# 30+的人生活是不是总是忙忙碌碌？

听不清啊  高能答主

推荐于2016-01-10 · 把复杂的事情简单说给你听

关注

Private Sub Command1_Click()
Dim a(3, 3) As Integer
Print “3*3的数bai组是du：zhi”
For i = 1 To 3
For j = 1 To 3

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

  Print a(i, j);

Next j

Print

Next i
Print: Print “27种方案dao是：”
For i = 1 To 3
For j = 1 To 3

  For k = 1 To 3

    Print a(1, i); a(2, j); a(3, k)

  Next k

Next j

Next i
End Sub
追问

如果矩阵用
表示，程序该如何写，谢谢
追答

你把dim a(3,3) 换成为　dim q(3,3) 可以吗？

本回答由提问者推荐

抢首赞     评论 分享 举报 收起

358651588

2014-05-31 · 超过11用户采纳过TA的回答

关注

每次找一个数，再用一个矩阵打标记（是否取过）找完即可

抢首赞     评论 分享 举报

广告您可能关注的内容

制作小程序小程序制作_小程序出售_按需定制_价格透明 app.chuangshengapp.com
查看更多

小程序编程!小程序开发报价 app.chuangshengapp.com
查看更多

趣味编程-适合7-16岁少儿编程教育平台编程猫 hi.codemao.cn
查看更多

其他类似问题

2018-01-24如何用VBA实现排列组合？3

2012-11-23用VB计算排列组合6

2010-04-24vb中排列组合的输出函数3

2012-07-27能不能用VB写运算排列组合程序2

2009-03-23请教VB中一个排列组合的问题

2008-08-20VB 编程问题（排列组合）1

2009-06-24VB对排列组合结果赋值5

更多类似问题 >

为你推荐：
特别推荐
穿越者真的存在吗？

为什么海军战舰在船底要造通海阀？

数九寒天是怎么个数法？

《仓颉篇》到底说了什么？

相关推荐

学习编程_专注编程IT培训_华信智原

学习编程，来华信智原，报名前免费试听，试听后再报名，

www.hxzy.cn

制作个小程序猪八戒网专注小程序!

制作个小程序就上猪八戒网 一键生成 简单易操作 提供上百套模版!

tf.zbj.com

vb.net编程工具FoxTable 2019免费下载!

通用软件不合适，定做软件太昂贵，自己用vb.net开发太难，何不试试FoxTable?

www.foxtable.com

广告

等你来答

换一换



如果不考虑工资，你最想从事哪种职业？

等1792858人想问 我来答



在你看来找工作和找对象哪个重要？

等754277人想问 我来答



你觉得同事能成为朋友吗？

等741564人想问 我来答



如何看待当下网络某些男性仇女以及某些女性仇男的现象？

等687174人想问 我来答



如何看待中国式的巨婴？

等315115人想问 我来答



对于应届生来说，五险一金真的很重要吗？

等660493人想问 我来答

帮助更多人

领取奖励

我的财富值
–
去登录

我的现金
–
去登录

做任务开宝箱累计完成0个任务

10任务
50任务
100任务
200任务
任务列表加载中…

新手帮助

如何答题获取采纳使用财富值

玩法介绍

知道商城知道团队合伙人认证高质量问答

投诉建议

意见反馈账号申诉非法信息举报

京ICP证030173号-1   京网文【2013】0934-983号     ©2021Baidu  使用百度前必读  |  知道协议
Dim 数组名 As [数组元素的数据类型] = {数值1, 数值2, …, 数值n}
Dim a() As [string] = {i, j, k}
2019独角兽企业重金招聘Python工程师标准>>> hot3.png
using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;
namespace Arrangenum

{

/// 

/// 采用插值算法来求全排列，即先取出该组数字中的任意一个值，再把剩下的值依次往里面插，

/// 取出所有可能的结果，即为所有可能的排列。

/// 
class Method
{
    public static int allnum(string[] str1)//计算所有全排列的个数
    {
        int a = 1;
        int b;
        for (b = 1; b < str1.Length;b++ )
        {
            a=a*(b+1);
        }
        return a;
    }

    public static void arrstr(string[] str2, string[] str1)
    {
        int i;
        int p;
        string[] result = null;
        for (i = 0; i < str2.Length; i++)
        {
            string[] str3 = str2[i].Split(' ');
            int q = str3.Length + 1;//使新建数组的长度比传入的数组长度大1，以便后面向数组中插入数字
            p = q * str2.Length;
            string[] str4 = new string[q];//在内存堆上new出两个数组，
            string[] str5 = new string[q];//而不是一个为数组的两个引用
            int s;
            for (s = 0; s < str3.Length; s++)
            {
                str4[s] = str3[s];//对两个数组赋相同的值
                str5[s] = str3[s];
            }
            int t;
            string[] str6 = new string[q];
            for (t = 0; t < q; t++)
            {
                str4 = movstr(str4, str1, t, q);//调用movstr方法向str4中插入数字
                string st1 = "";
                int n;
                for (n = 0; n < str4.Length; n++)
                {
                    st1 = st1 + str4[n] + " ";//把插入后的结果转化为字符串，中间用空格隔开
                }
                st1 = st1.Substring(0, st1.Length - 1);
                str6[t] = st1;
                str4 = copystr(str5);//调用copystr方法把数组str4还原
            }
            string[] check = str6[0].Split(' ');
            if (check.Length < str1.Length)          //判断排列后的数组长度是否等于要排列的数组的长度，是的话则证明排列完成，  
            {
                arrstr(str6, str1);                          //不是的话则使用递归调用继续往里面插入数字，直至它们长度相等
            }
            else
            {
                result = str6;
                int y;
                for (y = 0; y < result.Length; y++)
                {
                    Console.WriteLine(result[y]);
                }
            }
        }
    }

    static string[] movstr(string[] str4, string[] str1, int t, int q)
    {
        if (t == (q - 1))                              //向数组中插入数字，如果要插入的位置是数组的最后一位的话则直接对其最后一位
        {
            str4[t] = str1[q - 1];                 //赋值，如果不是的话，则从要插入的位置起，把所有的元素都向后移一位，然后再
        }
        else                                              //把数字插入要插入的位置，因为要插入的数组最后一位是空值，所以向后移一位时
        {
            int m;                                       //不会出现元素丢失
            for (m = (q - 1); m > t; m--)
            {
                str4[m] = str4[m - 1];
            }
            str4[t] = str1[q - 1];
        }
        return str4;
    }

    static string[] copystr(string[] str5)         
    {
        int x;                                                                   //把字符数组还原为未插入数字之前的排列，

        string[] str7 = new string[str5.Length];             // 采用先把另一个相等的数组先转化为字符串，  
        string st2 = "";                                                   //再把字符串转化为数组并赋给原数组的方式，

        for (x = 0; x < str5.Length; x++)                       //是因为数组引用的是内存堆中的地址，直
        {                                                                       //接赋值的话，只是把引用的地址传了过去，

            st2 = st2 + str5[x] + " ";                              //这样两个数组引用了相同的地址，循环后再 
        }                                                                      //次赋值的话就会出现错误的结果
        st2 = st2.Substring(0, st2.Length - 1);
        str7 = st2.Split(' ');
        return str7;
    }

}

class Program
{
    static void Main()
    {
        try
        {
            Console.WriteLine("请输入要排序的数字，中间用逗号隔开，并按回车确认：");
            string st = Console.ReadLine();
            string[] rst = st.Split(',');
            int c;
            int[] num = new int[rst.Length];        //增加一个数字数组，
            for (c = 0; c < rst.Length; c++)
            {
                num[c] = Convert.ToInt16(rst[c]);   //并把字符数组转换为数字数组，
            }
            string[] str = new string[num.Length];
            for (c = 0; c < num.Length; c++)        //然后再转换为字符数组，是为了当在输入的不是数字时抛出异常
            {
                str[c] = Convert.ToString(num[c]);
            }
            string[] str1 = str;
            string[] str2 = { str1[0] };
            int a;
            a = Method.allnum(str1);
            Console.WriteLine("全排列的个数为{0}个，结果为：",a);
            Method.arrstr(str2, str1);  
        }
        catch(Exception e)//捕捉异常，并输出
        {
            Console.WriteLine(e.Message);
        } 
    }
}

}
转载于:https://my.oschina.net/secyaher/blog/274436
文章最后发布于: 2019-06-14
For cnt = 1 To 10 Step 1             ’ 建立 10 次循环
For Chars = 0 To 9                    ’ 建立 10 次循环
MyString = MyString & Chars            ’ 将数字添加到字符串中
Next Chars                            ’ Increment counter
MyString = MyString & " "           ’ 添加一个空格
Next cnt

[Exit For]
正确例题

Private Sub Command1_Click()

Dim a(3, 3) As Integer
Dim i, j, k As Integer
Print “3*3的数组是：”
For i = 1 To 3
For j = 1 To 3

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

  Print a(i, j);

Next j

Print

Next i
Print: Print “27种方案是：”
For i = 1 To 3
For j = 1 To 3

  For k = 1 To 3

    Print a(1, i); a(2, j); a(3, k)

  Next k

Next j

Next i
End Sub
正确例题

Private Sub Command1_Click()

Dim i, j As Integer

For i = 1 To 2

For j = 1 To 2

Text2.Text = Text2.Text & Mid(Text1.Text, i, 1) & Mid(Text1.Text, j, 1) & “;”

Next

Next

End Sub
正确例题，2进制2位数2个字符串

Private Sub Command1_Click()

Dim i, j As Integer

For i = 1 To 2

For j = 1 To 2

Text2.Text = Text2.Text & Mid(Text1.Text, i, 1) & Mid(Text1.Text, j, 1) & “.”

Next

Next

End Sub
正确例题，2进制3位数2个字符串

Private Sub Command1_Click()

Dim i,j,k As Integer

For i = 1 To 2

For j = 1 To 2

For k = 1 To 2

Text2.Text = Text2.Text & Mid(Text1.Text, i, 1) & Mid(Text1.Text, j, 1)& Mid(Text1.Text, k, 1) & “.”

Next

Next

Next

End Sub
正确例题，3进制27组合3位数27数量3个字符串

Private Sub Command1_Click()

Dim i, j,k As Integer

For i = 1 To 3

For j = 1 To 3

For k = 1 To 3

Text2.Text = Text2.Text & Mid(Text1.Text, i, 1) & Mid(Text1.Text, j, 1)& Mid(Text1.Text, k, 1) & “.”

Next

Next

Next

End Sub
正确例题，3进制9组合2位数9数量3个字符串

Private Sub Command1_Click()

Dim i, j,k As Integer

For i = 1 To 2

For j = 1 To 2

For k = 1 To 2

Text2.Text = Text2.Text & Mid(Text1.Text, i, 1) & Mid(Text1.Text, j, 1)& Mid(Text1.Text, k, 1) & “.”

Next

Next

Next

End Sub
正确例题

Private Sub Command1_Click()

Dim a(2) As String

a(1)=“0”

a(2)=“1”
Dim i, j As Integer

For i = 1 To 2

For j = 1 To 2
print a(i)&a(j)

Next j

Next i

End Sub
vb中怎样让text控件内容换行显示啊？
MutiLine属性设为True，换行标志符为 vbCrLf

如Text1.Text=“abc” & vbCrLf & “def”

则Text中显示:

abc

def

7
其他类似问题
VB中在文本框中显示文字怎么样才可以换行啊
把文本框bai的MultiLine属性设为duTrue就可以换行了。如zhi果你想用代码在文本框中dao显示多行文内字，可以把字符串和容vbCrLf连起来。比如Text1.Text = “abc” & vbCrLf & “123”，这样abc和123就会显示成2行了。

16     评论 分享 举报

少公羽

2012-03-21 · TA获得超过2853个赞

关注

文本框的MultiLine属性设置为True

3
VB显示在文本框中的内容怎样换行！
首先把text的multiline属性改为true，然后写上代码

text1.text=“1+4”&vbcrlf&“2+3”

即可。注：vbcrlf是换行符。
在VB中如何实现输出到文本框里的内容换行？

比如说这个程序： Label1.Caption =10012 Text1.text = 452 Text2.text = Label1.Caption & Text1.text要实现和分行输出该怎么做？
在需要换行的地方加入换行代码“

&

vbCrLf”

----引号内的

前提是你的Text的MultiLine属性值要设置为True
百度首页 Qwo282615109消息私信 商城

网页资讯视频图片

知道

文库贴吧采购地图更多»

VB中文本框如何换行  我来答新人答题领红包

首页

在问

日报

用户

合伙人

商城  手机答题  我的

VB中文本框如何换行

1、我想在TXET4里通过command按钮将txet1、txet2、txet3里的信息相加显示出来，然后更改txet1-3的信息，再次点击command，新的信息会替换原有的，如何将原有信息保留而另起一行显示呢… 展开

 我来答 分享 举报

11个回答 #热议# 注销校园贷的骗局套路是什么?？

zmshouye

推荐于2017-10-12 · TA获得超过182个赞

关注

我本来是第一个回答的，为了把第二，三个问题也解决，修改答案后就成最下边一个了
1.--------------------------------------------------------------
把Text4的MultiLine属性设置成True
复制32313133353236313431303231363533e58685e5aeb931333262343037下边的代码：
Private Sub Form_Load()
Text4.Text = “”
End Sub
Private Sub Command1_Click()
Text4.Text = Text4.Text + Text1.Text + Text2.Text + Text3.Text + vbCrLf
End Sub
'下边是为了保障Text4的焦点处于最后，试着去掉下边这三行，观察一下效果，你会发现这三行也很重要
Private Sub Text4_Change()
Text4.SelStart = Len(Text4.Text)
End Sub
2.--------------------------------------------------------------
如果是用List也可以，下边就是双击复制该表项内容
Private Sub List1_DblClick()
 Clipboard.Clear

 Clipboard.SetText List1.List(List1.ListIndex)

 MsgBox "该项内容已经复制到剪贴板，请用Ctrl+V粘贴"

End Sub
3.--------------------------------------------------------------
richtextbox比textbox好用，比如richtextbox还能每行字体颜色不同，显示图片等，不过你这里用不着它的这些复杂用法
首先点“工程”，“部件”，找到“Microsoft Rich textbox Contral 6.0”勾上，点“确定”，然后就可以在工具那里看到它了，在窗体上画RichTextBox1
RichTextBox1 就不用设置MultiLine了，代码的写法和用Text4差不多
复制下边的代码：
Private Sub Form_Load()
RichTextBox1 = “”
End Sub
Private Sub Command1_Click()
RichTextBox1.Text = RichTextBox1.Text + Text1.Text + Text2.Text + Text3.Text + vbCrLf
End Sub
Private Sub RichTextBox1_Change()
RichTextBox1.SelStart = Len(RichTextBox1.Text)  '保障RichTextBox1的焦点处于最后
End Sub
上边的代码我都测试过了，完全直接可用！！ 看图片！
62     评论(2) 分享 举报 收起

匿名用户

推荐于2017-09-22

先把TextBox的Muiltline属性设为2113True 表示可以5261支持多行输入4102，然后在需要按行的1653地方按入vbCrlf带表回内车。

参考容例子如下：

'设置 Text1.MultiLine = True

’ Text1.ScrollBars = 2

Private Sub Form_Load()

Text1.Text = “”

Text1.Text = Text1.Text & “这是示例A” & vbCrLf

Text1.Text = Text1.Text & “这是示例B” & vbCrLf

End Sub

43     评论 分享 举报 收起
匿名用户

广告2021-01-20

如何把图片变成文字，可以轻松将图片文字/PDF文字/截图文字批量转换成Word/TXT，

www.cqboliqi.net
匿名用户

2010-01-03

text4.text = text4.text & vbcrlf & vbcrlf & text1.text & vbcrlf & text2.text & vbcrlf & text3.text & vbcrlf

另外2113文本5261框有4102两个属1653性需回要设答置

MultiLine = true;

ScrollBars - 2

2     评论 分享 举报
放置四个baiduText和一个Command，把zhiText4的Multiline设置dao为true，输入版以下代权码

Private Sub Command1_Click()

Text4.Text = Text1.Text + Text2.Text + Text3.Text & vbCrLf & Text4.Text

End Sub

抢首赞     评论 分享 举报

ZHRX

2010-01-03 · TA获得超过1957个赞

关注

Private Sub Command1_Click()

Text4.Text = Text4.Text & Text1.Text & vbCrLf & Text2.Text & vbCrLf & Text3.Text & vbCrLf

End Sub

VB讲课笔记05：数据输入输出

一、数据输出
1、Print 方法
打印一个或多个数据，用半角逗号或分号隔开。
怎么利用一个Print语句打印多行内容呢？要利用VB提供的换行符号常量：vbCrLf。

其实，vbCrLf = Chr(13) & Chr(10)。Chr(13)——软回车；Chr(10)——换行

甚至单独用Chr(13)或Chr(10)也可实现换行：

在Java语言和Python语言里，可用转义字符“\n”实现换行，Python语言甚至也支持用chr(13)+chr(10)的方式来实现换行。
（1）Java

（2）Python

2、与Print 方法有关的函数(Tab, Spc, Space$)
tab(n)和spc(n)都是用来把光标向后移动n个字符的位置
tab(n)是绝对偏移量，从该列的开头开始计算，移动n个字符的位置
spc(n)是相对偏移量，从光标处开始计算，移动n个字符的位置
space() 是插入多少个空格，space(5) 就是插入5个空格

3、格式输出（Format$）
Format(数据, 格式字符串)

常见错误：将数据类型Date不小心写成Data。
二、InputBox 函数
参数1：提示信息
参数2：标题
参数3：缺省值
参数4：输入框左上角横坐标
参数5：输入框左上角纵坐标
参数6：帮助文件
参数7：帮助主题

此时，单击取消按钮：


说明：单击输入框的【取消】按钮，返回值是一个空字符串，要赋给一个整型变量，当然要报类型不匹配的错误了。为了避免这个问题，我们采用一个转换函数Val()，可以将字符串转换成数值型。
此时，启动程序，显示输入框，单击【取消】按钮：


说明：空字符串转成数值型就是0。


三、MsgBox
参数1：提示信息
参数2：按钮类型与图标类型
参数3：标题
参数4：帮助文件
参数5：帮助主题

MsgBox有两种使用方式，需要返回值时就是用MsgBox函数，不需要返回值时就用MsgBox语句。




消息框没有关闭时，不能进行其他操作。也就是说消息框是有模态的显示。类似于有模态地显示一个窗体，要求先响应模态窗体的操作。


使用续行符必须在之前加空格：
否则过不了系统的语法检查：


消息框语句MsgBox，支持四种图标：vbInformation（信息图标）、vbExclamation（警告图标）、vbQuestion（询问图标）与vbCritical（错误图标）。






四、字形
1、FontName
2、FontSize
3、FontBold
4、FontItalic

运行程序：
单击【设置】按钮：
五、打印机输出
1、直接输出
用Printer对象可进行高分辨率输出，但要想产生复杂的打印输出，编程较为繁琐。Printer对象代表系统确省打印机。Printer对象支持许多由窗体和图形框所支持的属性和方法。
1、创建工程，修改工程与窗体名称
2、窗体界面设计

3、按钮事件处理
Private Sub cmdPrintGraphTextInForm_Click()
    Me.Line (2 * 150, 2 * 150)-Step(1440, 500), , B
    Me.Circle (1000, 1600), 800, vbRed
    Me.CurrentX = 450
    Me.CurrentY = 450
    Me.Print "VB编程很有趣！"
End Sub

Private Sub cmdPrintGraphTextToPrinter_Click()
    Printer.Line (2 * 150, 2 * 150)-Step(1440, 500), , B
    Printer.Circle (1000, 1600), 800, vbRed
    Printer.CurrentX = 450
    Printer.CurrentY = 450
    Printer.Print "VB编程很有趣！"
    Printer.EndDoc
End Sub

4、运行程序
单击【在窗体上打印图形与文本】按钮：


单击【在打印机上打印图形与文本】按钮：


任务：在窗体里居中打印文本。
1、添加窗体，并设置为启动窗体
2、窗体界面设计
3、按钮事件处理

4、运行效果
单击【打印文本】按钮：
2、窗体输出
利用窗体的PrintForm方法可以将整个窗体打印输出。

 控制台输入输出是控制台程序最基本的操作，学习完这一段内容以后，就该进入C#语句（statement）的学习了。
其实，在涉及向对象之前，一段C#代码是很难和一段同样功能的C代码相区分的。C#的语句和C的语句几乎完成同样的功能，那就是实现选择（判断）和循环结构。这也是结构化程序设计中的最基本结构。
而对于VB来说，语法上就更没什么进步了，因为VB6的各种控制结构已经非常完善甚至有点娇惯我们的程序员了。现在只不过去掉了一些历史遗留的关键字，时的语法更清晰了。
选择结构有两种，二重选择和多重选择。
C#的二重选择是：

if ( 条件 )
{ 
    语句块1
}
else
{
    语句块2
}

VB的二重选择是：

If 条件 Then
    语句块1
Else
    语句块2
End If

这个比较容易懂，两种语言都是在条件为真的时候执行语句块1，否则执行语句块2。看不懂者请补习数据类型与变量那一章。
对于逐级条件过滤，两种语言都提供了一种更为简洁的语法来代替嵌套：
C#的是

if ( 条件1 )
{
    语句块1
}
else if ( 条件2 )
{
    语句块2
}
.
else
{
    语句块x
}

而VB的是

If  条件1 Then
  语句块1
ElseIf  条件2 Then
  语句块2
.
.
.
ElseIf  条件n Then
语句块n
Else
  语句块x
End If

读者如果能自行写出这种语法所对应的嵌套形式的二重选择结构，那么就说明你对二重选限的认识已经很标准了。
当然，这种逐级过滤是一种最一般的情况，因为条件1到条件n之间并不要求有内在联系，而多重分支语句则是为了处理逐级过滤的一种特殊情况：表达式的多可能值匹配，来设计的。
C#的是

switch ( 表达式 )
{
    case 可能值1:
        语句块1
        [break;]
    case 可能值2:
        语句块2
        [break;]
    .
    .
    .
    case 可能值n:
        语句块n
        [break;]
    default:
         语句块x
        [break;]
}

在这种语法之下，运行时会首先计算表达式的值，然后从上至下逐个核对case后面的值是否与当前计算出来的表达式的值相等，如果相等，则执行该case语句之后的对应的语句块，如果不等，则和对下一个，直到遇到第一个（注意，是第一个，也就是说，如果有两个case后面的值相等，永远是第一个case被执行到）匹配的值为止，或直到扫描完所有匹配项为止。如果没有匹配项，则执行default块。每个case块的末尾一般都需要一个break语句，表示跳出switch语句块，如果没有break，那么紧随其后的下一个case块会被执行，这个事情在C时代就是这样。
对于VB，则复杂一些：

Select Case 表达式
    Case 可能值1
        语句块1
    .
    .
    .
    Case Else
        语句块x
End Select

VB的Select Case语句的用途和C#的switch一样，Case Else块相当于C#的default块。不过有几个区别，第一个区别就是VB的每个Case块不需要break语句，每个Case执行完会自动跳到End Select后面继续执行。第二个，也就是最重要的确别，在于VB的Case块后面的可能值是可以罗列多个的，而C#只能有1个，并且，如果你觉得罗列多个值不足以表达你的意思，比如你需要表达式的值落在某个区间，还可以用Is关键字来表示表达式的值。比如，你想表达这么一个意思：如果a的值等于1或者2或者大于10，那么就给a增加1，如果a的值是5、6或小于0，那么就给a减小1，如果以上情况都不是，则给a为0。这个意思用C#的switch写是这样(简直让人头疼)：

switch ( a )
{
  case 1:
  case 2:
      a++
      break;
  case 5:
  case 6
      a--
      break;
  default:
    if ( a > 10 )
      { a++;break;}
    if ( a < 0 )
      { a--;break;}
    a = 0;
}

而如果是VB则是：

Select Case a
    Case 1,2,Is > 10
       a+=1
    Case 5,6,Is < 0
       a-=1
    Case Else
       a=0
End Select

C#代码是不是让你的脑子有点乱？所以用C#来实现这样的逻辑，还是用if表达起来更清晰，虽然显得有点没技术含量。
有兴趣的同学不妨来考虑这么一个问题，case块的数量会影响执行的速度吗？比如，表达式有10个可能值和10000个可能值相比，匹配一次的平均时间会有区别么？一般人从直觉上都会觉得有。那么，请同学们自己编写程序来证明自己的想法。我的实验结果一周后公布。

	

算法(Algorithm)：计算机解题的基本思想方法和步骤。算法的描述：是对要解决一个问题或要完成一项任务所采取的方法和步骤的描述，包括需要什么数据(输入什么数据、输出什么结果)、采用什么结构、使用什么语句以及如何安排这些语句等。通常使用自然语言、结构化流程图、伪代码等来描述算法。
一、计数、求和、求阶乘等简单算法
此类问题都要使用循环，要注意根据问题确定循环变量的初值、终值或结束条件，更要注意用来表示计数、和、阶乘的变量的初值。
例：用随机函数产生100个[0，99]范围内的随机整数，统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数并打印出来。
本题使用数组来处理，用数组a(1 to 100)存放产生的确100个随机整数，数组x(1 to 10)来存放个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数。即个位是1的个数存放在x(1)中，个位是2的个数存放在x(2)中，……个位是0的个数存放在x(10)。
将程序编写在一个GetTJput过程中，代码如下：
Public Sub GetTJput()   
    Dim a(1 To 100) As Integer
    Dim x(1 To 10) As Integer
    Dim i As Integer, p As Integer
    '产生100个[0，99]范围内的随机整数，每行10个打印出来
    For i = 1 To 100
        a(i) = Int(Rnd * 100)
        If a(i) < 10 Then
            Form1.Print Space(2); a(i);
        Else
            Form1.Print Space(1); a(i);
        End If
        If i Mod 10 = 0 Then Form1.Print
    Next i
    '统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数，并将统计结果保存在数组x(1),x(2),...,x(10)中，将统计结果打印出来
    For i = 1 To 100
        p = a(i)  Mod  10    ' 求个位上的数字
        If p = 0 Then p = 10
        x(p) = x(p) + 1
    Next i
    Form1.Print "统计结果"
    For i = 1 To 10
        p = i
        If i = 10 Then p = 0
        Form1.Print "个位数为"+ Str(p) + "共" + Str(x(i)) + "个"
    Next i
End Sub
二、求两个整数的最大公约数、最小公倍数
分析：求最大公约数的算法思想：(最小公倍数=两个整数之积/最大公约数)
       (1) 对于已知两数m，n，使得m>n；
       (2)  m除以n得余数r；
       (3) 若r=0，则n为求得的最大公约数，算法结束；否则执行(4)；
       (4) m←n，n←r，再重复执行(2)。
     例如: 求 m=14 ,n=6 的最大公约数.        m      n        r
                                                                         14      6       2
                                             6       2       0
m=inputBox("m=")
n=inputBox("n=")
nm=n*m
If m < n Then t = m: m = n: n = t
    r=m mod n
    Do While (r <>0)                               
         m=n
         n=r
         r= m mod n
    Loop
    Print "最大公约数=",n
Print "最小公倍数=",nm/n
三、判断素数
只能被1或本身整除的数称为素数  基本思想：把m作为被除数，将2—INT()作为除数，如果都除不尽，m就是素数，否则就不是。(可用以下程序段实现)
m =val( InputBox("请输入一个数"))
          For i=2 To int(sqr(m))
               If m Mod i = 0 Then    Exit  For
           Next i
          If i > int(sqr(m)) Then
              Print "该数是素数"
          Else
              Print "该数不是素数"
          End If
将其写成一函数,若为素数返回True，不是则返回False
Private Function Prime( m asInteger)  As  Boolean
                  Dim  i%          
                  Prime=True
                  For i=2 To int(sqr(m))
                      If m Mod i = 0 Then   Prime=False:  Exit  For
                  Next i
             End Function
五、排序问题
1．选择法排序(升序)
基本思想：
1)对有n个数的序列(存放在数组a(n)中)，从中选出最小的数，与第1个数交换位置；
2)除第1 个数外，其余n-1个数中选最小的数，与第2个数交换位置；
3)依次类推，选择了n-1次后，这个数列已按升序排列。
程序代码如下：
For i = 1 To n - 1
        imin = i
        For j = i + 1 To n
            If a(imin) > a(j) Then imin = j
        Next j
        temp = a(i)
        a(i) = a(imin)
        a(imin) = temp
Next I
2．冒泡法排序(升序)
  基本思想：(将相邻两个数比较，小的调到前头)
1)有n个数(存放在数组a(n)中)，第一趟将每相邻两个数比较，小的调到前头，经n-1次两两相邻比较后，最大的数已“沉底”，放在最后一个位置，小数上升“浮起”；
2)第二趟对余下的n-1个数(最大的数已“沉底”)按上法比较，经n-2次两两相邻比较后得次大的数；
3)依次类推，n个数共进行n-1趟比较，在第j趟中要进行n-j次两两比较。
程序段如下
For i = 1 To n - 1
   For j = 1 To n-i
        If a(j) > a(j+1) Then
           temp=a(j)：a(j)=a(j+1)：a(j+1)=temp
        End if
   Next j
Next i
六、查找问题
1．①顺序查找法(在一列数中查找某数x)
  基本思想：一列数放在数组a(1)---a(n)中，待查找的数放在x 中，把x与a数组中的元素从头到尾一一进行比较查找。用变量p表示a数组元素下标，p初值为1，使x与a(p)比较，如果x不等于a(p)，则使p=p+1，不断重复这个过程；一旦x等于a(p)则退出循环；另外，如果p大于数组长度，循环也应该停止。(这个过程可由下语句实现)
    p = 1
    Do While x <> a(p) And p < =n
        p = p + 1
    Loop
下面写一查找函数Find，若找到则返回下标值，找不到返回0
Option Base 1
Private Function Find( a( ) As Single,xAs Single)  As Integer
      Dim n%,p%
      n=Ubound( a )
p = 1
Do While x <> a(p) And p < =n
         p = p + 1
Loop
      If  p>n then  p=0
       Find=p
End Function   
②基本思想：一列数放在数组a(1)---a(n)中，待查找的关键值为key，把key与a数组中的元素从头到尾一一进行比较查找，若相同，查找成功，若找不到，则查找失败。(查找子过程如下。index：存放找到元素的下标。)
Public Sub Search(a() As Variant, key AsVariant, index%)
  Dim i%
  For i = LBound(a) To UBound(a)
    If key = a(i) Then
      index = i
      Exit Sub
    End If
  Next i
    index = -1
End Sub
七、插入法
把一个数插到有序数列中，插入后数列仍然有序
基本思想：n个有序数(从小到大)存放在数组a(1)—a(n)中，要插入的数x。首先确定x插在数组中的位置P；(可由以下语句实现)
p=1
do while x>a(p) and p<=n
p=p+1
loop
a(p)—a(n)元素向后顺移一个位置以空出a(p)元素放入x，可由以下语句实现：
for i=n to p  step-1
  a(i+1)=a(i)
next i
a(p)=x
将其写成一插入函数
Private Sub Instert(a() As Single, x AsSingle)
            Dim p%, n%, i%
            n = UBound(a)
            ReDim Preserve a(n + 1)
            p = 0
            Do While x > a(p) And p <=n    ' 确定x应插入的位置
                  p = p + 1
            Loop
            For i = n To p Step -1
              a(i + 1) = a(i)
            Next i
            a(p)= x
     End Sub
八、矩阵(二维数组)运算
(1)矩阵的加、减运算
           C(i,j)=a(i,j)+b(i,j)           加法
           C(i,j)=a(i,j)-b(i,j)            减法
(2)矩阵相乘
(矩阵A有M*L个元素，矩阵B有L*N个元素，则矩阵C=A*B有M*N个元素)。矩阵C中任一元素  (i=1,2,…,m;  j=1,2,…,n)
For i = 0 To m                             
For j = 0 To n                             
      c(i, j) =0                             
       For k = 0 To l                           
        c(i, j) = c(i, j) + a(i, k) * b(k,j)            
      Nextk                                 
  Nextj                               
 Nexti                                  
(3)矩阵传置
例:有二维数组a(5,5)，要对它实现转置，可用下面两种方式：
For i=1 to5                                                             (2)     For i=2 to 5
For j=i+1 to5                                                                    For j=1 to i
t=a(i,j)                                                                        t=a(i,j)
a(i,j)=a(j,i)                         a(i,j)= a(j,i)
a(j,i)=t                             a(j,i)=t
Nextj                                                                                Next j
Nexti                                                                                       Next i
(4)求二维数组中最小元素及其所在的行和列                                                                                                          
基本思路同一维数组，可用下面程序段实现(以二维数组a(2,3)为例)：
‘变量max中存放最大值，row,column存放最大值所在行列号
Max = a(1, 1): row = 1: Column = 1
For i = 1 To 2
    For j = 1 To 3
        If a(i, j) > a(row, Column) Then
            Max = a(i, j)
            row = i
            Column = j
        End If
    Next j
Next i
Print "最大元素是";Max
Print "在第"& row & "行,"; "第"& Column & "列"
十、数制转换
     将一个十进制整数m转换成→r(2－16)进制字符串。
方法：将m不断除 r 取余数，直到商为零，以反序得到结果。下面写出一转换函数，参数idec为十进制数，ibase为要转换成数的基(如二进制的基是2，八进制的基是8等)，函数输出结果是字符串。
Private Function TrDec(idec As Integer,ibase As Integer) As String
     Dim strDecR$, iDecR%
     strDecR = ""
     Do While idec <> 0
          iDecR = idec Mod ibase
          If iDecR >= 10 Then
             strDecR = Chr$(65 +iDecR - 10) & strDecR
          Else
             strDecR = iDecR & strDecR
          End If
          idec = idec \ ibase
    Loop
   TrDec = strDecR
 End Function
十一、字符串的一般处理
1．统计文本单词的个数
算法思路：
 (1)从文本(字符串)的左边开始，取出一个字符；设逻辑量WT表示所取字符是否是单词内的字符，初值设为False
 (2)若所取字符不是“空格”，“逗号”，“分号”或“感叹号”等单词的分隔符，再判断WT是否为True，若WT不为True则表是新单词的开始，让单词数Nw=Nw+1，让WT=True;
 (3)若所取字符是“空格”，“逗号”，“分号”或“感叹号”等单词的分隔符，则表示字符不是单词内字符，让WT=False;
(4)        再依次取下一个字符，重得(2)(3)直到文本结束。
下面程序段是字符串strI中包含的单词数
Nw = 0: Wt = False
nL = Len(RTrim(strI))
For i = 1 To nL
      strT = Mid$(strI, i,1)     '取第i个字符
      Select Case strT
            Case " ", ",",";", "!"
                  Wt = False
            Case Else
                  If Not Wt Then
                       Nw = Nw + 1
                       Wt= True
                  End If
       End Select
Next i
Print "单词数为：",Nw
十二、穷举法
穷举法(又称“枚举法”)的基本思想是：一一列举各种可能的情况，并判断哪一种可能是符合要求的解，这是一种“在没有其它办法的情况的方法”，是一种最“笨”的方法，然而对一些无法用解析法求解的问题往往能奏效，通常采用循环来处理穷举问题。
例： 将一张面值为100元的人民币等值换成100张5元、1元和0.5元的零钞，要求每种零钞不少于1张，问有哪几种组合？
Dim i%, j%, k%
Print "5元             1元          0.5元"
For i = 1 To 20
        For j = 1 To 100 - i
               k = 100 - i - j
               If 5.0 * i + 1.0 * j + 0.5 * k = 100Then
                   Print i, j, k
               End If
         Next j
   Next i
十三、递归算法
用自身的结构来描述自身，称递归
VB允许在一个Sub子过程和Function过程的定义内部调用自己，即递归Sub子过程和递归Function函数。递归处理一般用栈来实现，每调用一次自身，把当前参数压栈，直到递归结束条件；然后从栈中弹出当前参数，直到栈空。
递归条件：(1)递归结束条件及结束时的值；(2)能用递归形式表示，且递归向终止条件发展。
例：编fac(n)=n! 的递归函数
      Function fac(n As Integer) AsInteger
          If n= 1 Then
                 fac = 1
          Else
      fac = n * fac(n - 1)
          EndIf
End Function