vb如何实现换行换行符怎么使用？
有两种方法：1。编写代码实现换行：label1.caption=“第一行内容”&vbcrlf&amp；“第二行内容”“vbcrlf是实现换行的回车字符；2。编辑label的属性，实现自动换行设置为false，将WordWrap设置为true，然后在标题中输入任意文本，实现自动换行。
vb代码里如何换行啊？
在VB中，当代码行太长时，语句可能会中断。规则是，空格加下划线。例如aaaabbbb应该在AB中间断开，AAAA如果你想让你写的文本显示新行，可以在文件中间加CH(13)来实现这个功能。
VB里一行代码很长，把它换行要加什么符号？
Plus例如：ne=“12345678901234567890”可以写成：ne=“12345678901234567890”&amp “1234567890”
输入100个数字，每10个数字换行，用VB中的自动换行的编程代码怎么写？
PrivateSubCommand1单击()For i=1tolen(Text1)。text10(打印)step10spc。Text，I，10)nextiensub
是Chr(13)&amp；Chr(10)例如，“Text”&amp；Chr(13)&amp；Chr(10)&amp；AA“是textaa的结果

    

			
一、运行效果


二、编写心得
   
程序中，最大值和最小值的比较类似，先用一个布尔型变量“c”和“if”条件语句来区分第一次提示还是后续提示，输出相应的“输入提示框”；再用“if”条件语句和“isnumeric()”函数判断输入是否为数值，不是则用“exit
for”跳出“do”循环；如果是数值则接着执行下一个“if”语句，控制第一次输入之后就改变“inputbox”的输入提示内容，每次输入之后都会提示一个最大或者最小值。之后就用“iif”语句来比较大小，大的赋值给b，或者小的赋值给b；最后在label中输出最后的比较结果。
   
这个程序主要是通过“do...loop”和“if”语句来实现循环和判断的。应该在窗体上添加一个label控件，记录显示已经输入过的数值，这样会比较好一些。
 
三、程序代码
Private Sub Command1_Click()

    Dim a, b As
Double, c As Boolean

    c =
False

    Do

       
If c = True Then

           
a = InputBox("请输入数值，输入非数字结束。目前最大数为" & b, "输入")

       
Else

           
a = InputBox("请输入数值，输入非数字结束", , "输入")

       
End If

       
If IsNumeric(a) Then

           
If c = False Then

               
b = a

               
c = True

           
Else

               
b = CDbl(IIf(CDbl(a) > b, a, b))

           
End If

       
Else

           
Exit Do

       
End If

    Loop

   
Label1.Caption = "输入的数中最大的是：" & b

End Sub
 
Private Sub Command2_Click()

    Dim a, b As
Integer, c As Boolean

    c =
False

    Do

       
If c = True Then

           
a = InputBox("请输入数值，输入非数字结束。目前最小数为：" & b, "输入数值")

       
Else

           
a = InputBox("请输入数值，输入非数字结束", "输入数值")

       
End If

       
If IsNumeric(a) Then

           
If c = False Then

               
b = a

               
c = True

           
Else

               
b = CDbl(IIf(CDbl(a) < b, a, b))

           
End If

       
Else

           
Exit Do

       
End If

    Loop

   
Label1.Caption = "输入的数中最小的是：" & b

End Sub
							
		
  

顺序结构程序设计
在顺序结构中，语句将按照出现的顺序逐条执行，从上到下。
定义→输入→计算→输出
包含3类语句:数据输入；赋值语句；数据输出。
1、数据输入
两种方法
(1)TextBox文本框控件:返回字符型
(2) InputBox()输入框函数:可产生一个对话框，作为输入数据的界面，等待用户输入数据，并返回所输入的内容，返回字符型。
格式: 变量名=InputBox(提示信息[,标题][,默认值][,xpos,ypos])
注意:字符型转换成数值型:val( )
数值型转换成字符型: str( )
每日I积累

2、焦点和Tab顺序
当一个对象具有焦点时，它可以接收用户的输入。
接收焦点前提: Enabled 和Visible属性为True
设置焦点:在运行时单击对象;运行时用快捷键选择对象;在代码中使用SetFocus方法。
涉及到焦点的2个事件:
当对象得到焦点时，会产生GotFocus事件;
当对象失去焦点时，产生LostFocus事件。
Tab顺序:是按Tab时焦点在各个控件问移动的顺序。用TabIndex属性设置。
不参与的，TabStop属性设为False
卸载对象语句unload
结束程序语句end
3、赋值语句
格式: [let] 变量名=表达式
[let]对象名.属性名=表达式
含义: (1)计算赋值号右边表达式的值;
(2)将此值赋给赋值号左边的标识符代表的变量或控件属性，作为它的当前值;
(3)该值一直保存到下一次再对它赋值为止。
(4)分清赋值号、关系运算符的等号。
(5)献值号两边的数据类型通常要一致，或转换成左侧的类型。
逻辑转换成数值型: true→-1 false→0
数值型转换成逻辑:非0→true 0→false
坚持I打卡

4、数据输出
4种方法 1个输出格式函数
(1)Label标签控件显示文本；
(2)TextBox控件显示文本；
(3) Print方法输出；
(4) msgbox函数和过程显示提示信息；
(5) format()函数设置输出格式；
Print方法格式: 
[对象.]Print[{Spc(n)|[Tab(n)}][表达式列表][; | ,]
作用:在对象上输出信息
例如: form/picture/debug/printer.print "VB"
收获I满满

对象:窗体、图片框、立即窗口或打印机(Pinter),省略对象在窗体上输出。
Space(n)函数:插入n个空格，允许重复使用。
Tab(n)函数:左端开始右移动n列，允许重复使用。
;(分号，紧凑格式):光标定位上一个显示的字符后。
无分号/逗号，换行。print
,(逗号，标准格式):光标定位在下一个打印区的开始位置处。每个打印区占14列。
msgbox函数和过程显示提示信息: 2个作用:
(1)在对话框中显示信息: 
过程使用形式: msgbox "提示信息”，对话框样式，标题
(2)等待用户单击按钮，返回一个整数:
函数使用形式:变量=msgbox("提示信息",对话框样式,标题)
对话框样式可使用3组VB常量:按钮+图标+默认按钮
例: msgbox“ 密码不正确”，，“登录”
a=msgbox ("确定要删除信息么? ",3,"确认信息")
喜欢就评论+收藏哦！

			
一、运行效果


二、编写心得
   
程序中，最大值和最小值的比较类似，先用一个布尔型变量“c”和“if”条件语句来区分第一次提示还是后续提示，输出相应的“输入提示框”；再用“if”条件语句和“isnumeric()”函数判断输入是否为数值，不是则用“exit
for”跳出“do”循环；如果是数值则接着执行下一个“if”语句，控制第一次输入之后就改变“inputbox”的输入提示内容，每次输入之后都会提示一个最大或者最小值。之后就用“iif”语句来比较大小，大的赋值给b，或者小的赋值给b；最后在label中输出最后的比较结果。
   
这个程序主要是通过“do...loop”和“if”语句来实现循环和判断的。应该在窗体上添加一个label控件，记录显示已经输入过的数值，这样会比较好一些。
 
三、程序代码
Private Sub Command1_Click()

    Dim a, b As
Double, c As Boolean

    c =
False

    Do

       
If c = True Then

           
a = InputBox("请输入数值，输入非数字结束。目前最大数为" & b, "输入")

       
Else

           
a = InputBox("请输入数值，输入非数字结束", , "输入")

       
End If

       
If IsNumeric(a) Then

           
If c = False Then

               
b = a

               
c = True

           
Else

               
b = CDbl(IIf(CDbl(a) > b, a, b))

           
End If

       
Else

           
Exit Do

       
End If

    Loop

   
Label1.Caption = "输入的数中最大的是：" & b

End Sub
 
Private Sub Command2_Click()

    Dim a, b As
Integer, c As Boolean

    c =
False

    Do

       
If c = True Then

           
a = InputBox("请输入数值，输入非数字结束。目前最小数为：" & b, "输入数值")

       
Else

           
a = InputBox("请输入数值，输入非数字结束", "输入数值")

       
End If

       
If IsNumeric(a) Then

           
If c = False Then

               
b = a

               
c = True

           
Else

               
b = CDbl(IIf(CDbl(a) < b, a, b))

           
End If

       
Else

           
Exit Do

       
End If

    Loop

   
Label1.Caption = "输入的数中最小的是：" & b

End Sub