1樓：匿名使用者
private function 原碼(n as integer) as string
dim s(15) as string '整數原碼16位，用陣列表示，第一位是符號位，1表示負數
dim i as integer
dim sum as integer
dim num as integer
num = n
'判斷符號
if num > 0 then
s(0) = "0"
else
s(0) = "1"
num = -n '轉成正數處理
end if
for i = 1 to 15
dim tem as long
tem = 2 ^ (15 - i)
if sum + tem <= num then
s(i) = "1"
else
s(i) = "0"
tem = 0
end if
sum = sum + tem
next
dim str as string
str = ""
for i = 0 to 15
str = str & s(i)
next
原碼 = str
end function
private function 反碼(n as integer) as string
dim str as string
'反碼的表示方法是:
'正數的反碼是其本身
'負數的反碼是在其原碼的基礎上, 符號位不變，其餘各個位取反
str = 原碼(n)
if n < 0 then
dim s as string
s = "1"
dim i as integer
for i = 2 to len(str)
dim tem as string
tem = iif(cint(mid(str, i, 1)) > 0, "0", "1")
s = s & tem
next
str = s
end if
反碼 = str
end function
private function 補碼(n as integer) as string
dim str as string
'補碼的表示方法是:
'正數的補碼是其本身
'負數的補碼是在其反碼的基礎上+1
str = 原碼(n)
if n < 0 then
str = 反碼(n)
dim i as integer
dim s as string
s = ""
'逐位做二進位制加法，從右往左
dim upnum as integer
upnum = 1
for i = 1 to len(str)
dim a as string
a = mid(str, len(str) - i + 1, 1)
dim tem as integer
tem = cint（a） + upnum
if tem > 1 then
tem = 0
upnum = 1
else
upnum = 0
end if
s = s & cstr(tem)
next
str = s
end if
補碼 = str
end function
2樓：聽不清啊
private sub command1_click()dim a(16) as integer, x as integerx = cint(text1.text)
if x >= 0 then a(16) = 0 else a(16) = 1
x = abs(x)
for i = 1 to 15
a(i) = x mod 2
x = x \ 2
next i
text2.text = ""
for i = 16 to 1 step -1text2.text = text2.text & a(i)next i
if a(16) = 0 then
text3.text = text2.texttext4.text = text2.textexit sub
end if
for i = 1 to 15
a(i) = 1 - a(i)
next i
text3.text = a(16)
for i = 15 to 1 step -1text3.text = text3.text & a(i)next i
text4.text = a(16)
a(1) = a(1) + 1
i = 1
while a(i) = 2 and i < 15a(i) = 0
a(i + 1) = a(i + 1) + 1i = i + 1
wend
for i = 15 to 1 step -1text4.text = text4.text & a(i)next i
end sub
3樓：匿名使用者
病情分析：
你好一般防輻射服在孕前三個月穿比較好。
指導意見：
懷孕中晚期由於胎兒，已經發育，所以說，穿防腐，輻射服的意義，不是很大。
病情分析：
孕婦長期接觸電腦不利於胎兒的發育，易導致流產。在長期使用電腦的婦女中，早期自然流產的發生率較高。
指導意見：
另外，長時間以固定姿勢坐在電腦前，將會影響孕婦的心血管系統及神經系統的功能，盆底肌和肛提肌也會因此而勞損，影響分娩的順利進行。因此，婦女一旦懷孕，特別是在孕早期，應儘量避免持續操作電腦。1.
如果在開機的情況下，把顯示器關了，是可以減少輻射的。2.您可以購買能夠減少輻射的電腦屏。
孕婦穿防輻射的衣服，3.孕婦可以看電視的離電視機的距離以2米為宜。一般不宜超過一個小時。
病情分析：
你好，對於懷孕期間的媽媽來說的確是要注意好保護胚胎不受各種外界不良因素的影響的。
指導意見：
至於說是防輻射服的話，這個沒有硬性的規定，在您用這種電腦等的時候穿吧，關鍵還是要注意儘量少用。
病情分析：
你好，你這個要是環境內大型機械較多的話，那麼你檢查到懷孕後就是可以穿的。
指導意見：
如果你當地環境還不錯，並沒有什麼大型機械之類的話，你可以自己注意遠離手機和電磁爐之類的，不穿也沒有什麼太大問題
病情分析：
這些輻射影響不大的啊.**電視臺專門講過.這些都是在安全範圍的.沒有必要太擔心.
指導意見：
懷孕後防止輻射的服裝可以用.有的有作用,有的沒有,一般還是選擇好一點的啊,但是也不要太在意.心情好更加重要.
病情分析：
您好，看了敘述，是懷孕了，穿防輻射服的話，是越早越好的。
指導意見：
不知您是在什麼環境下工作的？胎兒發育的關鍵期是在前三個月的，所以，如果經常在電腦前工作，最好是剛懷孕就穿的。
求大神用vb程式編寫給定一個整數n,求該整數的原碼,反碼,補碼的程式！！！
4樓：聽不清啊
private sub command1_click()dim a(16) as integer, x as integerx = cint(text1.text)
if x >= 0 then a(16) = 0 else a(16) = 1
x = abs(x)
for i = 1 to 15
a(i) = x mod 2
x = x \ 2
next i
text2.text = ""
for i = 16 to 1 step -1text2.text = text2.text & a(i)next i
if a(16) = 0 then
text3.text = text2.texttext4.text = text2.textexit sub
end if
for i = 1 to 15
a(i) = 1 - a(i)
next i
text3.text = a(16)
for i = 15 to 1 step -1text3.text = text3.text & a(i)next i
text4.text = a(16)
a(1) = a(1) + 1
i = 1
while a(i) = 2 and i < 15a(i) = 0
a(i + 1) = a(i + 1) + 1i = i + 1
wend
for i = 15 to 1 step -1text4.text = text4.text & a(i)next i
end sub
一個整數n,用vb程式設計求它的原碼，補碼和反碼。
5樓：聽不清啊
private sub command1_click()dim a(16) as integer, x as integerx = cint(text1.text)
if x >= 0 then a(16) = 0 else a(16) = 1
x = abs(x)
for i = 1 to 15
a(i) = x mod 2
x = x \ 2
next i
text2.text = ""
for i = 16 to 1 step -1text2.text = text2.text & a(i)next i
if a(16) = 0 then
text3.text = text2.texttext4.text = text2.textexit sub
end if
for i = 1 to 15
a(i) = 1 - a(i)
next i
text3.text = a(16)
for i = 15 to 1 step -1text3.text = text3.text & a(i)next i
text4.text = a(16)
a(1) = a(1) + 1
i = 1
while a(i) = 2 and i < 15a(i) = 0
a(i + 1) = a(i + 1) + 1i = i + 1
wend
for i = 15 to 1 step -1text4.text = text4.text & a(i)next i
end sub
一個數的原碼，反碼，補碼怎麼算
6樓：匿名使用者
數在計算機中是以二進位制形式表示的。
數分為有符號數和無符號數。
原碼、反碼、補碼都是有符號定點數的表示方法。
一個有符號定點數的最高位為符號位，0是正，1是副。
以下都以8位整數為例，
原碼就是這個數本身的二進位制形式。
例如0000001 就是+1
1000001 就是-1
正數的反碼和補碼都是和原碼相同。
負數的反碼是將其原碼除符號位之外的各位求反
[-3]反=[10000011]反=11111100
負數的補碼是將其原碼除符號位之外的各位求反之後在末位再加1。
[-3]補=[10000011]補=11111101
一個數和它的補碼是可逆的。
為什麼要設立補碼呢？
第一是為了能讓計算機執行減法：
[a-b]補=a補+（-b）補
第二個原因是為了統一正0和負0
正零：00000000
負零：10000000
這兩個數其實都是0，但他們的原碼卻有不同的表示。
但是他們的補碼是一樣的，都是00000000
特別注意，如果+1之後有進位的，要一直往前進位，包括符號位！（這和反碼是不同的！）
[10000000]補
=[10000000]反+1
=11111111+1
=(1)00000000
=00000000(最高位溢位了，符號位變成了0）
有人會問
10000000這個補碼錶示的哪個數的補碼呢？
其實這是一個規定，這個數表示的是-128
所以n位補碼能表示的範圍是
-2^(n-1)到2^(n-1)-1
比n位原碼能表示的數多一個
又例：1011
原碼：01011
反碼：01011 //正數時，反碼＝原碼
補碼：01011 //正數時，補碼＝原碼
-1011
原碼：11011
反碼：10100 //負數時，反碼為原碼取反
補碼：10101 //負數時，補碼為原碼取反＋1
0．1101
原碼：0.1101
反碼：0.1101 //正數時，反碼＝原碼
補碼：0.1101 //正數時，補碼＝原碼
-0．1101
原碼：1.1101
反碼：1.0010 //負數時，反碼為原碼取反
補碼：1.0011 //負數時，補碼為原碼取反＋1
總結：在計算機內，定點數有3種表示法：原碼、反碼和補碼
所謂原碼就是前面所介紹的二進位制定點表示法，即最高位為符號位，“0”表示正，“1”表示負，其餘位表示數值的大小。
反碼錶示法規定：正數的反碼與其原碼相同；負數的反碼是對其原碼逐位取反，但符號位除外。
補碼錶示法規定：正數的補碼與其原碼相同；負數的補碼是在其反碼的末位加1。
1、原碼、反碼和補碼的表示方法
（1） 原碼：在數值前直接加一符號位的表示法。
例如： 符號位 數值位
[+7]原= 0 0000111 b
[-7]原= 1 0000111 b
注意：a. 數0的原碼有兩種形式：
[+0]原=00000000b [-0]原=10000000b
b. 8位二進位制原碼的表示範圍：-127～+127
2）反碼：
正數：正數的反碼與原碼相同。
負數：負數的反碼，符號位為“1”，數值部分按位取反。
例如： 符號位 數值位
[+7]反= 0 0000111 b
[-7]反= 1 1111000 b
注意：a. 數0的反碼也有兩種形式，即
[+0]反=00000000b
[- 0]反=11111111b
b. 8位二進位制反碼的表示範圍：-127～+127
3）補碼的表示方法
1）模的概念：把一個計量單位稱之為模或模數。例如，時鐘是以12進位制進行計數迴圈的，即以12為模。
在時鐘上，時針加上（正撥）12的整數位或減去（反撥）12的整數位，時針的位置不變。14點鐘在捨去模12後，成為（下午）2點鐘（14=14-12=2）。從0點出發逆時針撥10格即減去10小時，也可看成從0點出發順時針撥2格（加上2小時），即2點（0-10=-10=-10+12=2）。
因此，在模12的前提下，-10可對映為+2。由此可見，對於一個模數為12的迴圈系統來說，加2和減10的效果是一樣的；因此，在以12為模的系統中，凡是減10的運算都可以用加2來代替，這就把減法問題轉化成加法問題了（注：計算機的硬體結構中只有加法器，所以大部分的運算都必須最終轉換為加法）。
10和2對模12而言互為補數。
同理，計算機的運算部件與暫存器都有一定字長的限制（假設字長為8），因此它的運算也是一種模運算。當計數器計滿8位也就是256個數後會產生溢位，又從頭開始計數。產生溢位的量就是計數器的模，顯然，8位二進位制數，它的模數為28=256。
在計算中，兩個互補的數稱為“補碼”。
2）補碼的表示： 正數：正數的補碼和原碼相同。
負數：負數的補碼則是符號位為“1”，數值部分按位取反後再在末位（最低位）加1。也就是“反碼+1”。
例如： 符號位 數值位
[+7]補= 0 0000111 b
[-7]補= 1 1111001 b
補碼在微型機中是一種重要的編碼形式，請注意：
a.採用補碼後，可以方便地將減法運算轉化成加法運算，運算過程得到簡化。正數的補碼即是它所表示的數的真值，而負數的補碼的數值部份卻不是它所表示的數的真值。
採用補碼進行運算，所得結果仍為補碼。
b.與原碼、反碼不同，數值0的補碼只有一個，即 [0]補=00000000b。
c.若字長為8位，則補碼所表示的範圍為-128～+127；進行補碼運算時，應注意所得結果不應超過補碼所能表示數的範圍。
用VB編寫程式，輸入正整數n，求所有大於1且小於n，同時與n互質的數，存入陣列並每行的格式輸出
同時與n互質的數 這個不太明白？能說一下嗎？下面1000以內質數演算法。private sub command1 click text1.text for i 1 to 1000 k 1 for j 2 to i 2 if i mod j 0 then k 0next j if k 1 then p...
已知n是正整數，根號189n是整數，求n的最小值。
n 最小是 21 解析 為了湊成完全平方數，n 最小是 3 7 21.這樣的話，189n 3 3 7 3 7 3 4 7 2 所以，根號 189n 3 2 7 63 已知 n是正整數且根號下2107n是整數 求n的最小值已知 n是正整數且根號下2107n是整數 189 3 63 3 3 21 3 3...
c語言編寫求n個整數的平均數,中位數和眾數
edward司徒文德 include int calculate mode int number int n 求眾數 count 1 temp number i return p count double calculate mean int number int n 求平均值 mean calcu...