在名称为Form1，标题为“输入3个Q结束输入”的窗体上，画三个文本框，名称为Text1、Text2、Text3初始内容
在名称为Form1，标题为“输入3个Q结束输入”的窗体上，画三个文本框，名称为Text1、Text2、Text3初始内容为空；三个标签，名称为Lab1、Lab2、Lab3, 标题分别为“A的个数为”、“B的个数为”、“C的个数为”；三个命令按钮，一个名称为C1，标题为“输入并计数”；一个名称为C2，标题为“清除”； 另一个名称为C3，标题为“退出”；界面如图所示。
请编写适当的事件过程，使得在运行时，单击“输入并计数”按钮，由Inputbox输入10个任意字母，每次输一个，然后统计“A”“B”“C”的个数（不区分大小写），如果连续输入3个Q则结束输入。在Text1中显示“A”的个数，Text2中显示“B”的个数，Text3中显示“C”的个数。单击“清除”按钮，则清除3个文本框的内容，并使得焦点在C1上；单击"退出"按钮则退出应用程序。
Dim s(10)
Text1 = 0
Text2 = 0
Text3 = 0
For i = 1 To 10
Do
s(i) = InputBox("输入第" & i & "个任意字母")
Loop Until Len(s(i)) = 1 And UCase(s(i)) >= "A" And UCase(s(i)) <= "Z"
If i >= 3 Then If UCase(s(i)) & UCase(s(i - 1)) & UCase(s(i - 2)) = "QQQ" Then Exit For
If UCase(s(i)) = "A" Then
Text1 = Val(Text1) + 1
ElseIf UCase(s(i)) = "B" Then
Text2 = Val(Text2) + 1
ElseIf UCase(s(i)) = "C" Then
Text3 = Val(Text3) + 1
End If
Next
End Sub
Private Sub C2_Click()
Text1 = "'"
Text2 = ""
Text3 = ""
C1.SetFocus
End Sub
Private Sub C3_Click()
Unload Me
End Sub
更正，倒数第8行改为
Text1 = ""
追问能否不用 DO LOOP？这个还没学。能看下这个问题在那里吗？
这个是我写得。问题老是说inputbox那一步有问题，求解。
刚试了一下你这个，8，9，10行有语法错误啊。直接显示红色的了。。。
百度知道又把代码显示乱码了，无奈。。。
你的代码基本没错，除了第一个定义：
Dim r%
改成：
Dim r$
另外，你没实现输入3个Q退出
...为Form1的窗体上,画两个文本框,名称为text1,text2,均无初始内容_百 ...
Private Sub Text1_Change()Text2.Text = Text1.Text End Sub
在名称为Form1的窗体上画一个文本框,名称为Text1;画两个命令按钮,名称...
在名称为Form1的窗体上画一个文本框,名称为Text1;画两个命令按钮,名称分别为Cmd1、Cmd2、标题分别为“隐藏”、“显示”。要求:(1)请编写适当的事件过程,使得在运行时,如果单击... 在名称为Form1的窗体上画一个文本框,名称为Text1;画两个命令按钮,名称分别为Cmd1、Cmd2、标题分别为“隐藏”、“显示”。要...
1.在窗体上设计三个名称分别为Text1、Text2、Text3的文本框,一个名称为...
Private Sub Command1_Click()a = Val(Text1)b = Val(Text2)For i = a To b If prime(i) Then Text3 = Text3 & i & vbCrLf Next i End Sub Private Sub Form_Load()Text1 = ""Text2 = ""Text3 = ""End Sub Function prime(n) As Boolean prime = False For i = 2 To ...
在名称为form1的窗体上设置一个名称为text1的文本框,程序运行后,用户在...
这个必须要写代码，textBox好像就没有这样的属性，ToUpper()属性将写的数字变成大写
在窗体Form1上画一个文本框,名称为Text1,内空。再画一个命令按钮,名称...
新建窗体Form1，放置一个按钮Command1和一个文本框Text1 代码编写如下：Private Sub Command1_Click()Text1.Text = InputBox("请输入数值")End Sub
在窗体上画一个文本框,其名称为Text1,为了程序运行后隐藏该文本框,应使...
在窗体上画一个文本框,其名称为Text1,为了程序运行后隐藏该文本框,应使用 我来答 分享 微信扫一扫 网络繁忙请稍后重试 新浪微博 QQ空间 举报 浏览8 次 可选中1个或多个下面的关键词,搜索相关资料。也可直接点“搜索资料”搜索整个问题。 文本框 程序运行 窗体 名称 隐藏 搜索资料 本地图片 图片链接...
在名称为Form1的窗体上画一个标签(名称为Label1,标题为"输入信息"),
1、首先我们新建一个项目。2、在项目管理器中,我们右击,选择"添加",选择"windows窗体"。3、输入窗体名,点击"确定"。4、我们给form1拖入按钮控件。5、在项目管理器中,我们找到"Form1.Designer.cs",双击打开代码窗口。6、我们找到按钮的定义,然后把private改为public。7、把以下代码填入代码窗品中Form...
在名称为Form1的窗体上,画一个文本框和两个命令按钮。
1.新建窗体，添加文本框和命令按钮，改命令按钮标题为“输入”，“取消”。2.新建宏，在“操作”栏中选择“setvalue”，在宏设计视图下方的操作参数内的“项目”栏输入[Forms]![Form1]![Text1]，在“表达式”栏输入“"祝你考试成功！"（注意文字前后有加英文的前后引号）”。保存宏为“宏1”3....
...命令按钮和一个文本框(名称分别为Command1和Text1),并把窗体的KeyP...
答案选择A。因为把窗体的KeyPreview属性设置为True后，优先激活键盘的KeyPress事件。注意哦，SaveAll的初始值是一个空字符串。
...在名称为Form1的窗体上画一个文本框,名称为Text1,其初始内容为0;画...
TabIndex = 1 Top = 960 Width = 2175 End Begin VB.TextBox Text1 Height = 375 Left = 1320 TabIndex = 0 Text = "0"Top = 360 Width = 2055 End End Attribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = False Attribu...
