范文无忧网计划总结报告汇报

求大神帮忙做一下这个大学VB程序设计的实验报告

01月09日 编辑 fanwen51.com

[新建仓库的可行性分析报告大神们帮帮忙]项目可行性报告 报告编制: 编制时间: 目录 1.0项目基本情况……………………………5 1.1项目来源及相关政策…………………………...5 1.2项目承建方概况…………………………...+阅读

Private Sub Command1_Click()

Dim a As Integer, b As String, i As Integer, c() As String

a = Len(Text1.Text)

Print a

ReDim c(a) As String

For i = 1 To a

b = Mid(Text1.Text, i, 1)

Select Case b

Case "a" To "z"

c(i) = UCase(b)

Case "A" To "Z"

c(i) = LCase(b)

Case Else

c(i) = Chr(32)

End Select

Next i

Text1.Text = ""

For i = 1 To a

Text1.Text = Text1.Text & c(i)

Next i

End Sub

2、

Private Sub Form_click()

Dim a(5) As Double, i As Integer, j As Integer, k As Integer, sum As Double

Dim flag As Boolean, how As Boolean

For i = 1 To 5

a(i) = Val(InputBox("please input", "input number"))

sum = sum + a(i)

Next i

If sum >450 Then

flag = True

how = True

End If

For k = 1 To 5

If a(k) >88 Then

flag = True

how = True

End If

Next k

For j = 1 To 3

If a(j) >95 Then flag = True

Next j

For k = 4 To 5

If a(k) >80 Then how = True

Next k

If flag = True And how = True Then

Print "excellent"

End If

End Sub

3、Private Sub Form_click()

Dim s As Single, price As Single, total As Single

s = Text1.Text

If s price = 32

ElseIf 100 price = 28

ElseIf 200 price = 25

ElseIf 300 price = 22.5

ElseIf 400 price = 20

ElseIf s >1000 Then

price = 15

End If

total = price * s

Print total

End Sub

给分吧

延伸阅读:

新入职护士PPT汇报岗前培训心得怎么做哪位大神有模板?【天使排班】180套医护精品PPT模板分享 免费下载 链接: https://pan.baidu.com/s/1310XdfUo6WfZs7-QO0QpYw 【天使排班】180套医护精品PPT模板分享来自:网盘提取码: e53i复制提...

求一份大一寒假打工社会实践报告拜托各位大神寒假实践报告 2009年寒假大学生打工实践报告 (一)前言: 作为一名大一新生,对缤纷多彩的大学生活充满了好奇。在大学的第一个寒假里,我希望能与以往有所不同。在这个时候团支布提...

身边与环保论文 1500字左右大神们帮帮忙保护地球,从我做起 古往今来,地球妈妈用甘甜的乳汁哺育了无数代子孙。原来的她被小辈们装饰得楚楚动人。可是,现在人类为了自身的利益,将她折磨得天昏地暗。人类只有一个地球;而...

跪求园林园建施工员年度总结书求各位大神帮忙本人自**年*月参加工作以来,认真工作,对自己的岗位一直尽忠职守,锻炼吃苦耐劳的精神,不断提高自己的专业知识和操作的能力,在各位前辈和师傅们的指导和帮忙下,已成长为一个具有较...

跪求员工贫困申请书!求大神帮助生活困难补助申请例文 生活困难补助申请 尊敬的学校领导: 我叫xxx,是xx区劳动局职业技术学校的一名退休职工。在职期间,作为副校长分管过学校的后勤工作。我于1952年参加革命工...

java小程序设计设计一个窗口程序import java.awt.*; import java.awt.event.*; import javax.swing.*; public class FrameTest { private JFrame jf; private JButton yellow,blue,green; private JPanel...

汇编语言程序设计1、用减奇数法开平方。(算法:N个自然数中的奇数之和等于N的平方。) 程序清单:内存datum中存要开方数 ,result中存放结果 data segment datum db 16 result db 0 data ends ss_seg...

汇编语言程序设计红旗慢慢升起code segment assume cs:code start: push cs pop ds mov ax,12h int 10h mov ax,0a000h mov es,ax mov ah,2;画旗杆 call color mov di,510 mov ax,0aeh mov cx,450 n1:stos...

VB选择循环和数组综合程序设计实验报告Private Sub Form_Click() Dim r(1 To 60) As Integer Dim e(1 To 60) As Integer Dim o(1 To 60) As Integer Dim ec As Integer, oc As Integer Dim i As Integer, j As I...

推荐阅读
图文推荐
栏目列表