首页 > 电脑 > visual basic 编写国庆节快乐代码

visual basic 编写国庆节快乐代码

电脑 2023-07-15

VB简易日历课程设计(任务书如下)

Option Explicit Dim xuanzedate% Private Sub Form_Load() xuanzedate% = CInt(Format$(Now, "dd")) Call tianchongbn01 Call tianchongbn02 Call setdate Dim r%, week$ r% = Weekday(Format$(Now, "general date")) If r% = 1 Then week$ = "星期日" ElseIf r% = 2 Then week = "星期一" ElseIf r% = 3 Then week = "星期二" Else

谁帮写个js判断今天节日的代码,如果是10月1日,就显示国庆节快乐,如果是5月1日,就显示劳动节快乐

求microsoft visual basic 6.0的一段代码,如何编写

'将timer1的Interval属性设置为 1000(也就是1秒) Private Sub Timer1_Timer() If Hour(Time) < 11 And Hour(Time) > 0 Then Label1.Caption = "早上好" ElseIf Hour(Time) < 14 And Hour(Time) >= 11 Then Label1.Caption = "中午好" Else Label1.Caption = "下午好" End If End Sub ''试试看~~

如何用visual basic 完成以下题目,代码是怎么样编写?

Private Sub Command1_Click()

a = "Czggj Wjt! Rzgxjhz Oj Ht Rjmgy!"

b = ""

n = 5

For i = 1 To Len(a)

c = Mid(a, i, 1)

If c >= "A" And c <= "Z" Then

c = Chr(Asc(c) + n)

If c > "Z" Then c = Chr(Asc(c) - 26)

Else

If c >= "a" And c <= "z" Then

c = Chr(Asc(c) + n)

If c > "z" Then c = Chr(Asc(c) - 26)

End If

End If

b = b + c

Next i

Picture1.Print "a="

Picture1.Print a

Picture1.Print

Picture1.Print "b="

Picture1.Print b

End Sub

visual basic编程

O1、将一个一维数组反序放置。例如: a=(67,89,76,98,66), 反序放置后,a=(66,98,76,89,67)。 ption Base 1 Private Sub Form_Click() Const n = 5 '这里N可以是任意的 Dim a(n) As Integer, t% For i = 1 To n a(i) = Val(InputBox("输入任意数值")) Print a(i); Next i For i = 1 To n \ 2 t = a(i): a(i) = a(n - i + 1): a(n - i + 1) = t Next i Print For i

标签:信息技术 编程 visual basic 程序员

大明白知识网 Copyright © 2020-2022 www.wangpan131.com. Some Rights Reserved. 京ICP备11019930号-18