vb中Text2.Text = Text2.Text & y(c + 1) & x(k - 1 + i)

将文本框text1和文本框text2的数值相加，应该写完val(text1.text)+val(text2.text),而不是直接text1.text+text2.text。由于在vb中，“+”号即可用来将两个字符相连，有可以用来将两个数相加，因为text中的内容默认为字符型，如果直接用“+”号是实现不了两个数的数值相加的，而是直接将两个数当...

复制代码,运行即可 Private Sub Command1_Click(Index As Integer)Select Case Index Case 0 Text3.Text = Text1.Text = Text2.Text Case 1 Text3.Text = Text1.Text > Text2.Text Case 2 Text3.Text = Text1.Text < Text2.Text Case 3 Text3.Text = Text1.Text <> Text2.Text Cas...

如果是数值相加 private sub command1_click()text3.text=val(text1.text) + val(text2.text)end sub 如果是字符串相加 private sub command1_click()text3.text=text1.text & text2.text '或者text3.text=str(text1.text)+str(text1.text)end sub ...

其实你可以直接 Private Sub Command1_Click()text2.text= "D:\medium\" & text1.text End Sub 运用变量就是多余了

Dim Times As Integer If isInt(Text1.Text) = False Then err = err + "打印初始值不是整数！"ElseIf CInt(Text1.Text) > 999 Or CInt(Text1.Text) < 1 Then err = err + "打印初始值不在1~999之间！"Else a = Text1.Text End If If isInt(Text2.Text) = False Then err =...

Private Sub Command1_Click()Dim n As Integer, i As Integer, k As IntegerFor n = 100 To 999 k = 0 For i = 1 To 3 If InStr(Text1.Text, Mid(n, i, 1)) Then k = k + 1 Next If k > 1 Then Text2.Text = Text2.Text & n & vbCrLfNextEnd Sub ...

Private Sub Command1_Click()'复制 Clipboard.Clear Clipboard.SetText (Text1)End Sub Private Sub Command2_Click()'剪切 Clipboard.Clear Clipboard.SetText (Text1)Text1 = ""End Sub Private Sub Command3_Click()'粘贴 Text2 = Clipboard.GetText End Sub ...

ABS是VB里面的 取绝对值函数 所以你的代码的意思就是：对Text1文本框里面的数字 取绝对值 之后赋值到Text2 文本框中！

多分枝语句一般用 Select Case 文本框 Text1,Text2 Text1为输入成绩,Text2为评分 Select Case Val(Text1.Text) '因为Text1.Text为字符串格式 ，所以要用Val转化为数字 Case 0 To 59 Text2.Text = "不及格"Case 60 To 69 Text2.Text = "及格"Case 70 To 79 Text2.Text = "中"Case 80...