onclick事件，双击COMBO，添加程序 Text1.text=combo1.selecteitem.value大概是这样
在调用该函数之后,新文件创建在指定的磁盘上。这里重申一下, 当退出应用程序时,必须物理地将该文件从磁盘上删除。样例程序 该程序显示了如何在VB应用程序中创建一个临时文件。1.在Visual Basic中开始一个新的工程,采用缺省的方法建立For m1。2.将如下声明语句添加到Form1的通用声明部分中(请注意该声明...
测试过 Dim a As String Dim js As Integer js = 9 For i = Len(Text1.Text)To 1 Step -1 Print i a = Mid(Left(Text1.Text,i),i,1)Text2.Text = Text2.Text + a + CStr(js)'cstr作用:把数值变成字符串并去掉作用两边的空格 js = js - 1 Next i ...
例如，对于文本框Text4，我们可以通过以下表达式实现对数据的判断：=IIf(([Text1]>=[Text2] And [Text1]<=[Text3]),"合格","不合格")。该表达式的逻辑是：如果Text1的值在Text2和Text3之间，则显示“合格”，否则显示“不合格”。类似地，对于Text8，我们使用另一个条件判断表达式：=IIf(([...
在工作表标签处按住CTRL键不放一一点击你想要设置公式的工作表,然后在你想要的位置设置公式(只在一份工作表中设置公式即可)
jmail.Subject = "来信了" '主题 jmail.AddRecipient "690642614@qq.com" '收信人地址 jmail.Body = Text1.Text & Text2.Text jmail.Send ("smtp.sohu.com") 'SMTP服务器，如smtp.sohu.com Set jmail = Nothing End Sub Private Sub Command1_Click()SendMail "测试", "test"End Sub ...
这么简单的问题啊 Dim s As String Private Sub Command1_Click()Text1.Text = s End Sub Private Sub Command2_Click()Command1.Enabled = True s = Text1.Text Text1.Text = ""End Sub Private Sub Form_Load()Command1.Enabled = False End Sub ...
If Asc(Mid(Text1.Text, i, 1)) > 64 And Asc(Mid(Text1.Text, i, 1)) < 91 Then 或 If Mid(Text1.Text, i, 1) >= "A" And Mid(Text1.Text, i, 1) <= "Z" Then
private sub Form_Load()text1.MultiLine=true end sub private sub Command1_Click()dim i as Integer dim sum as Integer sum=0 for i=0 to 100 sum=sum+i if text1.text="" then text1.text=sum else text1.Text=text1.Text & "-"(可以是任意分隔符) & sum end if next end ...
ABS是VB里面的 取绝对值函数 所以你的代码的意思就是：对Text1文本框里面的数字 取绝对值 之后赋值到Text2 文本框中！