End Sub
?x2?y2,(x?y?1)??z??0,(x?0)4．编程计算分段函数的值。要求用InputBox函数输入x,y的
?x,(x??1)??值，单击命令按钮（标题为“计算”）后，用文本框中输出计算结果z 。
5 编程实现求Sum=1+（1+2）+（1+2+3）+（1+2+3+4）+ ? ? +(1+2+3+4+ ? + n) 。程序运行时，
在文本框中输入n的值，点击“计算”命令按钮，将计算的结果显示在标签上。程序运行界面如下图。
Private Sub Command1_Click() Dim n%, sum%, i%, j% n = Val(Text1) For i = 1 To n For j = 1 To i sum = sum + j Next j Next i
Label2 = \End Sub
Private Sub Form_Load() End Sub
6 编写一个程序, 其功能为输入货物的数量及单价,求总价,并输出。窗体上的两个标签的标题分别为\货
26
物的数量(个)：\和\货物的单价(元)：\在两个文本框中输入相应的数据, 当按“总价”按钮时，在右下方的图形框中显示原价和折扣价。当原价达到2000元以上时，按8折计算折扣价；当原价达到1000元以上时，按9折计算折扣价。程序运行界面如下图。
Private Sub Command1_Click() zj = Val(Text1) * Val(Text2) If zj < 1000 Then zkj = zj ElseIf zj < 2000 Then zkj = zj * 0.9 Else
zkj = zj * 0.8 End If
Label3 = \原 价:\Label3 = Label3 & \折扣价:\End Sub
Private Sub Form_Load() End Sub
7 编程实现：单击“加密”按钮后，将上方文本框中的字符串加密后显示在下方的文本框中。加密的
方法是：把明文中的每个字母改为它后面的那个字母(\后面的字母认为是\后面的字母认为是\。程序运行界面如下图。
27
Private Sub Command1_Click() Dim ch As String Text2 = \ch = Text1 For i = 1 To Len(ch) x = Asc(Mid(ch, i, 1)) Print x
If x = 90 Then y = 65 Else y = x + 1 If x = 122 Then y = 97 Else y = x + 1 Text2 = Text2 + Chr(y) Next i End Sub
Private Sub Form_Load() End Sub
8 编程实现：程序运行时，输入一个大于1的正整数到文本框中，选择\偶数和\或\奇数和\，单击\计算\按钮时，则在左下方的标签控件中显示所选的计算类别和计算结果。计算规则：将按照选定的\计算类别\计算小于或等于输入数据的正偶数和或正奇数和。程序运行界面如下图。
28
Private Sub Command1_Click() n = Val(Text1)
If Option1.Value = True Then For i = 2 To n Step 2 Sum = Sum + i Next i
Label2 = \正\Else
For i = 1 To n Step 2 Sum = Sum + i Next i
Label2 = \正\End If End Sub
Private Sub Form_Load() End Sub
9 编程实现：在窗体上的4个文本框中各输入一个整数作为各数组元素的值，然后单击命令按钮，在窗体上显示出数组元素中的最小值。
29
10 程序运行后，在窗体的文本框中输入有关信息(\密码\文本框中显示\字符)，然后单击\提交\按钮，则在右边列表框中显示相关信息。单击\重输\按钮，则清空三个文本框和列表框中数据。程序运行界面如下图。
Private Sub Command1_Click() List1.AddItem Text1 List1.AddItem Text2 List1.AddItem Text3 End Sub
Private Sub Command2_Click() Text1 = \Text2 = \Text3 = \List1.Clear End Sub
'text3设置password属性为*，maxlength属性为6 Private Sub Form_Load() End Sub
30
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库VB练习题（上机）含答案(6)在线全文阅读。
相关推荐：