籽艺Blog

原创 起泡排序

 data segmenta  dw  8h,5h,16h,84h,32hdata endscode segment main proc farassume cs:code,ds:datastart: mov ax,data       mov ds,ax       mov cx,5       dec cxloop1: mov di,cx       mov bx,0loop2: mov ax

原创 用vb制作简单的画板

Private Sub Form_Load()Picture1.DrawWidth = HScroll1.ValueEnd SubPrivate Sub HScroll1_Change()Picture1.DrawWidth = HScroll1.ValueEnd Sub Private Sub Label0_Click(Index As Integer)If Index = 4 Th

原创 怎么用VB做记事本？？？