精华内容
下载资源
问答
  • VB讲课笔记05:数据输入输出

    千次阅读 2018-03-09 21:37:11
    VB讲课笔记05:数据输入输出一、数据输出1、Print 方法打印一个或多个数据,用半角逗号或分号隔开。怎么利用一个Print语句打印多行内容呢?要利用VB提供的换行符号常量:vbCrLf。其实,vbCrLf = Chr(13) & ...
    VB讲课笔记05:数据输入输出

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

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

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

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

    (1)Java


    (2)Python

    2、与Print 方法有关的函数(Tab, Spc, Space$)

    • tab(n)和spc(n)都是用来把光标向后移动n个字符的位置
    • tab(n)是绝对偏移量,从该列的开头开始计算,移动n个字符的位置
    • spc(n)是相对偏移量,从光标处开始计算,移动n个字符的位置
    • space() 是插入多少个空格,space(5) 就是插入5个空格

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

    常见错误:将数据类型Date不小心写成Data。

    二、InputBox 函数

    参数1:提示信息
    参数2:标题
    参数3:缺省值
    参数4:输入框左上角横坐标
    参数5:输入框左上角纵坐标
    参数6:帮助文件
    参数7:帮助主题

    此时,单击取消按钮:


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

    此时,启动程序,显示输入框,单击【取消】按钮:


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



    三、MsgBox

    参数1:提示信息

    参数2:按钮类型与图标类型
    参数3:标题
    参数4:帮助文件
    参数5:帮助主题

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




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


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


    消息框语句MsgBox,支持四种图标:vbInformation(信息图标)、vbExclamation(警告图标)、vbQuestion(询问图标)与vbCritical(错误图标)。







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

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

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

    Private Sub cmdPrintGraphTextToPrinter_Click()
        Printer.Line (2 * 1502 * 150)-Step(1440500), , B
        Printer.Circle (10001600), 800, vbRed
        Printer.CurrentX = 450
        Printer.CurrentY = 450
        Printer.Print "VB编程很有趣!"
        Printer.EndDoc
    End Sub

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




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


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

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




    展开全文
  • 专题9 算法与VB语言题解题技巧 一程序题解题技巧 程序段阅读技巧1 单段程序结构语句 程序段开始 变量定义 注意特殊的变量类型例如 string 和 Boolean 输入语句 变量定义的不同会导致语句填空的变化 程序段主结构 ...
  • 题目要求,第一个文本框控件输入两个字符串黑和白。按钮控件使用循环语句执行排列组合运算。第二个文本框控件输出所有排列组合结果:黑黑,黑白,白黑,白白。求完整代码,谢谢 2020-11-23 编程 修改标签 删除问题 ...

    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

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

    if ( 条件 )

        语句块1
    }

    else
    {
        语句块2
    }

    VB的二重选择是:

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

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

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

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

    .
    else
    {
        语句块x
    }

    而VB的是

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

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

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

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

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

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

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

    而如果是VB则是:

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

    C#代码是不是让你的脑子有点乱?所以用C#来实现这样的逻辑,还是用if表达起来更清晰,虽然显得有点没技术含量。
    有兴趣的同学不妨来考虑这么一个问题,case块的数量会影响执行的速度吗?比如,表达式有10个可能值和10000个可能值相比,匹配一次的平均时间会有区别么?一般人从直觉上都会觉得有。那么,请同学们自己编写程序来证明自己的想法。我的实验结果一周后公布。
    展开全文
  • 第三章 赋值与输入输出 5学时 第四章 选择结构设计 4学时 第五章 循环结构设计 5学时 第六章 数组 6学时 期中考试 2学时 第七章 过程 6学时 第八章 数据文件  4学时 第九章 程序调试与错误...
  • 算法的描述:是对要解决一个问题或要完成一项任务所采取的方法和步骤的描述,包括需要什么数据(输入什么数据、输出什么结果)、采用什么结构、使用什么语句以及如何安排这些语句等。通常使用自然语言、结构化流程图、...

    4756e755bc0c12c8eb3ce398d5e7845c.gif

    算法(Algorithm):计算机解题的基本思想方法和步骤。算法的描述:是对要解决一个问题或要完成一项任务所采取的方法和步骤的描述,包括需要什么数据(输入什么数据、输出什么结果)、采用什么结构、使用什么语句以及如何安排这些语句等。通常使用自然语言、结构化流程图、伪代码等来描述算法。

    一、计数、求和、求阶乘等简单算法

    此类问题都要使用循环,要注意根据问题确定循环变量的初值、终值或结束条件,更要注意用来表示计数、和、阶乘的变量的初值。

    例:用随机函数产生100个[0,99]范围内的随机整数,统计个位上的数字分别为1,2,3,4,5,6,7,8,9,0的数的个数并打印出来。

    本题使用数组来处理,用数组a(1 to 100)存放产生的确100个随机整数,数组x(1 to 10)来存放个位上的数字分别为1,2,3,4,5,6,7,8,9,0的数的个数。即个位是1的个数存放在x(1)中,个位是2的个数存放在x(2)中,……个位是0的个数存放在x(10)。

    将程序编写在一个GetTJput过程中,代码如下:

    Public Sub GetTJput()   

        Dim a(1 To 100) As Integer

        Dim x(1 To 10) As Integer

        Dim i As Integer, p As Integer

        '产生100个[0,99]范围内的随机整数,每行10个打印出来

        For i = 1 To 100

            a(i) = Int(Rnd * 100)

            If a(i) < 10 Then

                Form1.Print Space(2); a(i);

            Else

                Form1.Print Space(1); a(i);

            End If

            If i Mod 10 = 0 Then Form1.Print

        Next i

        '统计个位上的数字分别为1,2,3,4,5,6,7,8,9,0的数的个数,并将统计结果保存在数组x(1),x(2),...,x(10)中,将统计结果打印出来

        For i = 1 To 100

            p = a(i)  Mod  10    ' 求个位上的数字

            If p = 0 Then p = 10

            x(p) = x(p) + 1

        Next i

        Form1.Print "统计结果"

        For i = 1 To 10

            p = i

            If i = 10 Then p = 0

            Form1.Print "个位数为"+ Str(p) + "共" + Str(x(i)) + "个"

        Next i

    End Sub

    二、求两个整数的最大公约数、最小公倍数

    分析:求最大公约数的算法思想:(最小公倍数=两个整数之积/最大公约数)

           (1) 对于已知两数m,n,使得m>n;

           (2)  m除以n得余数r;

           (3) 若r=0,则n为求得的最大公约数,算法结束;否则执行(4);

           (4) m←n,n←r,再重复执行(2)。

         例如: 求 m=14 ,n=6 的最大公约数.        m      n        r

                                                                             14      6       2

                                                 6       2       0

    m=inputBox("m=")

    n=inputBox("n=")

    nm=n*m

    If m < n Then t = m: m = n: n = t

        r=m mod n

        Do While (r <>0)                               

             m=n

             n=r

             r= m mod n

        Loop

        Print "最大公约数=",n

    Print "最小公倍数=",nm/n

    三、判断素数

    只能被1或本身整除的数称为素数  基本思想:把m作为被除数,将2—INT()作为除数,如果都除不尽,m就是素数,否则就不是。(可用以下程序段实现)

    m =val( InputBox("请输入一个数"))

              For i=2 To int(sqr(m))

                   If m Mod i = 0 Then    Exit  For

               Next i

              If i > int(sqr(m)) Then

                  Print "该数是素数"

              Else

                  Print "该数不是素数"

              End If

    将其写成一函数,若为素数返回True,不是则返回False

    Private Function Prime( m asInteger)  As  Boolean

                      Dim  i%          

                      Prime=True

                      For i=2 To int(sqr(m))

                          If m Mod i = 0 Then   Prime=False:  Exit  For

                      Next i

                 End Function

    五、排序问题

    1.选择法排序(升序)

    基本思想:

    1)对有n个数的序列(存放在数组a(n)中),从中选出最小的数,与第1个数交换位置;

    2)除第1 个数外,其余n-1个数中选最小的数,与第2个数交换位置;

    3)依次类推,选择了n-1次后,这个数列已按升序排列。

    程序代码如下:

    For i = 1 To n - 1

            imin = i

            For j = i + 1 To n

                If a(imin) > a(j) Then imin = j

            Next j

            temp = a(i)

            a(i) = a(imin)

            a(imin) = temp

    Next I

    2.冒泡法排序(升序)

      基本思想:(将相邻两个数比较,小的调到前头)

    1)有n个数(存放在数组a(n)中),第一趟将每相邻两个数比较,小的调到前头,经n-1次两两相邻比较后,最大的数已“沉底”,放在最后一个位置,小数上升“浮起”;

    2)第二趟对余下的n-1个数(最大的数已“沉底”)按上法比较,经n-2次两两相邻比较后得次大的数;

    3)依次类推,n个数共进行n-1趟比较,在第j趟中要进行n-j次两两比较。

    程序段如下

    For i = 1 To n - 1

       For j = 1 To n-i

            If a(j) > a(j+1) Then

               temp=a(j):a(j)=a(j+1):a(j+1)=temp

            End if

       Next j

    Next i

    六、查找问题

    1.①顺序查找法(在一列数中查找某数x)

      基本思想:一列数放在数组a(1)---a(n)中,待查找的数放在x 中,把x与a数组中的元素从头到尾一一进行比较查找。用变量p表示a数组元素下标,p初值为1,使x与a(p)比较,如果x不等于a(p),则使p=p+1,不断重复这个过程;一旦x等于a(p)则退出循环;另外,如果p大于数组长度,循环也应该停止。(这个过程可由下语句实现)

        p = 1

        Do While x <> a(p) And p < =n

            p = p + 1

        Loop

    下面写一查找函数Find,若找到则返回下标值,找不到返回0

    Option Base 1

    Private Function Find( a( ) As Single,xAs Single)  As Integer

          Dim n%,p%

          n=Ubound( a )

    p = 1

    Do While x <> a(p) And p < =n

             p = p + 1

    Loop

          If  p>n then  p=0

           Find=p

    End Function   

    ②基本思想:一列数放在数组a(1)---a(n)中,待查找的关键值为key,把key与a数组中的元素从头到尾一一进行比较查找,若相同,查找成功,若找不到,则查找失败。(查找子过程如下。index:存放找到元素的下标。)

    Public Sub Search(a() As Variant, key AsVariant, index%)

      Dim i%

      For i = LBound(a) To UBound(a)

        If key = a(i) Then

          index = i

          Exit Sub

        End If

      Next i

        index = -1

    End Sub

    七、插入法

    把一个数插到有序数列中,插入后数列仍然有序

    基本思想:n个有序数(从小到大)存放在数组a(1)—a(n)中,要插入的数x。首先确定x插在数组中的位置P;(可由以下语句实现)

    p=1

    do while x>a(p) and p<=n

    p=p+1

    loop

    a(p)—a(n)元素向后顺移一个位置以空出a(p)元素放入x,可由以下语句实现:

    for i=n to p  step-1

      a(i+1)=a(i)

    next i

    a(p)=x

    将其写成一插入函数

    Private Sub Instert(a() As Single, x AsSingle)

                Dim p%, n%, i%

                n = UBound(a)

                ReDim Preserve a(n + 1)

                p = 0

                Do While x > a(p) And p <=n    ' 确定x应插入的位置

                      p = p + 1

                Loop

                For i = n To p Step -1

                  a(i + 1) = a(i)

                Next i

                a(p)= x

         End Sub

    八、矩阵(二维数组)运算

    (1)矩阵的加、减运算

               C(i,j)=a(i,j)+b(i,j)           加法

               C(i,j)=a(i,j)-b(i,j)            减法

    (2)矩阵相乘

    (矩阵A有M*L个元素,矩阵B有L*N个元素,则矩阵C=A*B有M*N个元素)。矩阵C中任一元素  (i=1,2,…,m;  j=1,2,…,n)

    For i = 0 To m                             

    For j = 0 To n                             

          c(i, j) =0                             

           For k = 0 To l                           

            c(i, j) = c(i, j) + a(i, k) * b(k,j)            

          Nextk                                 

      Nextj                               

     Nexti                                  

    (3)矩阵传置

    例:有二维数组a(5,5),要对它实现转置,可用下面两种方式:

    For i=1 to5                                                             (2)     For i=2 to 5

    For j=i+1 to5                                                                    For j=1 to i

    t=a(i,j)                                                                        t=a(i,j)

    a(i,j)=a(j,i)                         a(i,j)= a(j,i)

    a(j,i)=t                             a(j,i)=t

    Nextj                                                                                Next j

    Nexti                                                                                       Next i

    (4)求二维数组中最小元素及其所在的行和列                                                                                                          

    基本思路同一维数组,可用下面程序段实现(以二维数组a(2,3)为例):

    ‘变量max中存放最大值,row,column存放最大值所在行列号

    Max = a(1, 1): row = 1: Column = 1

    For i = 1 To 2

        For j = 1 To 3

            If a(i, j) > a(row, Column) Then

                Max = a(i, j)

                row = i

                Column = j

            End If

        Next j

    Next i

    Print "最大元素是";Max

    Print "在第"& row & "行,"; "第"& Column & "列"

    十、数制转换

         将一个十进制整数m转换成→r(2-16)进制字符串。

    方法:将m不断除 r 取余数,直到商为零,以反序得到结果。下面写出一转换函数,参数idec为十进制数,ibase为要转换成数的基(如二进制的基是2,八进制的基是8等),函数输出结果是字符串。

    Private Function TrDec(idec As Integer,ibase As Integer) As String

         Dim strDecR$, iDecR%

         strDecR = ""

         Do While idec <> 0

              iDecR = idec Mod ibase

              If iDecR >= 10 Then

                 strDecR = Chr$(65 +iDecR - 10) & strDecR

              Else

                 strDecR = iDecR & strDecR

              End If

              idec = idec \ ibase

        Loop

       TrDec = strDecR

     End Function

    十一、字符串的一般处理

    1.统计文本单词的个数

    算法思路:

     (1)从文本(字符串)的左边开始,取出一个字符;设逻辑量WT表示所取字符是否是单词内的字符,初值设为False

     (2)若所取字符不是“空格”,“逗号”,“分号”或“感叹号”等单词的分隔符,再判断WT是否为True,若WT不为True则表是新单词的开始,让单词数Nw=Nw+1,让WT=True;

     (3)若所取字符是“空格”,“逗号”,“分号”或“感叹号”等单词的分隔符,则表示字符不是单词内字符,让WT=False;

    (4)        再依次取下一个字符,重得(2)(3)直到文本结束。

    下面程序段是字符串strI中包含的单词数

    Nw = 0: Wt = False

    nL = Len(RTrim(strI))

    For i = 1 To nL

          strT = Mid$(strI, i,1)     '取第i个字符

          Select Case strT

                Case " ", ",",";", "!"

                      Wt = False

                Case Else

                      If Not Wt Then

                           Nw = Nw + 1

                           Wt= True

                      End If

           End Select

    Next i

    Print "单词数为:",Nw

    十二、穷举法

    穷举法(又称“枚举法”)的基本思想是:一一列举各种可能的情况,并判断哪一种可能是符合要求的解,这是一种“在没有其它办法的情况的方法”,是一种最“笨”的方法,然而对一些无法用解析法求解的问题往往能奏效,通常采用循环来处理穷举问题。

    例: 将一张面值为100元的人民币等值换成100张5元、1元和0.5元的零钞,要求每种零钞不少于1张,问有哪几种组合?

    Dim i%, j%, k%

    Print "5元             1元          0.5元"

    For i = 1 To 20

            For j = 1 To 100 - i

                   k = 100 - i - j

                   If 5.0 * i + 1.0 * j + 0.5 * k = 100Then

                       Print i, j, k

                   End If

             Next j

       Next i

    十三、递归算法

    用自身的结构来描述自身,称递归

    VB允许在一个Sub子过程和Function过程的定义内部调用自己,即递归Sub子过程和递归Function函数。递归处理一般用栈来实现,每调用一次自身,把当前参数压栈,直到递归结束条件;然后从栈中弹出当前参数,直到栈空。

    递归条件:(1)递归结束条件及结束时的值;(2)能用递归形式表示,且递归向终止条件发展。

    例:编fac(n)=n! 的递归函数

          Function fac(n As Integer) AsInteger

              If n= 1 Then

                     fac = 1

              Else

          fac = n * fac(n - 1)

              EndIf

    End Function

    4a7fb2a25b85be150d98b4ad1974b921.png

    展开全文
  • VB常用算法的介绍.pdf

    2020-08-02 11:59:14
    常用算法介绍 VB 算法 Algorithm 计算机解题的基本思想方法和步骤算法的描述是对要 解决一个问题或要完成一项任务所采取的方法和步骤的描述 包括需要什么数据 输入什么数据输出什么结果采用什么结构使用什么语句以及...
  • VB程序设计及应用

    热门讨论 2012-11-26 14:07:12
    第 4章 数据的输出输入 4.1 数据的输出 4.1.1 Print方法 4.1.2 与 Print有关的函数 4.1.3 Cls方法 4.2 数据输入函数 InputBox 4.3 MsgBox函数和 MsgBox语句 4.3.1 ...
  • 算法的描述:是对要解决一个问题或要完成一项任务所采取的方法和步骤的描述,包括需要什么数据(输入什么数据、输出什么结果)、采用什么结构、使用什么语句以及如何安排这些语句等。通常使用自然语言、结构化流程图...
  • 算法的描述:是对要解决一个问题或要完成一项任务所采取的方法和步骤的描述,包括需要什么数据(输入什么数据、输出什么结果)、采用什么结构、使用什么语句以及如何安排这些语句等。通常使用自然语言、结构化流程图、...
  • 微软 VB2010 源码包

    2013-05-22 02:21:18
    ConsoleApps:使用控制台窗口演示简单的输入输出。 Environment:演示几个提供环境信息的类的用法。 Excel:演示如何使用 Visual Basic 启动 Excel、从模板创建工作簿、更新工作表中的单元格、在工作簿中填充...
  • 算法的描述:是对要解决一个问题或要完成一项任务所采取的方法和步骤的描述,包括需要什么数据(输入什么数据、输出什么结果)、采用什么结构、使用什么语句以及如何安排这些语句等。通常使用自然语言、结构化流程图...
  • 程序总离不开数据的输入输出,除了键盘鼠标最重要的媒介就是磁盘文件 而且无论什么语言,如果不支持二进制文件的操作,就算不上是强大的语言 文件读写常用的有下面的语句和函数: Open FreeFile Input Get Put Lof ...
  • C程序设计语言(第2版·新版中文)

    热门讨论 2010-10-22 19:43:48
    全面、系统地讲述了C语言的各个特性及程序设计的基本方法,包括基本概念,类型和表达式、控制流、函数与程序结构、指针与数组、结构、输入输出、UNIX系统接口、标准库等内容。 目录   出版者的话 专家指导委员...
  • 答:二级CDOS命令,计算机组成原理,多媒体、数据库操作、...二级VB按照新大纲,需要学习的内容有:VB基本概念、集成开发环境、可视化编程方法、基本输入输出、常用控件功能及使用、VB控制结构语句等。二级VFP需要...
  • C语言难易度:★★★★★DOS命令,计算机组成原理,多媒体、...VB难易度:★★★VB基本概念、集成开发环境、可视化编程方法、基本输入输出、常用控件功能及使用、VB控制结构语句等。VFP难易度:★★数据库系统与VF...
  • 例如只包括整型常数和其四则运算以及相应的赋值语句,转移语句,条件语句和最简单的输入输出语句等.编制一个包括必要处理阶段(词法分析、语法分析、语义分析、代码生成)简化又完整的编译程序 本课程设计程序是以...
  • Visual.Basic.NET程序设计案例教程

    热门讨论 2012-01-24 14:19:08
    第3章 VB.NET程序设计语言基础 3.1 数据类型 3.2 变量 3.2.1 变量名的命名规则 3.2.2 变量的声明 3.2.3 变量的作用域 3.3 常量 3.4 运算符 3.5 表达式 3.6 VB.NET常用内部函数 3.6.1 数值函数 3.6.2 字符函数 3.6.3 ...
  • C语言特点 语言特点 C程序结构 程序结构 基本的输入输出 程序设计语言的发展机器语言 汇编语言 高级语言 – 通用语言 fortran, basic C VB SQL Delphi Powerbuild C++ ( VC++ BC++ ) – 数据库语言 foxbase ,FoxPro ...
  • 2.1.1 vb语言的特点 20 .2.1.2 vb中文版集成开发环境 21 2.1.3 vb的操作对象 24 2.2 vb程序设计步骤 25 2.2.1 建立新工程项目 25 2.2.2 设计程序界面 26 2.2.3 设置对象属性 26 2.2.4 编写...
  • 2.1.1 vb语言的特点 20 .2.1.2 vb中文版集成开发环境 21 2.1.3 vb的操作对象 24 2.2 vb程序设计步骤 25 2.2.1 建立新工程项目 25 2.2.2 设计程序界面 26 2.2.3 设置对象属性 26 2.2.4 编写...
  •  3.2.4 Visual Basic 中的输出语句  3.2.5 在控制台应用程序中添加模块并调试执行  3.3创建窗体应用程序  3.4打印程序代码  本章重点整理  本章习题 第4章 基本数据处理  4.1变量与数据类型  4.1.1...
  • C#微软培训教材(高清PDF)

    千次下载 热门讨论 2009-07-30 08:51:17
    18.2 在 C #代码中调用 C++和 VB 编写的组件 .240 18.3 版 本 控 制 .249 18.4 代 码 优 化 .252 18.5 小 结 .254 第五部分 附 录 .255 附录 A 关 键 字.255 附录 B 错 误 码.256 附录 C .Net 名字空间...
  • 12.5.3 XML在VB.NET中的应用 254 第13章 程序调试和错误处理 256 13.1 程序错误类型 256 13.1.1 编译错误 256 13.1.2 运行时错误 257 13.1.3 逻辑错误 258 13.2 程序调试方法概述 259 13.3 设置运行断点 259 ...
  • C#微软培训资料

    2014-01-22 14:10:17
    18.2 在 C #代码中调用 C++和 VB 编写的组件 .240 18.3 版 本 控 制 .249 18.4 代 码 优 化 .252 18.5 小 结 .254 第五部分 附 录 .255 附录 A 关 键 字.255 附录 B 错 误 码.256 附录 C .Net 名字空间...
  • 4.5.1 IF-THEN-ELSE语句 4.5.2 SWITCH-CASE语句 4.5.3 转移指令机器码的计算 4.5.4 条件设置指令 4.5.5 纯算法实现逻辑判断 4.6 循环语句 4.7 数学运算符 4.7.1 整数的加法和减法 4.7.2 整数的乘法 4.7.3 整数的除法...
  • 17、提供丰富的建站常用VB、JS函数库 ★ 18、更多扩展功能: 添加、修改页面在保存信息前进行预览功能 添加、修改页面提交后自动跳转并刷新列表页 字段描述批量格式化,可从字段名、描述生成,加强英文字符处理 ...
  • 17、提供丰富的建站常用VB、JS函数库 ★ 18、更多扩展功能: 添加、修改页面在保存信息前进行预览功能 添加、修改页面提交后自动跳转并刷新列表页 字段描述批量格式化,可从字段名、描述生成,加强英文字符处理 ...

空空如也

空空如也

1 2 3 4
收藏数 75
精华内容 30
关键字:

vb语言输入输出语句