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

Private Sub Form_Click()Text1.Visible = FalseText2.Visible = TrueEnd SubPrivate Sub Form_DblClick()Text1.Visible = TrueText2.Visible = FalseEnd Sub

两个文本框分别为text1和text2 代码 dim i i=text1.text+text2.text msgbox"答案为" & i

Dim Str As String '用来存储表达式 Dim SCtl As Object Set SCtl = CreateObject("MSScriptControl.ScriptControl") '创建并存储ScriptControl对象 Str = Text1.Text '将表达式的值传递给Str SCtl.Language = "VBScript" '设置脚本语言为 Text2.Text = SCtl.Eval(Str) '计算表达式的值 ...

dim i as integer dim j as integer dim m as integer m=1 i=val(text1.text) '这句应该把字符转换为数字类型才对，否则Text1输入非数字字符就会出错 For j=2 to i m=j*m next j text2.text=m '该代码是求得text1内的数字的乘阶。例如：text1内如果是输入10那么运行后text2得出1...

Private Sub Command1_Click()Dim a a = CInt(Text1.Text)Randomize Text2.Text = Int((Rnd * 4 + a)*10)/10 End Sub

Private Sub Command1_Click()Text1.Text = Replace(Text1.Text, "一", "")End Sub Private Sub Command2_Click()Text1.Text = Replace(Text1.Text, "二", "")End Sub Private Sub Command3_Click()Text1.Text = Replace(Text1.Text, "三", "")End Sub Private Sub Command4_Click(...

在框架里面画一个按钮。把caption属性改为“计算”。双击“计算”，输入以下代码：dim a as integer,b as integer,c as integer,d as integer,sum as single a=val(text2.text)b=val(text3.text)c=val(text4.text)d=val(text5.text)sum=(a+b+c+d)/20 text17.text=format(sum,"0.00...

text1.text中：text1是指一个名（name属性）叫"text1"的控件；text是指这个控件的text属性。比如在窗体上有一个textbox，名叫text1，要取得这个文本框里输入的文本，就用text1.text text不知你指的是什么

最好把这些text搞成控件数组，这样计算的时候比较方便：Private Sub Command1_Click()Dim obj As TextBox, s1 As Long, s2 As Long For Each obj In Text1 If obj.Index < 10 Then s1 = s1 + Val(obj.Text)Else s2 = s2 + Val(obj.Text)End If Next Print s1, s2 End Sub 如果不...

Line Input #1, s 从文件中读取一行放到s的变量中，所以Text1.Text = s的意思为把读取的那行数据（也就是放在s里的数据）输入到text1中 Dim n As Integer s = Text1.Text '把text1的数据放到s中 s1 = RTrim(Text2.Text) '去掉text2中文字右边所有空格，并将处理后的数据放到s1中 Do...