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 ) 就 是 换 行 了 ！ 也 可 以 用 C h r (10) 就是换行了！也可以用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