搜题请搜索小程序“爱下问搜题”
问题 问答题 简答题

试编写一完整程序，实现88242567H与0A435C218H两个32位无符号数相加的功能。（要求编写完整源程序，含程序框架）

答案

参考答案：

DATASEGMENT

VAR1DD88242567H

VAR2DD0A435C218H

VAR3DD？

DATAENDS

STACK1SEGMENTSTACK

DW40HDUP（0）

STACK1ENDS

CODESEGMENT

ASSUMECS：CODE，DS：DATA，SS：STACK1

BEGIN：MOVAX，DATA

MOVDS，AX

MOVAX，VAR1

ADDAX，VAR2

MOVVAR3，AX

MOVAX，VAR1+2

ADCAX，VAR2+2

MOVVAR3+2，AX

MOVAH，4CH

INT21H

CODEENDS

ENDBEGIN

填空题

有如图所示的窗体。程序执行时先在Text1文本框中输入编号，当焦点试图离开Text1时，程序检查编号的合法性，若编号合法，则焦点可以离开Text1文本框；否则，显示相应错误信息，并自动选中错误的字符，且焦点不能离开Text 1文本框。


合法编号的组成是：前2个字符是大写英文字母，第3个字符是"-"，后面是数字字符(至少1个)。下面程序可实现此功能，请填空。
Private Sub Text1_LostFocus()
Dim k%.n%。
n=Len( (13) )
For k=1 To IIf(n＞3，n，4)
c=Mid(Text1.Text,k,1)
Select Case k
Case 1.2
If c＜"A" Or c＞"Z" "Then
MsgBox("第" ＆k＆"个字符必须大写字母!")
SetPosition k：Exit For
End If
Case 3
If c＜＞"_ "Then
MsgBox"第"＆k＆"个字符必须是字符""-"""
SetPosition k：Exit For
End If
Case Else
If c＜"0" Or c＞"9" Then
MsgBox("第"＆k＆"个字符必须是数字!")
SetPosition k：Exit For
End If
End Select
Next k
End Sub
Private Sub SetPosition(pos As Integer)
Text1.SelStart=pos-1
Text1.SelLength= (14)
Text1. (15)
End Sub
查看答案
单项选择题

哪种缺损修复体是在手术前预制：（）

A.牙合平面板

B.腭护板

C.暂时义颌

D.正式义颌

E.即刻义齿
查看答案