求大神帮忙做一下这个大学VB程序设计的实验报告!
Private Sub Command1_Click()Dim a As Integer, b As String, i As Integer, c() As Stringa = Len(Text1.Text)Print aReDim c(a) As StringFor i = 1 To ab = Mid(Text1.Text, i, 1)Select Case bCase "a" To "z"c(i) = UCase(b)Case "A" To "Z"c(i) = LCase(b)Case Elsec(i) = Chr(32)End SelectNext iText1.Text = ""For i = 1 To aText1.Text = Text1.Text & c(i)Next iEnd Sub2、Private Sub Form_click()Dim a(5) As Double, i As Integer, j As Integer, k As Integer, sum As DoubleDim flag As Boolean, how As BooleanFor i = 1 To 5a(i) = Val(InputBox("please input", "input number"))sum = sum + a(i)Next iIf sum > 450 Thenflag = Truehow = TrueEnd IfFor k = 1 To 5If a(k) > 88 Thenflag = Truehow = TrueEnd IfNext kFor j = 1 To 3If a(j) > 95 Then flag = TrueNext jFor k = 4 To 5If a(k) > 80 Then how = TrueNext kIf flag = True And how = True ThenPrint "excellent"End IfEnd Sub3、Private Sub Form_click()Dim s As Single, price As Single, total As Singles = Text1.TextIf s < 100 Thenprice = 32ElseIf 100 <= s < 200 Thenprice = 28ElseIf 200 <= s < 300 Thenprice = 25ElseIf 300 <= s < 400 Thenprice = 22.5ElseIf 400 <= s < 1000 Thenprice = 20ElseIf s > 1000 Thenprice = 15End Iftotal = price * sPrint totalEnd Sub给分吧
vb实验报告编写程序,在文本框中任意输入两个整数,单击命令按钮,...
main()int a,b,sum; //分别定义两个数值型变量char c; //定义字符型变量a=txt1_value; //把文本框内数值赋予变量ab=txt2_value; //把文本框内数值赋予变量asum="a"+"b"; //进行数值加法运算c="a"&"b"; //进行字符串连接处理cmd_click(); //单击按钮动作printf("sum",d%); //输出加法结果printf("c",char); //输出连接后结果另:大体上是这个意思,多年不用了,有的地方可能得稍微调下,仅作参考
转载请注明出处51数据库 » vb程序软件基础实验报告