一个简单的VB编程题
VB编程题,主要是代码 -
Dim a(9) As IntegerPrivate Sub Command1_Click() Text1.Text = "" Randomize For i = 0 To 9 a(i) = Int(Rnd * 100 + 1) Text1.Text = Text1.Text + CStr(a(i)) + Space(1) Next iEnd SubPrivate Sub Command2_Click() Dim intMax As Integer, intMin, in希望你能满意。
1、求和Private Sub Form_Click()Dim rSum As Single Dim i As Integer For i = 1 To 100 If i Mod 2 = 0 Then '偶数rSum = rSum - 1 / i Else '奇数rSum = rSum + 1 / i End If Next Print rSum End Sub 2、素数函数Private Function IsPrime(iNum As Integer) As Boole等我继续说。
Dim a(9) As IntegerPrivate Sub Command1_Click() Text1.Text = "" Randomize For i = 0 To 9 a(i) = Int(Rnd * 100 + 1) Text1.Text = Text1.Text + CStr(a(i)) + Space(1) Next iEnd SubPrivate Sub Command2_Click() Dim intMax As Integer, intMin, in希望你能满意。
1、求和Private Sub Form_Click()Dim rSum As Single Dim i As Integer For i = 1 To 100 If i Mod 2 = 0 Then '偶数rSum = rSum - 1 / i Else '奇数rSum = rSum + 1 / i End If Next Print rSum End Sub 2、素数函数Private Function IsPrime(iNum As Integer) As Boole等我继续说。
第一题：Private Sub Form_Click() Form1.AutoRedraw = True Dim i As Integer, j As Integer Dim k As Integer For i = 100 To 200 If Prime(i) Then k = k + 1 Print i; If k Mod 10 = 0 Then Print End If Next Print Print "100-200是什么。
+ X ≤ N的最大值" Label1.FontSize = 12 Label1.ForeColor = vbBlue Label1.FontBold = True Command1.Caption = "输入N值" Command2.Caption = "计算X值" Command2.Enabled = FalseEnd Sub
求vb编程题 -
Private Sub Command1_Click()p = 13.5 For y = 2016 To 2050 p = p * 1.005 Next y Print "每年增长率为0.5%,"Print "到2050年我国的人口数量是"; Int(p * 1000 + 5) / 1000; "亿" '四舍五入保留三位小数End Sub 好了吧！
Private Sub Command1_Click()Dim a As Integer a = InputBox("a=")If a >= 0 Then Print "|" & a & "|=" & a Else Print "|" & a & "|=" & -a End If Print End Sub Private Sub Command2_Click()Dim s As Integer, i As Integer For i = 1 To 10 s = s + 2是什么。
VB编程题。 -
问题1:Private Sub Command1_Click()For i = 1 To 5 Print Space(5 - i);For j = 1 To i - 1 Print "AB";Next j Print "A"Next i End Sub 问题2:先将第二个列表框的Sorted属性设为true Private Sub Command1_Click()For i = 0 To List1.ListCount - 1 List2.AddItem List等会说。
1.用VB编程序设计一个简易的计算器代码：Dim num_1, num2, flagPrivate Sub Command1_Click(Index As Integer) Select Case Index Case 0 To 9 Label1.Caption = Label1.Caption + CStr(Command1(Index).Caption) Case 10 Label1.Caption = Label1.Caption + "." Case 1还有呢？
VB编程这题有人会吗帮忙下谢谢!!好的就直接采纳了 -
需要用的主要运算是Mod取模； \整除运算Private Sub Form_Load()Form1.Show '窗口显示出来Print '换行.离上边框远点PrintDim i As Integer '定义一个整数iFor i = 0 To 35 '因为是6行，每行6个字母，所以就是循环36次[0,35]If i Mod 6 = 0 Then Print Space(i \ 6 + 10); '每还有呢？
Private Sub Command1_Click() Dim a As Long, hutime As String Randomize Picture1.Cls Text1 = Format(Now(), "Hh:Nn:Ss") a = Int(Rnd * 86400 + 1) '获取随机秒数 If a > toNum(Time) Then '和现在时间进行比较 hqtime = toTime(a - toNum(Time)) 好了吧！