摘要：
#include <reg52.h> #include<intrins.h> sbit key1=P3^2; sbit key2=P3^3; sbit key3=P3^4; sbit key4=P3^5; typedef unsigned int uint; typedef unsigned cha 阅读全文
posted @ 2021-08-08 17:09
myrj
阅读(695)
评论(0)
推荐(0)
摘要：
Sub qx() For Each chk In ActiveSheet.CheckBoxes If chk.Caption = "1.7" Then '选中了 chk.Value = 1 End If If chk.Caption = "1.6" Then '选中了 chk.Value = 1 E 阅读全文
posted @ 2021-08-08 16:52
myrj
阅读(404)
评论(0)
推荐(0)
摘要：
Sub jian() Dim xx As Double Dim ji As Double Dim b1 As String Dim arr(8) As Variant For xx = 255 To 0 Step -1 ji = xx b1 = DECtoBINa(ji) For a = 1 To 阅读全文
posted @ 2021-08-08 16:50
myrj
阅读(1118)
评论(0)
推荐(0)
摘要：
‘移动文本框Sub ydwbb(aa, xx, yy) ab = "TextBox " & aa With ActiveSheet.Shapes(ab) .Select .Left = xx .Top = yy End With End Sub’修改文本框背景颜色 文本框文字内容 Sub yanse 阅读全文
posted @ 2021-08-08 16:42
myrj
阅读(1282)
评论(0)
推荐(0)
摘要：
For Each chk In ActiveSheet.CheckBoxes If chk.Caption = "1.7" And chk.Value = 1 Then '选中了 chk.Value = 0 ElseIf chk.Caption = "1.7" And chk.Value <> 1 阅读全文
posted @ 2021-08-08 16:37
myrj
阅读(975)
评论(0)
推荐(0)
摘要：
For Each chk In ActiveSheet.CheckBoxes If chk.Caption = "1.7" Then '选中了 chk.Value = 0 End If If chk.Caption = "1.6" Then '选中了 chk.Value = 0 End If If 阅读全文
posted @ 2021-08-08 16:33
myrj
阅读(349)
评论(0)
推荐(0)
摘要：
a=String(3, "0") & "aaa" 则结果a的值为000aaa 阅读全文
posted @ 2021-08-08 16:28
myrj
阅读(374)
评论(0)
推荐(0)
摘要：
注意：这两个函数都修改了参数的值，如果想再次使用相应的值应该提前保留 如：a=10;b=DECtoBIN(a);则结果:b=1010,a=0 Public Function DECtoBIN(Dec As Double) As String DECtoBIN = "" Do While Dec > 阅读全文
posted @ 2021-08-08 12:38
myrj
阅读(796)
评论(0)
推荐(0)
摘要：
#include <stdio.h> #include <math.h> #define MAXCHAR 101 /*最大允许字符串长度*/ int char_to_num(char ch); /*返回字符对应的数字*/ char num_to_char(int num); /*返回数字对应的字符* 阅读全文
posted @ 2021-08-08 11:21
myrj
阅读(165)
评论(0)
推荐(0)
浙公网安备 33010602011771号