精华内容
下载资源
问答
  • VB阶段性代码片段总结

    热门讨论 2018-03-04 18:04:04
    主要内容VB中的三大控制结构:A、顺序结构程序设计栗子在窗体中建立一个命令按钮command1,俩个标签label1,label2,俩个文本框text1,text2. private Sub Command1_Click() Dim x as integer Dim y a...

    前言

    一年左右的时间结束了对visual basic 语言的学习,下面对一些典型的代码片段进行总结。

    主要内容

    VB中的三大控制结构:

    A、顺序结构程序设计

    栗子

    在窗体中建立一个命令按钮command1,俩个标签label1,label2,俩个文本框text1,text2.

    private Sub Command1_Click()
    	Dim x as integer
    	Dim y as string 
    	y="100.23"     '将数值形式的字符串赋给y
    	x=y            '将字符串变量y赋给整型变量x
    	y=y+20
    	Text1.Text=x
    	Text2.Text=y	
    End Sub															

    B、选择结构程序设计

    栗子

    输入三个数a,b,c,输出三者之中最大数

    private Sub Command1_Click()
    	dim a as single,b as single,c as single,max as single
    	label1.caption=""
    	a=val(inputbox("请输入第1个数:",",""输入a",0))
    	b=val(inputbox("请输入第2个数:",",""输入b",0))
    	c=val(inputbox("请输入第3个数:",",""输入c",0))
    	p=a&","&b&","&c
    	p=p&"三个数中最大数是:"
    	max=a
    	if b>max then max=b
    	if c>max then max=c
    	label1.caption=p&max	
    End Sub	
    
    private sub command2_click()
    	unload me
    end sub
    														

    C、循环结构程序设计

    栗子

    计算1+2+3+......+100

    private Sub form_Click()
    	dim s as integer,n as integer
    	show
    	s=0:n=1
    	do while n<=100
    		s=s+n
    		n=n+1
    	loop
    	print "1+2+3+.......+100";s	
    End Sub	

    选择排序法

    栗子

    随机产生10个10~100之间的整数,使用“选择排序法”由大到小排序,最后输出结果。

    (1)利用int(Rnd*91)+10产生10~100之间的随机整数

    (2)使用选择排序法由大到小排序,方法如下:

    先将10个数存入数组a的10个数组元素中,然后对10个下标变量a(1),a(2),a(3),......a(10)进行选择排序处理。

    第一轮:从这10个下标变量中选出最大值,共需比较9次(n个数需要比较n-1次),通过交换把最大值存入a(1).

    第二轮:除a(1)之外(a(1)已存放最大值),还剩9个(n-1个)下标变量需要比较选出最大值,共需比较8次(n-2次),通过交换把选出的最大值存入a(2)

    根据上述方法,可以总结出任意的第i轮比较进行的操作是:从后n-i+1个数中选出最大者存入a(i),共需比较n-i次

    重复上述处理,直至进行到最后一轮,即第九轮(第n-1轮)的比较,此时就需要从最后的2个下标变量a(9),a(10)中选出最大值,需要比较1次,通过交换把最大值存入a(9)(也就是a(n-1))。找出了前9个(n-1个)数,实际上此时a(10)(即a(n))存放的就是整个数组中的最小数了。

    综上,使用“选择排序法”对n 个数进行排序,共需比较n-1轮。具体到第i轮需要完成的任务是:对数组后面的n-i+1个下标变量进行比较,需要比较n-i次。

    为完成“选择排序”的处理过程,采用二重循环结构进行程序设计,外循环变量i 从1变化到9,共循环9次,即对应9轮;内循环变量从j从i+1变化到10,决定相应轮次的比较次数。

    dim a (1 to 10)	as integer
    private sub command1_click()
    	form_load
    end sub
    
    private sub command2_click()
    	p=""
    	for i=1 to 9    '选择排序
    		for j=i+1 to 10
    		if a(i) <a(j) then
    			t=a(i):a(i)=a(j):a(j)=t
    		end if 
    	next j
    next i
    for i=1 to 10
    	p=p&str(a(i)) & ","
    next
    label2.caption=ltrim(left(p,len(p) -1))
    end sub
    
    private sub form_load()
    	dim p as string 
    	randomize
    	p=""
    	for i=1 to 10
    		do
    			x=int(rnd*91)+10
    			yes=0
    			for j=1 to i-1     '使产生数组元素互不相同
    			if x=a(j) then yes =1:exit for
    		next j
    	loop while yes=1
    	a(i)=x
    	p=p&str(a(i)) & ","
    next i
    label1.caption=ltrim(left(p,len(p)-1))
    label2.caption=""
    end sub
    										

    冒泡排序法

    仍然以10个数由大到小排序为例,冒泡排序总体思想是小数沉底,大数上浮。参加比较的俩个元素是相邻的,每轮比较可以找出一个本轮最小放在本轮最后,使所有大数前移位置。

    第1轮比较之后,最小的数沉底,即放到a(10)位置;

    第2轮比较a(1)~a(9),使该轮最小数沉底,即放到a(9)位置;

    以此类推,最后一轮比较a(1)和a(2),最大数为a(1),比较结束。

    代码展示,直接修改上边选择排序程序的command2_click()

    private sub command2_click()
    	p=""
    	for i=1 to 9    '冒泡排序
    		for j=1 to 10-i
    		if a(j) <a(j+1) then
    			t=a(j):a(j)=a(j+1):a(j+1)=t
    		end if 
    	next j
    next i
    for i=1 to 10
    	p=p&str(a(i)) & ","
    next i
    label2.caption=ltrim(left(p,len(p) -1))
    end sub



    展开全文
  • Vb程序设计,现有两个文本框控件和一个按钮控件? Vb程序,现有两个文本框控件和一个按钮控件。 题目要求,第一个文本框控件输入两个字符串黑和白。按钮控件使用循环语句执行排列组合运算。第二个文本框控件输出所有...

    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-a
    i-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(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-15VB6.0中怎么使文本框里的文字多行显示?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编写双色球号码生成小程序源码 需要3个label,用来显示相应信息;两个文本框,一个显示生成的号码,一个用来设置号码数量;两个按钮,一个用来开始生成,一个用来复制生成的号码。完整代码如下: '首先声明一个...
  • 看实例学VB 6.0

    2009-12-13 23:14:58
    看实例学VB 6.0 VB语言的语法和QBASIC基本一致,可以说如果你能读懂QBASIC程序,那你读VB的程序是没有问题的,这一节...然后我们可以在子过程中添加程序代码,也就是由我们自己来写当按钮被点击时,程序所做出的响应。
  • vb6 dll 注入

    热门讨论 2008-09-17 08:53:12
    四个.rar文件分别是EnumModule.rar(遍历进程中所有加载模块的vb代码,nt版)、Dll Inject.rar(远线程注入的vb代码)、testdll.rar(由好人改写的遍历模块的vc代码,编译后得到.dll文件)和Win32Sdk.rar(vc的新版...
  • VB试题.doc

    2012-12-15 21:16:57
    4、在VB集成开发环境中,运行应用程序的方法有三种:一是_单击“运行 ”菜单下的启动_;二是_单击工具栏上的启动按钮;三是_按F5键 。 5、在VB中若要让某对对象获取焦点,则可通过__ Setfocus_方法来实现。...
  • 收藏阁 ...================================================================================= 教程名称:VB自动登录163邮箱教程 ========================================...OK 一个简单的程序 就完成了 教程结束
  • VB编程资源大全

    2007-10-17 20:47:23
    more.zip 您一定见过隐藏界面,其实很简单(2KB) 66,keyhandle.zip 屏蔽系统热键Ctrl+Alt+Del(For Win9x)(2KB) 67,notask.zip 在结束任务对话框中隐藏程序标题(For win9x)(2KB) 68,menuclose....
  • 支持 MouseOver 事件(拖动结束)(11KB) 29,hotkeydemo.ZIP 该控件可以为你的应用程序添加一个系统级的热键,通过HotkeyPressed事件来处理热键的按下后的工作。(15KB) 30,pwdboxdemo.ZIP 每当用键盘输入一个字符时,...
  • 一、VB控件集,控件集内含ListView、漂亮按钮、下拉列表、TAB窗体选项卡、树形菜单控件、窗体滑动菜单、分组菜单,可折叠展开的菜单等。以前就更新过,现在修正了不少控件中的小错误,更接近完善了,相信这些控件...
  • 打冰雹游戏源程序

    2013-06-16 00:07:04
    本次课程设计利用《软件设计基础-VB》课程中所学到的编程知识和编程技巧,完成具有一定难度和工作量的程序设计题目,帮助学生掌握编程、调试的基本技能,独立完成所布置的任务。 要求: 1、对系统进行功能需求分析 2...
  • 即,新版支持库可被旧版易语言或易程序使用,旧版支持库也可被新版易语言或易程序使用(只是不支持静态编译)。  静态编译后的易语言EXE/DLL之间不能再共享譬如窗口、窗口组件等类似资源,对于已经静态连接到一个...
  • 8.7 组织程序代码 426 8.8 C++/CLI编程 428 8.8.1 在数值类中重载运算符 429 8.8.2 重载递增和递减运算符 434 8.8.3 在引用类中重载运算符 435 8.9 小结 437 8.10 练习 438 第9章 类继承和虚函数 440...
  • 29.根据线程安全的相关知识,分析以下代码,当调用test方法时i>10时是否会引起死锁?并简要说明理由。 public void test(int i) { lock(this) { if (i>10) { i--; test(i); } } } 答:不会发生死锁,(但...
  • clsWindow是VB6环境下使用的一个操作外部程序窗口的类,比如得到窗口句柄,得到窗口里某个文本框的内容。非常方便,使用它可以让您脱身于一堆api函数,功能强大使用简单! 这个类楼主很早就开始封装了,原本打算做...
  • Java开发技术大全(500个源代码).

    热门讨论 2012-12-02 19:55:48
    代码范例列表 第1章 示例描述:本章演示如何开始使用JDK进行程序的开发。 HelloWorldApp.java 第一个用Java开发的应用程序。 firstApplet.java 第一个用Java开发的Applet小程序。 firstApplet.htm 用来装载...
  • ASP.NET办公自动化系统开发实例导航

    热门讨论 2008-12-24 16:54:10
    ⑧ 还原结束后,将弹出对话框,如图17所示,提示还原顺利完成,单击“确定”按钮,退出所有对话框,完成还原操作。 图16 “还原进度”对话框 图17 还原顺利完成提示框 5. 打开解决方案 通过打开解决方案可查看本...
  • vb编写双色球号码生成小程序源码 图片 需要3个label,用来显示相应信息;两个文本框,一个显示生成的号码,一个用来设置号码数量;两个按钮,一个用来开始生成,一个用来复制生成的号码。完整代码如下: 图片 ...
  • vc++ 应用源码包_2

    2012-09-15 14:27:40
    内部包含:mp3播放器Lrc歌词同步源程序代码分析、mp3播放器+支持歌词同步显示哦、简单音乐播放器。 mfc 解码 视频音频解码部分。 MFC_MultiSender_OVER 文件传送,多文件(超大文件)传送功能的实现,含文档。 ...
  • vc++ 应用源码包_1

    2012-09-15 14:22:12
    内部包含:mp3播放器Lrc歌词同步源程序代码分析、mp3播放器+支持歌词同步显示哦、简单音乐播放器。 mfc 解码 视频音频解码部分。 MFC_MultiSender_OVER 文件传送,多文件(超大文件)传送功能的实现,含文档。 ...
  • vc++ 应用源码包_6

    2012-09-15 14:59:46
    内部包含:mp3播放器Lrc歌词同步源程序代码分析、mp3播放器+支持歌词同步显示哦、简单音乐播放器。 mfc 解码 视频音频解码部分。 MFC_MultiSender_OVER 文件传送,多文件(超大文件)传送功能的实现,含文档。 ...
  • vc++ 应用源码包_5

    2012-09-15 14:45:16
    内部包含:mp3播放器Lrc歌词同步源程序代码分析、mp3播放器+支持歌词同步显示哦、简单音乐播放器。 mfc 解码 视频音频解码部分。 MFC_MultiSender_OVER 文件传送,多文件(超大文件)传送功能的实现,含文档。 ...
  • vc++ 应用源码包_4

    2012-09-15 14:38:35
    内部包含:mp3播放器Lrc歌词同步源程序代码分析、mp3播放器+支持歌词同步显示哦、简单音乐播放器。 mfc 解码 视频音频解码部分。 MFC_MultiSender_OVER 文件传送,多文件(超大文件)传送功能的实现,含文档。 ...
  • vc++ 应用源码包_3

    2012-09-15 14:33:15
    内部包含:mp3播放器Lrc歌词同步源程序代码分析、mp3播放器+支持歌词同步显示哦、简单音乐播放器。 mfc 解码 视频音频解码部分。 MFC_MultiSender_OVER 文件传送,多文件(超大文件)传送功能的实现,含文档。 ...
  • vc++ 开发实例源码包

    2014-12-16 11:25:17
    内部包含:mp3播放器Lrc歌词同步源程序代码分析、mp3播放器+支持歌词同步显示哦、简单音乐播放器。 mfc 解码 视频音频解码部分。 MFC_MultiSender_OVER 文件传送,多文件(超大文件)传送功能的实现,含文档。 ...
  • 7.3 按钮事件代码 7.4 模块初始化与结束化 第8章 VISUAL BASIC程序 24 8.1 基础知识 8.1.1 字符编码方式 8.1.2 编译模式 8.2 自然编译(NATIVE) 8.2.1 相关VB函数 8.2.2 VB程序比较方式 8.3 伪编译(PCODE)...
  • 程序 结束进程, 逻辑型, 公开 .参数 进程ID, 整数型 .子程序 进程取ID, 整数型, 公开, 取指定进程的进程ID(返回第一个进程ID,失败返回空信息) .参数 进程名, 文本型, , 程序进程名(不区分大小写!) .子程序 进程...
  • clsWindow是VB6环境下使用的一个操作外部程序窗口的类,比如得到窗口句柄,得到窗口里某个文本框的内容。非常方便,使用它可以让您脱身于一堆api函数,功能强大使用简单! 这个类楼主很早就开始封装了,原本打算做...

空空如也

空空如也

1 2
收藏数 40
精华内容 16
关键字:

vb按钮结束程序代码