当前位置 > 一个简单的VB编程题一个简单的vb编程题是什么

• 

  一个简单的VB编程题

  Private Sub Form_click() Dim a(5) As Integer For i = 1 To 5 a(i) = Val(InputBox("输入一个数")) Print a(i); Next i Print For i = 1 To 4 For j = i + 1 To 5 If a(i) < a(j) Then t = a(i) a(i) = a(j) a(j) = t End If Next j Next i Print "排列后的数为" For i = 1 To 5 Print a(i); Next i End Su...

  2024-08-27 网络 更多内容 473 ℃ 478
• 

  用VB程序设计一个简单计算器

  界面: text1 1 2 3 + 4 5 6 7 8 9 * 0 = AC / 代码: dim newnum as boolean dim n1,n2 op as integer private sub ac_click() text1.text="" end sub private sub command1_click(index as integer) if newnum=true then text1="" text1=text1&index newnum=false end sub private sub com...

  2024-08-27 网络 更多内容 285 ℃ 439
• 

  用VB程序设计一个简单计算器

  Dim p As Integer, op1 As Double, oper As Integer Private Sub Command1_Click(Index As Integer)   If Index <= 9 Then     Text1.Text&nbs...

  2024-08-27 网络 更多内容 706 ℃ 151
• 

  简单VB程序设计

  分太低,不过还是给你做了 Option Base 1 Private Type Stu StuName As String StuEnglish As String StuMath As String StuChem As String StuPhys As String End Type Dim StuFile() As Stu Dim Counter As Integer Private Sub Command1_Click() Counter = Counter + 1 ReDim Preserve S...

  2024-08-27 网络 更多内容 525 ℃ 677
• 

  用VB程序设计一个简单计算器

  界面: text1 1 2 3 + 4 5 6 7 8 9 * 0 = AC / 代码: dim newnum as boolean dim n1,n2 op as integer private sub ac_click() text1.text="" end sub private sub command1_click(index as integer) if newnum=true then text1="" text1=text1&index newnum=false end sub private sub command1_cli...

  2024-08-27 网络 更多内容 311 ℃ 783
• 

  vb程序设计·一个简单的VB程序·

  一个文本框(text1)和一个标题框(Label1)Private Sub Command1_Click()Text1.Visible = FalseCommand1.Visible = FalseLabel1.FontSize = 14Label1.FontName = "黑体"Label1.ForeColor = vbRedLabel1.Caption = Text1.Text & "同学,你好,祝你学好VB程序设计"Command2.Visible =...

  2024-08-27 网络 更多内容 611 ℃ 878
• 

  用vb程序设计一个简易的电话

  程序源代码: #include "stdio.h" #include "graphics.h" #include "conio.h" main() { int driver=VGA,mode=VGAHI; int i,num=15,top=50; int left=20,right=50; initgraph(&driver,&mode,""); for(i=0;i<num;i++) { ellipse(250,250,0,360,right,left); ellipse(250,250,0,360,20,top); rectangle(20...

  2024-08-27 网络 更多内容 662 ℃ 16
• 

  vb程序设计的一个简单问题

  'Label1 铅笔的单价 Text1 铅笔的数量 'Label2 笔记本的单价 Text2 笔记本的数量 'Label3 计算器的单价 Text3 计算器的数量 ’购买按钮的编程 dim JG as single,ts as string JG=label1.caption*text1+label2.caption*text2+label3.caption*text3 ts="铅笔:" & label1.caption &am...

  2024-08-27 网络 更多内容 677 ℃ 673
• 

  请教一个简单的VB编程题...

  Option Explicit'自定义排序函数 Function Paixu(shuzu(), shuzu0(), Max As Integer, shunxu As Boolean) Dim c Dim b, d, f, l, h As Integer '临时数组,如果排序的数组维数大于1000请将下面定义的维数相应扩大 Dim n(1000), k(1000) As Double c = shuzu(1) For f = 1 To Max:For b = f To Max If ...

  2024-08-27 网络 更多内容 517 ℃ 718
• 

  急求一个VB程序设计的小游戏 十分感谢

  VB程序设计的入门学习并不难,但却是一个十分重要的过程,因为程序设计思想就在这时形成的,良好的程序设计习惯也在这个阶段养成. (3)学习... 养成良好的编程习惯 1、程序构思要有说明; 2、学会如何调试程序; 3、对运行结果要做正确与否的分析. 二、复习过程简单的说就是细看书,...

  2024-08-27 网络 更多内容 274 ℃ 780