问题
单项选择题
试戴铸造全冠时，冠完全就位后，出现哪种状况可不必重作（）
A.边缘过短，未到达固位要求
B.冠与牙体组织间的缝隙，用探针可探入
C.冠的邻面与邻牙完全无接触
D.非正中
牙有轻度早接触
E.冠与对牙无咬合接触
答案
参考答案：D
解析：试戴铸造全冠时，发现缺点，应作适当的调整，如存在无法改正的缺陷，影响修复质量者，应部分返工或重做。人造冠边缘过短，未到达设计的位置应重做；人造冠龈边缘与牙体组织间应无明显缝隙，允许的微小间隙不超过0.1mm，出现冠边缘不密合者修复体一般应重做；邻接明显不良可加银焊恢复或重做；冠与对牙无咬合接触，一般应重做，使修复体在正中时有广泛的接触，提高咀嚼效能。
窗口中有两个标签(lblNumber和lblChinese)、两个文本框(txtNnmber和txtChinese)和一个命令按钮(cmdChange)。当单击按钮cmdChange时，将文本框txtNumber中数字转换成中文大写，并显示在文本框txtChinese中。例如，在文本框txtNumber输入0076845，单击cmdChange按钮，将在文本框txtChinese中显示“柒万陆仟捌佰肆拾伍”。 程序中调用的函数CChinse(Strdigit As String)的功能是先删除字符串的所有前导0，再调用函数Change(Strdigit As String)，将数字字符串Strdigit转换成中文大写格式。 为了防止用户在文本框txtNumber输入非数字形式的字符，程序将以空字符代替所输入的非数字有形字符。 【程序】 Private Function Transfer(Strdigit As String)As String ′完成小写向大写的转换，这段代码省略 End Function Private Function CChinese(Strdigit As String)As String Dim intLen,intCounter As Integer intLen = Len (Strdigit) If intLen＞0 Then intcounter = 0 Do ’过滤数字串Strdigit的前导0 intcounter = intcounter + 1 Loop Until Mid(Strdigit, (1) ) intLen = (2) Strdigit = (3) (Strdigit,intLen) CChinese = Transfer(Strdigit) End If End Function Private Sub cmdChange_Click( ) txtChinese.Text=CChinese( (4) ) ’调用Cchinese函数 End Sub Private Sub txtNumber_KeyPress(KeyAscii As Integer) Select Case KeyAscii ’根据输入字符的ASCII码的值进行判断 Case KeyAscii＜32 ’保留输入的控制字符 Case 48 To 57’保留输入的数字字符 Case Else ’其他情况以空字符代替 (5) =0 End Select End Sub