[汇编语言程序题 2]1. DAI DB 83H,72H,61H,94H,5AH MOV CX,WORD PTR DAI AND CX,0FH MOV AL,DAI+3 SHL AL,CL 上述指令序列执行后，AL=_____A0____,CL=_____03_____。 2.STRING DB 'COMPUTER','$...+阅读

2.不知道分段函数是怎样，你自己修改一下。 Private Sub Command1 Click() x = val(Text1,text) If x<10 then Y=x*x Elseif x=10 Then Y=x Elseif x>10 then Y=-x End IF Text2 text=y End Sub 3. Private Sub Form_Click() Me.FontSize = 30 Dim i, j, k j = Val(InputBox（＂请输入一个数：＂）） k = 1 For i = 1 To j k = k * i Next Print k End Sub

vb程序设计的题目：

'只要数组为n*n的都适用，只要修改n就行 Option Explicit Private Sub Command1_Click() Const n = 5 Dim i As Integer, j As Integer, arr(1 To n, 1 To n) As Long, a, b, c, d For i = LBound(arr, 1) To UBound(arr, 1) For j = LBound(arr, 2) To UBound(arr, 2) arr(i, j) = 1 a = a + arr(i, j) If i = j Then b = b + arr(i, j) If j = UBound(arr, 1) - i + 1 Then b = b + 1 If i = LBound(arr, 1) Or i = UBound(arr, 1) Or j = LBound(arr, 2) Or j = UBound(arr, 2) Then c = c + 1 Next Next MsgBox ＂总计：＂ & a & vbNewLine & ＂2条对角线之和：＂ & b & vbNewLine & ＂4周数字之和＂ & c End Sub

VB程序设计的题目

这个是比较简单的，希望对你有用

Private Sub Form_Click() Dim a(100) As Integer, i As Integer, k As Integer, j As Integer, n As Integer For i = 1 To 100 a(i) = Int(Rnd * 90 + 10) Next i For i = 1 To 100 Select Case a(i) Case Is <= 40 k = k + 1 Case Is < 70 j = j + 1 Case Else n = n + 1 End Select Next i Print ＂在100个两位数中小于等于40的个数为：＂ & k Print ＂在100个两位数中大于40小于70的个数为：＂ & j Print ＂在100个两位数中大于70的个数为：＂ & n

End Sub

vb程序设计题

你这个代码这个地方if b(i) mod b(i)=0 and i<>j then 这么看都不对，肯定你抄错了 我觉得可能的形式是if b(j) mod b(i)=0 and i<>j then

private sub f(b() as integer,byref m as integer) ' m应该是数组长度

dim i as integer, j as integer,kas integer

i=1

do while i<=m ' i = 1..m

for j=1 to m ' j = 1..m

if b(i) mod b(i)=0 and i<>j then ' 如果b(i)之后的某个数整除b(i)

for k= i to m-1:b(k)=b(k+1):next k ' 后面所有数向前移动一个位子，剔除这个数

exit for '提前结束for

next j

if j>m then i=i+1 else m=m-1 ' 如果j > m说明b(i)不是任何其他数的因子，i=i+1检查下一个数，否则说明b(i)被剔掉了，提前结束了for，由于剩余数都向前移动了一个位子，所以m=m-1

loop

完成的功能就是剔除一个数组中可以作为同数组里其他数因子的所有数

比如对于数组

a = (1,2,3,4,5,6,7,8,9,10,11,12)

调用f(a, 12)以后

m最后的值是6

得出的新数组是7 8 9 10 11 12

以下为关联文档：

分享题2：两有趣的言语题两道有趣的语言理解与表达题1一对农村夫我也发表下见解吧！ 1。一对农村夫妇，吃完饭时，妻子突然想起一件事，对丈夫说：＂下个月，是我们结婚30周年的纪念！我想，至少应该宰上一头牛！＂ 丈夫回答：＂为什么？那又不是牛的错！＂ 丈夫的意思是： A...

几道计算机2级c语言的试题帮忙解答 ！1. ！是逻辑非操作符，x等于1，所以！x等于0;--y先执行自减再返回y的值，所以--y等于0；||是逻辑或操作符，！x和--y都为0，所以整个表达式的值也是0。 2. sizeof是C语言中的关键字，不是函数，siz...

几道计算机2级c语言的试题帮忙解答1. ！是逻辑非操作符，x等于1，所以！x等于0;--y先执行自减再返回y的值，所以--y等于0；||是逻辑或操作符，！x和--y都为0，所以整个表达式的值也是0。 2. sizeof是C语言中的关键字，不是函数，siz...

高级语言程序设计VB(1) Sub Main() Dim 字符串数组（3） As String For I As Integer = 0 To 3 字符串数组（I） = Console.ReadLine Next For Each 字符串 As String In 字符串数组 Console.WriteLine...

计算机C语言2级#include #include int main() { int a=1,b=4,c=2; float x=5.5,y=9.0,z; z=(a+b)/c+sqrt((double)y)*1.2/c+x; // a+b = 5 // (a+b)/c = 5/2 = 2 // sqrt(y) = 3 // 3*1.2/...

计算机初级C语言程序设计就是设计一个简单程序的源代码#include<stdio.h> void main ( ) { double a,b,c,s,v; printf(＂input a,b,c：＂)；//要有引号，不要回车 scanf(＂%lf%lf%lf＂,&a,&b,&c);//double对应%lf long float s=a*b; v=a*b*c; p...

c语言程序设计计算两个整数相加输出3 2 5的样式怎么做啊 #include <stdio.h> int main() {int a,b; scanf(＂%d%d＂,&a,&b); printf(＂%d+%d=%d\n＂,a,b,a+b); return 0; }...

计算机二级vb语言考试与计算机全国二级考试内容有什么区别朋友， 1：可以直接报某个等级，这个考试是自愿的，不是按照等级来要求报名的，所以你可以哪个等级都不考，也可以只考一级，也可以直接考4级 2：每个等级，分为好几个类型，但是你只要过一级就...

非计算机专业想考计算机二级 vb c语言非计算机专业想考计算机二级 vb c语言：C语言程序设计 VB语言程序设计 VFP数据库程序设计 JAVA语言程序设计 ACCESS数据库程序设计 C++语言程序设计 Delphi语言程序设计这是所...