If Not (Asc("a ") <= KeyAscii And KeyAscii <= Asc("z ") Or _
Asc("A ") <= KeyAscii And KeyAscii <= Asc("Z ")) Then
KeyAscii = 0
End If
Text2.Text = StrReverse(Text1.Text)
End Sub追问
反序输出会少一个字母
本回答被网友采纳设计一个只接受字母键的文本框,在文本框text1中输入一串字符时,文本框...
Private Sub Text1_KeyPress(KeyAscii As Integer)If Not (Asc("a ") <= KeyAscii And KeyAscii <= Asc("z ") Or _Asc("A ") <= KeyAscii And KeyAscii <= Asc("Z ")) Then KeyAscii = 0 End If Text2.Text = StrReverse(Text1.Text)End Sub ...
编一个vb程序:当点击command按钮后,text2中的文本框只显示text1.text...
或 If Mid(Text1.Text, i, 1) >= "A" And Mid(Text1.Text, i, 1) <= "Z" Then
VB两个文本框在text1中输入任意一字符串,单击命令按钮后字符串以反...
Mid(n,i,1)c
vb怎样将text1中输入字母在text2中自动转换成数字?
text2.text = Replace(text1.text, "a", "1")text2.text = Replace(text2.text, "b", "2")text2.text = Replace(text2.text, "c", "3")text2.text = Replace(text2.text, "d", "4")text2.text = Replace(text2.text, "e", "5")text2.text = Replace(text2.text, "...
用vb如何把一个文本框(text1)中的任意一行内容,添加到另一个文本框(t...
用来seltext确定text1选中的内容就可以了，如在text2中显示:text2=text1.seltext,大致思路是这样的～
1、表单运行后在文本框text1、text2中分别输入2个数值,单击“结果...
a=thisform.textl.value b=thisform.text2.value m=max(a,b)n=min(a,b)thisform.text3.Value= m thisform.text4.Value= n
从text1文本框中输入一个数,判断这个数是否为零或正负整数,并在text...
dim a as integer a =val(text1.text)if a>0 then text2.text="正整数"elseif a=0 then text2.text="零"else text2.text="负整数"end if
vb中如何使text1中输入内容立即显示在text2中
Text=Text1.Text。EndSub。操作要点：1、设置程序界面，包括标签，文本框，命令按钮。2、再按照题目要求，设置对象的属性。3、编写程序的代码。先定义变量。4、使用For-Next循环结构语句，编写的代码。5、在For-Next循环结构语句中，还要再嵌套一个If语句。6、运行程序，输入某个正数，验证结果。
请问:向文本框text1输入一个大写字母,通过点击command按钮在另一...
与字母对应数字？是对应的ASCII码值吗？具体代码如下：Private Sub Command1_Click()Text2 = Asc(Text1)End Sub
一个窗体中有两个文本框text1,text2,一个按钮command1
直接替换为 y=a(0)*X*X+b(0)*X+a(1)*X*X+b(1)*X 如果是要求所有数组元素按当前规律都参与 那可以用循环演算 for i =0 to ubound(a) step 2 y=a(i)*X*X+b(i)*X+a(1+i)*X*X+b(1+i)*X next
