UC知道VB程序试题 急~~~ 谁能帮我做出来 （在线等）
来源：百度知道 编辑：UC知道 时间：2024/07/01 06:10:01
1。设计一个程序：在文本框Text1中输入一个种水果中文名称。
在Command1的单击事件中完成：对Text1中的水果名称，如果是以下水果之一，则在Text2中显示水果价格，否则在Text2中显示“对不起,无此水果”（不包含引号，使用一个西文逗号）。能显示的水果及价格如下：
梨：2.1
苹果：4.88
西瓜：1.05
桔子：2.28
如：
输入：苹果 输出：4.88
输入：菠萝 输出：对不起,无此水果
2。在窗体的Load事件中，随机产生100个三位正整数，以一个空格为间隔放入文本框Text1中；在Command的单击事件中完成：从文本框中读取100个数据，按从大到小的顺序在标签Label1中显示。每行5个，每个之间用逗号间隔（包括行尾仍用逗号）。
提示：
1）将一系列以空格间隔的数据放入数组可以采用以下语句：
Dim A
A = Split(Trim(Text1.Text))
文本框数据以空格为分隔符把数据分割到数组A中，数组下界为0，上界为UBound(A)
2）标签Label1中用Chr(13) + Chr(10)换行
3。在窗体上画一个名称为Combo1的组合框，画两个名称分别Label1和Label2，其Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”；如果存在，则在Label2中给出提示“输入项已在组合框中”。
4。设计一个程序：复选框Check1～Check4分别按序表示着"粗体"、"斜体"、"下划线"、"删除线"4种不同的选项。
在Command1的单击事件中完成：设置文本框Text1的字体为“宋体”，字号为48磅，文本内容只有当“删除线”选中时为“Err”，在“删除线”未选中的其它情况下均为“好”（不包括引号）。然后根据复选框中的选择，修
在Command1的单击事件中完成：对Text1中的水果名称，如果是以下水果之一，则在Text2中显示水果价格，否则在Text2中显示“对不起,无此水果”（不包含引号，使用一个西文逗号）。能显示的水果及价格如下：
梨：2.1
苹果：4.88
西瓜：1.05
桔子：2.28
如：
输入：苹果 输出：4.88
输入：菠萝 输出：对不起,无此水果
2。在窗体的Load事件中，随机产生100个三位正整数，以一个空格为间隔放入文本框Text1中；在Command的单击事件中完成：从文本框中读取100个数据，按从大到小的顺序在标签Label1中显示。每行5个，每个之间用逗号间隔（包括行尾仍用逗号）。
提示：
1）将一系列以空格间隔的数据放入数组可以采用以下语句：
Dim A
A = Split(Trim(Text1.Text))
文本框数据以空格为分隔符把数据分割到数组A中，数组下界为0，上界为UBound(A)
2）标签Label1中用Chr(13) + Chr(10)换行
3。在窗体上画一个名称为Combo1的组合框，画两个名称分别Label1和Label2，其Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”；如果存在，则在Label2中给出提示“输入项已在组合框中”。
4。设计一个程序：复选框Check1～Check4分别按序表示着"粗体"、"斜体"、"下划线"、"删除线"4种不同的选项。
在Command1的单击事件中完成：设置文本框Text1的字体为“宋体”，字号为48磅，文本内容只有当“删除线”选中时为“Err”，在“删除线”未选中的其它情况下均为“好”（不包括引号）。然后根据复选框中的选择，修
第一题：
private sub command1_click()
select case text1
case "梨"
text2=2.1
case "苹果"
text2=4.88
case "西瓜"
text2=1.05
case "橘子"
text2=2.28
case else
text2="对不起，无此水果"
end select
end sub
第二题：
dim a(1 to 100)%
private sub form_load()
for i=1 to 100
randomize
a(i)=int(rnd*900+100)
text1=text1+" "+a(i)
next i
end sub
private sub command1_click()
for i=1 to 100
for j=i to 100
if a(i)<a(j) then t=a(i):a(i)=a(j):a(j)=t
next j
next i
for i=1 to 100
label1=label1+a(i)+","
if i mod 5=0 then print
next i
是不是要考试了？？？？