text1.tagext=""代表什么意思 VB问题

下面vb代码中最后几句中的“Text1 = Text1 & a(i) & vbCrLf”的作用是什么?vbcrlf是什么意思
下面vb代码中最后几句中的“Text1 = Text1 & a(i) & vbCrLf”的作用是什么?vbcrlf是什么意思
option Base 1 Private Sub Command1_Click() Dim n As Integer, a() As Integer, i As Integer Dim k As Integer n = Val(InputBox(&输入一个整数&)) For i = 1 To n If n Mod i = 0 Then k = k + 1 ReDim Preserve a(k) a(k) = i End If Next For i = 1 To k Text1 = Text1 & a(i) & vbCrLf Next End Sub
相当于是在text1中追加a(i)代表的字符串,
并另起一行,
“Text1 = Text1 & a(i) & vbCrLf
的作用是把数组a中的所有的数依次写入文本框 text1中,以便让文本框 Text1能显示数组 a 所有的数,vbcrlf 的作用是回车换行,也就是写一个数,行一行。
其他回答 (1)
my godVBCRLF是一个字符串常数
  vbCrLf 就是一种VB编程语言,他的意思是换行的意思
相关知识等待您来回答
编程领域专家
& &SOGOU - 京ICP证050897号您还未登陆,请登录后操作!
VB.NET数据库插入问题
中时,无法正常插入,报错一直是致命性错误。
代码如下
Dim m_strConnection As String
Dim m_SqlConn As MySqlConnection
m_strConnection = &server= ;uid=pwd=;database= ;pooling=false&
m_SqlConn = New MySqlConnection(m_strConnection)
Dim insertC As String = &insert into compte (Civilite,Nom,Prenom, & & _
&Email, Telephone,Address,Code postale,Date de naissance,Abonnement )values(@
Dim cmd As New MySqlCommand()
&Dim insertC As String = &insert into compte (Civilite)values(&M&)&
cmd.Connection = m_SqlConn
mandText = insertC
mandType = CommandType.Text
cmd.Parameters.AddWithValue(&@civilite&, civilite)
cmd.Parameters.AddWithValue(&@nom&, TextBox1.Text)
cmd.Parameters.AddWithValue(&@prenom&, TextBox2.Text)
cmd.Parameters.AddWithValue(&@email&, TextBox3.Text)
cmd.Parameters.AddWithValue(&@telephone&, TextBox4.Text)
cmd.Parameters.AddWithValue(&@address&, TextBox5.Text)
cmd.Parameters.AddWithValue(&@code postale&, TextBox6.Text)
cmd.Parameters.AddWithValue(&@date de naissance&, DateTimePicker1.Value)
cmd.Parameters.AddWithValue(&@abonnement&, abonnement)
&&@date de naissance,Date de naissance,
&MessageBox.Show(nom + prenom + adresse + email + abonnement + telephone + adresse + codePostale + dateNaissance + civilite)
m_SqlConn.Open()
cmd.ExecuteNonQuery()
Catch ex As MySqlException
MessageBox.Show(&Error connecting to the server: & + ex.Message)
m_SqlConn.Close()
大家还关注
有vb的高手没求助,程序执行时老出现错误...您还未登陆,请登录后操作!
一个关于VB的问题
方面学地比较好的话,希望你能把QQ号告诉我,这样我好与你进行切磋,谢谢了
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
If Text1.Text = "" Or Text2.Text = "" Or IsNumeric(Text1) = False Or IsNumeric(Text2) = False Then
MsgBox "请输入数字", vbOKOnly + vbExclamation, "输入错误"
a = Val(Text1.Text)
b = Val(Text2.Text)
If a & b Then
Label1.Caption = a & " & " & b
ElseIf a & b Then
Label1.Caption = a & "& " & b
ElseIf a = b Then
Label1.Caption = a & " = " & b
ommand1_Click()
Dim a As Single
Dim b As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
If a & b Then Label1.Caption = a & &&& & b
If a & b Then Label1.Caption = a & &&& & b
If a = b Then Label1.Caption = a & &=& & b
End Sub
a & &&& & b
大于号加上引号是以字符显示出来,
&a & b&
这样打也只是显示 a & b,不显示数字,
我也是初学者,以后互相帮助吧
Label1.Caption = "a & b"
Label1.Caption = a & "&" & b
小于和等于类似
您的举报已经提交成功,我们将尽快处理,谢谢!
大家还关注Label1.Caption = Form1.Text1.Text&Space(3)&_ &br/&VB里面这段语句说是缺少:结束语句&br/&问下应该怎么改
Label1.Caption = Form1.Text1.Text&Space(3)&_ VB里面这段语句说是缺少:结束语句问下应该怎么改
自由宿主后台管理系统官方网站--天智海网络
邮箱: 链接:
Label1.Caption = Form1.Text1.Text & Space(3) &_&
Label1.Caption = Form1.Text1.Text & Space(3) & "aaa"
vb里面用 _表示多行显示,比如
Dim s As String
s = "abc" &_
&&&&& "def" &_
&&&&& "ghi"
Private Sub Form_Load()Label1.Caption = Form1.Text1.Text&Space(3)&_Form.Text2.Text& Space(3) & foem1.Text3.TextEnd Sub
我改了为什么还是不能执行?
&符号首位加空格:
Label1.Caption = Form1.Text1.Text & Space(3) & _Form.Text2.Text & Space(3) & foem1.Text3.Text
还有,确定Form1,Form和foem1对象是否存在,Label的当前窗体只能用Me来引用
那应该怎么改?
不是已经给你改了发上去了,但是你工程里有没Form1,Form和foem1这几个窗体我就不知道了,也不知道你Label1是在哪个窗体的。
为什么还是错的?
&符号首尾加空格
前面不是已经说了,我看你代码还是全部连在一起的!
Private Sub Form_Load()Label1.Caption = Form1.Text1.Text&Space(3)&_"aaa"Form.Text2.Text& Space(3) & foem1.Text3.TextEnd Sub我现在是这么写的.但是他说还是错的
Label1.Caption = Form1.Text1.Text & Space(3) & _"aaa"
&符号首尾加空格!!!!!!!!!!!!!!!!!
还是红颜色的..
这里还有一个!!!!你改东西怎么就老改一半呢?
提问者 的感言:3Q 相关知识
其他回答 (2)
不会。。。。。
Label1.Caption = Form1.Text1.Text&Space(3)&_
相关知识等待您来回答
编程领域专家
& &SOGOU - 京ICP证050897号下面vb代码中最后几句中的“Text1 = Text1 & a(i) & vbCrLf”的作用是什么?vbcrlf是什么意思_百度知道
下面vb代码中最后几句中的“Text1 = Text1 & a(i) & vbCrLf”的作用是什么?vbcrlf是什么意思
option Base 1 Private Sub Command1_Click() Dim n As Integer, a() As Integer, i As Integer Dim k As Integer n = Val(InputBox(&输入一个整数&)) For i = 1 To n If n Mod i = 0 Then k = k + 1 ReDim Preserve a(k) a(k) = i End If Next For i = 1 To k Text1 = Text1 & a(i) & vbCrLf Next End Sub
提问者采纳
相当于是在text1中追加a(i)代表的字符串, 并另起一行,
其他类似问题
为您推荐:
其他1条回答
“Text1 = Text1 & a(i) & vbCrLf “ 的作用是把数组a中的所有的数依次写入文本框 text1中,以便让文本框 Text1能显示数组 a 所有的数,vbcrlf 的作用是回车换行,也就是写一个数,行一行。
vbcrlf的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁

我要回帖

更多关于 text1.tag 的文章

 

随机推荐