[新建仓库的可行性分析报告大神们帮帮忙]项目可行性报告 报告编制: 编制时间: 目录 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...