银行时间计算

最新推荐文章于 2021-07-02 15:25:11 发布
最新推荐文章于 2021-07-02 15:25:11 发布
阅读量563 收藏
点赞数
分类专栏： VB
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/goushaoping04/article/details/21182377
版权

VERSION 5.00
Begin VB.Form main
   BackColor       =   &H00FFFFC0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "天数计算"
   ClientHeight    =   4155
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   6675
   ControlBox      =   0   'False
   Icon            =   "main.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4155
   ScaleWidth      =   6675
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton cmdClose
      Caption         =   "关闭"
      BeginProperty Font
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   3000
      TabIndex        =   24
      Top             =   3480
      Width           =   735
   End
   Begin VB.CommandButton cmdEnd
      Caption         =   "获取开始日期"
      BeginProperty Font
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   4560
      TabIndex        =   20
      Top             =   2760
      Width           =   1450
   End
   Begin VB.CommandButton cmdStart
      Caption         =   "获取结束日期"
      BeginProperty Font
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   2640
      TabIndex        =   19
      Top             =   2760
      Width           =   1450
   End
   Begin VB.CommandButton cmdDays
      Caption         =   "获取天数"
      BeginProperty Font
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   720
      TabIndex        =   18
      Top             =   2760
      Width           =   1450
   End
   Begin VB.TextBox txtDays
      Alignment       =   1  'Right Justify
      BeginProperty Font
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   1680
      TabIndex        =   16
      Top             =   1800
      Width           =   1335
   End
   Begin VB.TextBox txtEndDate
      Alignment       =   1  'Right Justify
      BeginProperty Font
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Index           =   0
      Left            =   1680
      TabIndex        =   10
      Top             =   1080
      Width           =   1335
   End
   Begin VB.TextBox txtEndDate
      Alignment       =   1  'Right Justify
      BeginProperty Font
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Index           =   1
      Left            =   3480
      TabIndex        =   9
      Top             =   1080
      Width           =   495
   End
   Begin VB.TextBox txtEndDate
      Alignment       =   1  'Right Justify
      BeginProperty Font
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Index           =   2
      Left            =   4560
      TabIndex        =   8
      Top             =   1080
      Width           =   495
   End
   Begin VB.TextBox txtStartDate
      Alignment       =   1  'Right Justify
      BeginProperty Font
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Index           =   2
      Left            =   4560
      TabIndex        =   5
      Top             =   360
      Width           =   495
   End
   Begin VB.TextBox txtStartDate
      Alignment       =   1  'Right Justify
      BeginProperty Font
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Index           =   1
      Left            =   3480
      TabIndex        =   4
      Top             =   360
      Width           =   495
   End
   Begin VB.TextBox txtStartDate
      Alignment       =   1  'Right Justify
      BeginProperty Font
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Index           =   0
      Left            =   1680
      TabIndex        =   0
      Top             =   360
      Width           =   1335
   End
   Begin VB.Label lblClearEnd
      BackStyle       =   0  'Transparent
      Caption         =   "清空"
      BeginProperty Font
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   375
      Left            =   6120
      TabIndex        =   23
      Top             =   1280
      Width           =   615
   End
   Begin VB.Label lblClearStart
      BackStyle       =   0  'Transparent
      Caption         =   "清空"
      BeginProperty Font
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   255
      Left            =   6120
      TabIndex        =   22
      Top             =   560
      Width           =   615
   End
   Begin VB.Label lblGetNowEnd
      BackStyle       =   0  'Transparent
      Caption         =   "获取当前日期"
      BeginProperty Font
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   375
      Left            =   5400
      TabIndex        =   21
      Top             =   1200
      Width           =   615
   End
   Begin VB.Label Label5
      BackStyle       =   0  'Transparent
      Caption         =   "天"
      BeginProperty Font
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   3120
      TabIndex        =   17
      Top             =   1800
      Width           =   1575
   End
   Begin VB.Label Label4
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "天数:"
      BeginProperty Font
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   120
      TabIndex        =   15
      Top             =   1800
      Width           =   1500
   End
   Begin VB.Label Label3
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "结束日期:"
      BeginProperty Font
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   120
      TabIndex        =   14
      Top             =   1200
      Width           =   1500
   End
   Begin VB.Label Label1
      BackStyle       =   0  'Transparent
      Caption         =   "年"
      BeginProperty Font
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   5
      Left            =   3120
      TabIndex        =   13
      Top             =   1200
      Width           =   255
   End
   Begin VB.Label Label1
      BackStyle       =   0  'Transparent
      Caption         =   "月"
      BeginProperty Font
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   4
      Left            =   4080
      TabIndex        =   12
      Top             =   1200
      Width           =   255
   End
   Begin VB.Label Label1
      BackStyle       =   0  'Transparent
      Caption         =   "日"
      BeginProperty Font
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   3
      Left            =   5040
      TabIndex        =   11
      Top             =   1200
      Width           =   255
   End
   Begin VB.Label Label2
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "开始日期:"
      BeginProperty Font
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   120
      TabIndex        =   7
      Top             =   480
      Width           =   1500
   End
   Begin VB.Label lblGetNow
      BackStyle       =   0  'Transparent
      Caption         =   "获取当前日期"
      BeginProperty Font
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   375
      Left            =   5400
      TabIndex        =   6
      Top             =   480
      Width           =   615
   End
   Begin VB.Label Label1
      BackStyle       =   0  'Transparent
      Caption         =   "日"
      BeginProperty Font
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   2
      Left            =   5040
      TabIndex        =   3
      Top             =   480
      Width           =   255
   End
   Begin VB.Label Label1
      BackStyle       =   0  'Transparent
      Caption         =   "月"
      BeginProperty Font
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   1
      Left            =   4080
      TabIndex        =   2
      Top             =   480
      Width           =   255
   End
   Begin VB.Label Label1
      BackStyle       =   0  'Transparent
      Caption         =   "年"
      BeginProperty Font
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   0
      Left            =   3120
      TabIndex        =   1
      Top             =   480
      Width           =   255
   End
End
Attribute VB_Name = "main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub cmdClose_Click()
On Error Resume Next
  End
End Sub

Private Sub cmdDays_Click()
On Error Resume Next
   If IsNumeric(txtStartDate(0).Text) And IsNumeric(txtStartDate(1).Text) And IsNumeric(txtStartDate(2).Text) Then
   Else
      MsgBox "开始日期有误", vbOKOnly, "提示"
      Exit Sub
   End If
    If IsNumeric(txtEndDate(0).Text) And IsNumeric(txtEndDate(1).Text) And IsNumeric(txtEndDate(2).Text) Then
    Else
      MsgBox "结束日期有误", vbOKOnly, "提示"
      Exit Sub
   End If
   txtDays.Text = Abs(DateDiff("d", txtStartDate(0).Text & "-" & txtStartDate(1).Text & "-" & txtStartDate(2).Text, txtEndDate(0).Text & "-" & txtEndDate(1).Text & "-" & txtEndDate(2).Text))
End Sub

Private Sub cmdEnd_Click()
On Error Resume Next
Dim startDate As Date
   If IsNumeric(txtEndDate(0).Text) And IsNumeric(txtEndDate(1).Text) And IsNumeric(txtEndDate(2).Text) Then
   Else
      MsgBox "结束日期有误", vbOKOnly, "提示"
      Exit Sub
   End If
   If IsNumeric(txtDays.Text) Then
          If Int(txtDays.Text) <> txtDays.Text Then
               MsgBox "天数有误", vbOKOnly, "提示"
               Exit Sub
          End If
   Else
          MsgBox "天数有误", vbOKOnly, "提示"
          Exit Sub
   End If
   endDate = DateAdd("d", 0 - Abs(txtDays.Text), txtEndDate(0).Text & "-" & txtEndDate(1).Text & "-" & txtEndDate(2).Text)
   txtStartDate(0).Text = Year(endDate)
   txtStartDate(1).Text = Month(endDate)
   txtStartDate(2).Text = Day(endDate)
End Sub

Private Sub cmdStart_Click()
On Error Resume Next
Dim endDate As Date
   If IsNumeric(txtStartDate(0).Text) And IsNumeric(txtStartDate(1).Text) And IsNumeric(txtStartDate(2).Text) Then
   Else
      MsgBox "开始日期有误", vbOKOnly, "提示"
      Exit Sub
   End If
   If IsNumeric(txtDays.Text) Then
          If Int(txtDays.Text) <> txtDays.Text Then
               MsgBox "天数有误", vbOKOnly, "提示"
               Exit Sub
          End If
   Else
          MsgBox "天数有误", vbOKOnly, "提示"
          Exit Sub
   End If
   endDate = DateAdd("d", Abs(txtDays.Text), txtStartDate(0).Text & "-" & txtStartDate(1).Text & "-" & txtStartDate(2).Text)
   txtEndDate(0).Text = Year(endDate)
   txtEndDate(1).Text = Month(endDate)
   txtEndDate(2).Text = Day(endDate)
End Sub

 

Private Sub lblClearEnd_Click()
On Error Resume Next
    txtEndDate(0).Text = ""
    txtEndDate(1).Text = ""
    txtEndDate(2).Text = ""

End Sub

Private Sub lblClearStart_Click()
On Error Resume Next
    txtStartDate(0).Text = ""
    txtStartDate(1).Text = ""
    txtStartDate(2).Text = ""
End Sub

Private Sub lblGetNow_Click()
On Error Resume Next
    txtStartDate(0).Text = Year(Now())
    txtStartDate(1).Text = Month(Now())
    txtStartDate(2).Text = Day(Now())
End Sub
Private Sub lblGetNowEnd_Click()
On Error Resume Next
    txtEndDate(0).Text = Year(Now())
    txtEndDate(1).Text = Month(Now())
    txtEndDate(2).Text = Day(Now())
End Sub

Private Sub txtDays_LostFocus()
On Error Resume Next
       If IsNumeric(txtDays.Text) Then
          If Int(txtDays.Text) <> txtDays.Text Then
              txtDays.Text = ""
          Else
              txtDays.Text = Abs(Int(txtDays.Text))
          End If
       Else
         txtDays.Text = ""
       End If
End Sub

Private Sub txtEndDate_LostFocus(Index As Integer)
On Error Resume Next
    If Index = 0 Then
       If IsNumeric(txtEndDate(Index).Text) Then
          If Int(txtEndDate(Index).Text) <> txtEndDate(Index).Text Then
              txtEndDate(Index).Text = ""
          Else
              txtEndDate(Index).Text = Int(txtEndDate(Index).Text)
          End If
       Else
         txtEndDate(Index).Text = ""
       End If
    End If
    If Index = 1 Then
       If IsNumeric(txtEndDate(Index).Text) Then
          If Int(txtEndDate(Index).Text) <> txtEndDate(Index).Text Then
              txtEndDate(Index).Text = ""
          Else
              txtEndDate(Index).Text = Int(txtEndDate(Index).Text)
          End If
       Else
         txtEndDate(Index).Text = ""
       End If
       If txtEndDate(Index).Text < 1 Or txtEndDate(Index).Text > 12 Then
         txtEndDate(Index).Text = ""
       End If
    End If
     If Index = 2 Then
       If IsNumeric(txtEndDate(Index).Text) Then
          If Int(txtEndDate(Index).Text) <> txtEndDate(Index).Text Then
              txtEndDate(Index).Text = ""
          Else
              txtEndDate(Index).Text = Int(txtEndDate(Index).Text)
          End If
       Else
         txtEndDate(Index).Text = ""
       End If
       If txtEndDate(Index).Text < 1 Or txtEndDate(Index).Text > 31 Then
         txtEndDate(Index).Text = ""
       End If
    End If
End Sub

Private Sub txtStartDate_LostFocus(Index As Integer)
On Error Resume Next
    If Index = 0 Then
       If IsNumeric(txtStartDate(Index).Text) Then
          If Int(txtStartDate(Index).Text) <> txtStartDate(Index).Text Then
              txtStartDate(Index).Text = ""
          Else
              txtStartDate(Index).Text = Int(txtStartDate(Index).Text)
          End If
       Else
         txtStartDate(Index).Text = ""
       End If
    End If
    If Index = 1 Then
       If IsNumeric(txtStartDate(Index).Text) Then
          If Int(txtStartDate(Index).Text) <> txtStartDate(Index).Text Then
              txtStartDate(Index).Text = ""
          Else
              txtStartDate(Index).Text = Int(txtStartDate(Index).Text)
          End If
       Else
         txtStartDate(Index).Text = ""
       End If
       If txtStartDate(Index).Text < 1 Or txtStartDate(Index).Text > 12 Then
         txtStartDate(Index).Text = ""
       End If
    End If
     If Index = 2 Then
       If IsNumeric(txtStartDate(Index).Text) Then
          If Int(txtStartDate(Index).Text) <> txtStartDate(Index).Text Then
              txtStartDate(Index).Text = ""
         Else
              txtStartDate(Index).Text = Int(txtStartDate(Index).Text)
          End If
       Else
         txtStartDate(Index).Text = ""
       End If
       If txtStartDate(Index).Text < 1 Or txtStartDate(Index).Text > 31 Then
         txtStartDate(Index).Text = ""
       End If
    End If
End Sub

goushaoping04
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
银行客户平均等待时间
05-18
数据结构中队列的运用
【数据结构】第六周
heliotrope_jin的博客
05-30 1097
每天刚开始时银行会开m个窗口来为我们total个客户办理业务，当有客户需要办理业务时，先选择可以办理业务的窗口，如果有多个窗口可以办理业务就选择空闲时间最长的窗口，如果有多个窗口空闲的时间一样长，则选择序号小的窗口办理业务。每次还钥匙的时候，还钥匙的老师会找到最左边的空的挂钩，将钥匙挂在这个挂钩上。有K位老师要上课，给出每位老师所需要的钥匙、开始上课的时间和上课的时长，假设下课时间就是还钥匙时间，请问最终钥匙盒里面钥匙的顺序是怎样的？一串钥匙没有固定的悬挂位置，但钥匙上有标识，所以老师们不会弄混钥匙。
数据结构上机实验6.15
qq_53134669的博客
06-19 1829
问题 A: 出栈合法性 题目描述 已知自然数1，2，…，N（1<=N<=100）依次入栈，请问序列C1，C2，…，CN是否为合法的出栈序列。 输入 输入包含多组测试数据。 每组测试数据的第一行为整数N（1<=N<=100），当N=0时，输入结束。 第二行为N个正整数，以空格隔开，为出栈序列。 输出 对于每组输入，输出结果为一行字符串。 如给出的序列是合法的出栈序列，则输出Yes，否则输出No。 样例输入 5 3 4 2 1 5 5 3 5 1 4 2 0 样例输出 Yes No
问题 A: 算法3-7：银行排队
weixin_51988154的博客
07-02 1499
时间限制:1 Sec内存限制:32 MB 提交:751解决:509 题目描述 我们大多都有在银行排队的经历，唉，那坑爹的排队啊！现在就让我们来算算我们这些客户平均需要等多久吧。 每天刚开始时银行会开m个窗口来为我们total个客户办理业务，当有客户需要办理业务时，先选择可以办理业务的窗口，如果有多个窗口可以办理业务就选择空闲时间最长的窗口，如果有多个窗口空闲的时间一样长，则选择序号小的窗口办理业务。假设我们每个人来到的时间和办理业务所需要的时间（为了简化问题，采用整数表示时间）都知道...
银行排队
nankeyimeng的博客
04-14 4638
问题 H 算法3-7：银行排队 时间限制: 1 Sec  内存限制: 128 MB [提交] 题目描述 我们大多都有在银行排队的经历，唉，那坑爹的排队啊！现在就让我们来算算我们这些客户平均需要等多久吧。 每天刚开始时银行会开m个窗口来为我们total个客户办理业务，当有客户需要办理业务时，先选择可以办理业务的窗口，如果有多个窗口可以办理业务就选择空闲时间最长的窗口，如果有多个
银行业务排队模拟系统
12-27
首先就要建立N个队列来存储排队的用户信息 ，然后算出那个队列最短就用户就到那个队伍排队，同时通过随机生成他办理业务的时间和到来的时间，通过计算用户的到来时间和离开时间就可以计算出某个用户在银行的逗留时间...
银行排队系统模拟-数据结构
05-23
假设某银行有n个窗口对外接待客户， 从早晨银行9点开门起到5点关门，不断有客户进入银行， 由于每个窗口在某个时刻只能接待一个客户。...编制一个程序模拟银行的这种业务活动并计算一天中客户在银行的平均逗留时间。
队列应用银行排队问题模拟:计算客户的平均停留时间和等待时间以及每个客户的时间信息（VC6.0）
06-03
VC6.0编译！ 利用的算法类似于买票排队，你总会到队列最短的窗口去排队，但往往会有其他队列办事速度快，队列长度很快变得比你...一是时间利用率不高，而是无法保证先到达的客户的办理业务时间一定比后到达的客户早。
aa.rar_银行 排队
09-14
假设某银行有4个窗口对外接待客户,从早晨银行开门起不断有客户进入银行。由于每个窗口在某个时刻只能接待一个客户，因此在客户人数众多时...编制一个程序模拟银行的这种业务活动并计算一天中客户在银行的平均逗留时间。
银行排队源代码c实现方法
04-06
银行排队在windows下的C实现，及所有需要用到源代码，头文件
队列应用银行排队问题模拟:计算客户的平均停留时间和等待时间以及每个客户的时间信息，两种方法实现
热门推荐
JessicaWin
06-03 2万+
一、数据类型 首先需要两个数据结构：一个是有序事件链表，一个是队列。 1、事件链表 存储客户事件,包括到达事件和离开事件,其中到达事件的事件类型为0,1号窗口的离开事件类型为1,二号窗口的离开事件类型为2,三号窗口的离开事件类型为3,四号窗口的离开事件类型为4,由此就可以只使用事件类型就将到达事件和不同窗口的离开事件区分开来. （1）链表数据结构： 1）每个事件项的数据结构为： typ
来算法吧~
Hello World
08-04 394
这个暑假，要开始系统地学习算法了，虽然只有不到一个月的假期！！！ai
银行排号(C语言)
Yeziquanquan的专栏
09-11 7961
银行为改善服务，设置了排号系统，顾客办理业务时，通过排号机生成一个号码，然后坐在休息区等候排号系统按号码进行呼叫。要求编写程序，模拟排号系统。
数据结构--队列--银行问题
dingdunzeng9939的博客
06-17 1205
请用顺序队列或链式队列来完成本题。 我们大多都有在银行排队的经历，唉，那坑爹的排队啊！现在就让我们来算算我们这些客户平均需要等多久吧。每天刚开始时银行会开m个窗口来为我们total个客户办理业务，当有客户需要办理业务时，先选择可以办理业务的窗口，如果有多个窗口可以办理业务就选择空闲时间最长的窗口，如果有多个窗口空闲的时间一样长，则选择序号小的窗口办理业务。假设我们每个人来到的时间和办理...
银行家算法的时间复杂度是
最新发布
06-05
银行家算法的时间复杂度是O(n*m^2)，其中n是进程的数量，m是资源的数量。具体来说，银行家算法需要进行以下几个步骤： 1. 对于每个进程，需要遍历所有资源，计算它当前已经分配的资源数量和需要的资源数量，这一步...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值