Dim x As Integer
x = Text1
While x > 0
s = s + x Mod 10
x = x \ 10
If x = 0 And s > 9 Then
x = s
s = 0
End If
Wend
Text2 = s
End Sub
Private Sub Form_Load()
Text1 = ""
Text2 = ""
Command1.Caption = "求数根"
End Sub
VB怎么实现在文本框输入文件名“文件1”,点击“打开”按钮,就调用“程...
Private Sub Command1_Click()'可以自行加入判断程序1和文件1是否存在的语句,如下:'If Dir(app.path & "程序1.exe")="" or Dir("D:\\" & Trim(Text1.Text))="" Then Msgbox "文件不存在!"Shell "程序1.exe " & Trim(Text1.text),vbNormal End Sub ...
求VB代码,我在文本框输入文件名(如:1234),要求点击按钮,运行程序打开d...
打开文件包括 文件名和文件路径 这样才能确定一个文件。dir（）vb中的函数 应该可以打开文件
VB中如何在文本框内输入文字的同时,在标签上显示文本框中的文字
代码如下：1、方法一：text1.passwordchar = "*"sub command1_click()label1.caption =text1.text end sub 2、方法二：sub command1_click()label1.caption = string("*",len(text1.text))end sub
求VB如何实现,将TEXT1.TEXT中的文本内容进行处理,每个英文变为A=1...
'form窗体内放置一个textbox控件 Option Explicit Private Sub Form_Load()Dim d As Long, i As Long Dim T As String, T2 As String, Td As Long For i = 0 To Asc("Z") - Asc("A")T = T & Chr(i + 22) & Chr(Asc("A") + i)Next Text1 = T T2 = T d = Len(Tex...
怎么编写vb程序,求两个数的最大公约数
下面编写的VB程序，是利用Sub子程序递归调用方式计算两个数M、N的最大公约数，其中MN，且N≠0。启动VB程序，在“新建工程”界面选择【标准 EXE】，点击【打开】，进入工程页面后，再将最右端下方属性窗口中Form1的“Caption”的内容改为“Sub子程序的递归调用——求两个数的最大公约数”单击最左端...
VB6.0在文本框里输入123456,点击命令按钮则在标签里显示1\/2\/3\/4\/5\/6
dim i as integer dim s as string for i = 0 to len(text1.text)-1 '一个一个字符循环 s = s & mid(text1.text,i+1,1) & " " '每一次都在最后加上单个字符和一个空格 为什么不直接用\/呢？因为直接用的话每次最后一个字符会是“\/”，到了最后成为了1\/2\/3\/4\/。这里暂时用...
Vb 题目在文本框中输入10个数,以逗号分割,单击确定按钮后,将这些数保...
text, ",") '将文本框的字符串按照逗号进行分割，分割后的每个数字赋值给数组a for i=0 to ubound(a) '循环遍历数组a的每一个元素 if b<val(a(i) then b=a(i) '如果b小于当前元素，那么b=当前元素，这样在循环时，b始终=最大值 next msgbox "最大值=" & b '弹出最大值 ...
VB文本框TEXT1中的路径引用到代码中
Text1.text,"=")(1)) <> "" Then '把文本串按=分隔为数组，取第2个元素就是路径。所以文本框中的等号必须要有的，否则就会出错。可以加个出错处理语句。 Form2.Show ...
VB实现点击命令按钮将对单选(复选)按钮的选择状态显示在文本框中
所以你需要遍历这两个单选按钮（多个选项也是同样处理），假设两个单选按钮名字为：opt1,opt2 If opt1.Value = vbChecked then Text1.Text = "你选择了第一个选项"Elseif opt2.Value = vbChecked Then '这里因为只有两个选项，可以直接用：Else Text1.Text = "你选择了第二个选项"End If ...
在vb中,如何使文本框中只允许输入数字
调试运行。按F5，在文本框中输入任意字符，可以看到只有数字能显示在文本框中。按退格键，字符也能正常删除。如果输入的数字可能是小数，那么还要添加如下代码： If KeyAscii = 46 And Not CBool(InStr(txbNumber, ".")) Then Exit Sub 当输入小数点时，程序判断文本框中是否已有小数点（...
