Question

在计算机vb程序中，任意输入若干个字母到文本框1中，通过单击命令按钮将其中的大写字母转换成小写字母

在计算机vb程序中，任意输入若干个字母到文本框1中，通过单击命令按钮将其中的大写字母转换成小写字母，小写字母则转换成大写字母后放置到文本框2中，求完整步骤

Answer 1

首先界面（随便弄的）

其次，button1的代码：

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TextBox1.Text = TextBox1.Text.ToUpper
    End Sub
End Class

好，完成，运行测试

Answer 2

把大写字母转换为小写字母是用LCase函数，所以可以按下面的步骤实现。

1. 打开编程软件，在窗体上绘制一个文本框和一个命令按钮。
   

2. 双击命令按钮，在代码编辑器的单击事件过程中加入下面的语句：

   Private Sub Command1_Click()

   Text1=LCase(Text1.Text)
   

   End Sub

这里的Sub为子过程。

在Visual Basic中的对象对一个事件的发生作出认定时，便自动用相应于控件的名字调用事件的过程。因为名字在对象和代码之间建立了联系，所以说事件过程是附加在窗体或控件上的。

一个控件的事件过程把控件的实际名字、下划线和事件名组合起来。

;一个窗体事件过程把词汇Form、下划线和事件名组合起来。如果正在使用MDI窗体，则事件过程把词汇“MDIForm”、下划线和事件名组合起来。

所有的事件过程使用相同的语法。
Sub 对象名_事件（声明）
语句
End Sub

虽然可以自己编写事件过程，但使用VisualBasic提供的代码过程会更方便，这个过程自动把正确的过程名包括进来。从对象框中选择一个对象，从过程框中选择一个过程之后，就可以在代码编辑器中选择一个模板。

在开始为控件编写事件过程之前先设置控件的Name属性，如果对控件添加一个过程之后又更改控件的名字，那么也必须更改过程的名字，以符合对象的新名字。否则VisualBasic无法使控件和过程相符。过程名与控件明不符时，过程就变为通用过程。

Answer 3

大小写，asc码差32。大写加32，打印asc码就行了

Answer 4

把大写字母转换为小写字母是用LCase函数，所以可以按下面的步骤实现。打开编程软件，在窗体上绘制一个文本框和一个命令按钮。双击命令按钮，在代码编辑器的单击事件过程中加入下面的语句：PrivateSubCommand1_Click()Text1=LCase(Text1.Text)EndSub这里的Sub为子过程。在VisualBasic中的对象对一个事件的发生作出认定时，便自动用相应于控件的名字调用事件的过程。因为名字在对象和代码之间建立了联系，所以说事件过程是附加在窗体或控件上的。一个控件的事件过程把控件的实际名字、下划线和事件名组合起来。;一个窗体事件过程把词汇Form、下划线和事件名组合起来。如果正在使用MDI窗体，则事件过程把词汇“MDIForm”、下划线和事件名组合起来。所有的事件过程使用相同的语法。Sub对象名_事件（声明）语句EndSub虽然可以自己编写事件过程，但使用VisualBasic提供的代码过程会更方便，这个过程自动把正确的过程名包括进来。从对象框中选择一个对象，从过程框中选择一个过程之后，就可以在代码编辑器中选择一个模板。在开始为控件编写事件过程之前先设置控件的Name属性，如果对控件添加一个过程之后又更改控件的名字，那么也必须更改过程的名字，以符合对象的新名字。否则VisualBasic无法使控件和过程相符。过程名与控件明不符时，过程就变为通用过程。

Answer 5

Ucase函数和Lcase函数可以实现。
Ucase("字符串")将字符串中所有小写字母转换成大写.
Lcase("字符串")将字符串中所有大写字母转换成小写。

追问

这个我知道，但是这道题应该怎么运用这个呢

追答

Private Sub Command1_Click()
Text2.Text = UCase(Text1.Text)
End Sub
'在窗体上画三个控件Command1 ，text1，text2 然后复制该语句即可。

追问

题目都没有看清楚好不好，这是任意输入大小写再在text2中改写

追答

Private Sub Command1_Click()
Dim str1 As String '写原来的字符串
Dim str2 As String '写原来的字符串
str1 = Text1.Text
Text1.Text = LCase(Text1.Text)

For I = 1 To Len(str1)
If Asc(Mid(str1, I, 1)) > 90 Then
str2 = str2 + Mid(str1, I, 1)
End If
Next I
Text2.Text = UCase(str2)

End Sub
'这个 命令按钮是Command1 2个文本框是text1和text2
'帮我改成能运行吧 谢谢了

追问

我可以告诉你还是和要求不一样么，要求是在text1输入大小写，text2得出相反的。就像ahjHJ换了后变成AHJhj