一道VB综合应用题 创建一个应用程序，窗体Form1上有2个文本框Text1、Text2.要求当Text1中输入字符时
创建一个应用程序，窗体Form1上有2个文本框Text1、Text2.要求当Text1中输入字符时，将Text1中的字符转换后写入Text2，转换规则为：
1）Text1中的大写字母转换为小写字母
2）Text1中的小写字母转换为大写字母
3）Text1中的空格不转换
4）Text1中的其他字符转换为星号（*）
注：大写字母ASCII码在65~90之间，比相应的小写字母大32；当文本框Text1中输入字符时会触发事件Private Sub Text1_KeyPress(KeyAscii As Integer),其中KeyAscii为输入字符的ASCII码
因为有可能按下回退删除键，所以应当每次都将text1字符串全串转换后付值给text2.单字符式的转换会出现text1,text2不一样长的情况。
Select Case KeyAscii
Case 65 To 90
Text2.Text = Text2.Text + LCase(Chr(KeyAscii))
Case 97 To 122
Text2.Text = Text2.Text + UCase(Chr(KeyAscii))
Case 32
Text2.Text = Text2.Text + UCase(Chr(KeyAscii))
Case Else
Text2.Text = Text2.Text + "*"
End Select
End Sub本回答被提问者采纳
VB,在窗体上添加两个文本框text1和text2.要求在文本框Text中输入字符时...
Private Sub Text1_Change() If Len(Text1) > 15 Then Text2 = Mid(Text1, 16) & Text2 Text1 = Left(Text1, 15) End IfEnd Sub
VB悬赏100分用VB编解任意一元二次方程,有两个TEXT框,TEXT1里输入方程...
'添加窗体Form1,文本框Text1,Text2,按钮Command1,然后添加如下代码:PrivateSubCommand1_Click()Text2.Text=compuResult(Text1.Text)EndSub '根据二元一次方程的表达式直接返回其根的表达式 PrivateFunctioncompuResult(strCalcAsString)AsString Dimsa,sb,scAsString Dima,b,c,x1,x2AsSingle OnErrorResume...
一个窗体中有两个文本框text1,text2,一个按钮command1
如果是要求所有数组元素按当前规律都参与 那可以用循环演算 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
设置两个文本框,text1和text2,在1中输入日期如2011-01-12,如何在2中...
Text2.Text = T End If End Sub Private Sub Command2_Click()Dim T As Date '设置一个日期变量 If IsDate(Text1.Text) Then '判断Text1的内容是否为日期 T = Text1.Text T = DateAdd("yyyy", 1, T) '"yyyy"表示“年”，1就是加1年 Text3.Text = T End If End Sub ...
在名称为Form1的窗体上画两个文本框
在属性窗口中设置Text2的MultiLine属性为True 设置Text2的ScrollBars属性为3 设置Text1的PasswordChar属性为
(vb程序设计)求代码:设计一个运行界面如下图所示的程序,要求单击...
Private Sub Command1_Click()End End Sub Private Sub Form_Load()Dim i As Integer For i = 0 To Screen.FontCount - 1 Combo1.AddItem Screen.Fonts(i)Next Combo1.ListIndex = 0 For i = 6 To 40 Step 2 Combo2.AddItem i Next Combo2.ListIndex = 12 Text1.Font.Size = Combo...
VB两个文本框在text1中输入任意一字符串,单击命令按钮后字符串以反...
Len(n)Mid(n,i,1)c
...上画两个名称分别为Text1,Text2的文本框.Text1的Text属
Text2.Text = Mid(Text1, 5, 5)这句的意思是从text1里的第5个字符开始，取5个字符，填入text2。根据题目，输入no后text1的内容是"noVeryGood!",第5个是"r"，连续5个字符就是"ryGoo"
在窗体Form1上画一个文本框,名称为Text1,内空。再画一个命令按钮,名称...
新建窗体Form1，放置一个按钮Command1和一个文本框Text1 代码编写如下：Private Sub Command1_Click()Text1.Text = InputBox("请输入数值")End Sub
在名称为Form1的窗体上画一个文本框,名称为Text1;画两个命令按钮,名称...
在名称为Form1的窗体上画一个文本框,名称为Text1;画两个命令按钮,名称分别为Cmd1、Cmd2、标题分别为“隐藏”、“显示”。要求: (1)请编写适当的事件过程,使得在运行时,如果单击“隐藏”按钮,则文本框消失,而如果单击“显示”按钮,则文本框显示出来。程序运行界面如图7所示。 (2)将应用程序打包,并安装运行。
